求问：vba获取txt文件内容的问题

tg000057

如题
以下代码是别处获得的，用vba获取txt文件内的内容，  
想修改的是 aa= .ReadText，这句是把txt的内容全部放到aa内，aa是字符串。
如果是按行获取要怎么弄，就是txt内容按一行一行放到一个一个字符串内，然后应该获取的是一个数组！
我想到的修改是这样：aa= Split(.ReadText, Chr(10))，aa是数组了，但每一项后面都多了一个空格，分裂那里用“空格”+Chr(10)又识别不了了，只能后面再去除数组里的空格。
这样并不理想，求高手解答一下用其他方法的！

With CreateObject("ADODB.Stream")
  .Type = 2
  .Mode = 3
  .Open
  .LoadFromFile txt文件路径
  .Charset = "UTF-8"
  .Position = 2
  aa= .ReadText
  .Close
End With

Allate

方法一：
假如有三行，可以这样写（如果后面还有，还可以继续Readline）

1. Set FSO = CreateObject("Scripting.FileSystemObject")
   
2. Set swTxt = FSO.OpenTextFile(TxtFileFullPathName, 1)
   
3. aa = swTxt.Readline
   
4. bb = swTxt.Readline
   
5. cc = swTxt.Readline

复制代码

其中，TxtFileFullPathName就是TXT的全路径。

方法二：
继续沿用你之前的办法，就是分割的字符更改一下，这样——

1. aa= Split(.ReadText, Chr(13)&Chr(10))

复制代码

kangbanghua872

顶一下，坐等高手！

tg000057

Allate 发表于 2022-4-12 21:08
方法一：
假如有三行，可以这样写（如果后面还有，还可以继续Readline）

方法二吧，原来回车和换行不是同一个意思，Chr(13)和Chr(10)，查了资料才知道。
另外，方法一可以这样的：
，
Set FSO = CreateObject("Scripting.FileSystemObject")
Set swtxt = FSO.OpenTextFile(ffff, 1, True)
Do While Not swtxt.atendofstream
ReDim Preserve xxxx(xint)
xxxx(xint) = swtxt.ReadLine
xint = xint + 1
Loop
，
还有另一种方法：
,
nnnn = FreeFile()
Open ffff For Input As nnnn
While Not EOF(nnnn)
    ReDim Preserve xxxx(xint)
    Line Input #nnnn, xxxx(xint)
    xint = xint + 1
Wend
,
只是上述这两种，如果txt文件内容有中文的话，就会变成乱码，，，

wscgb123

   经典案例图书

感谢楼主分享，很不错！

UDF998

好东西，努力学习学习！

yun6yun7

   经典案例图书

感谢楼主分享，很不错！