【求问】txt提取的问题？

xdwy81129

这个是我vba代码写入达到的txt文本，语句为：Print #1, ar1(i, 1), ar1(i, 2)
2个字符串中间多了很多的空格（实际不是空格）

现在，我想把这个txt的内容赋值到数组中，求教大侠应该怎么写代码
想要达到的答案是
arjg（2，1）=“17”，arjg(2,2) ="1LZZSN"
arjg（3，1）=“21”，arjg(3,2) ="LZNZNN"

请不要用right和left来取字符，因为前面的字符个数和后面的字符个数不一样

试验.rar (621 Bytes, 下载次数: 8)

2014-3-23 23:22 上传

点击文件名下载附件

另求问：不循环可否知道这个文本总共有多少行，谢谢解答


另求问：如何从最后一行开始网上连续取得20行的数据

谢谢解答

hwc2ycy

1. Sub test1()
   
2.     Dim strFileName$
   
3.     Dim fn, a$, b
   
4.     Dim arr()
   
5.     Dim i As Long
   
6.     fn = FreeFile
   
7.     ReDim arr(1 To 2, 1 To 1)
   
8.     strFileName = ThisWorkbook.Path & "\试验.txt"
   
9.     Open strFileName For Input As #fn
   
10.     Do While Not EOF(1)
    
11.         i = i + 1
    
12.         ReDim Preserve arr(1 To 2, 1 To i)
    
13.         Line Input #1, a
    
14.         b = Split(a, Space(12))
    
15.         arr(1, i) = Trim(b(0))
    
16.         arr(2, i) = Trim(b(1))
    
17.     Loop
    
18.     Close #fn
    
19.     If i Then
    
20.         b = WorksheetFunction.Transpose(arr)
    
21.      End If
    
22. End Sub

复制代码

有的有一位空格前缀，替换了。

hwc2ycy

通常用 Line Input # 或 Input 读出 Print # 在文件中写入的数据。

注意 如果今后想用 Input # 语句读出文件的数据，就要用 Write # 语句而不用 Print # 语句将数据写入文件。因为在使用 Write # 时，将数据域分界就可确保每个数据域的完整性，因此可用 Input # 再将数据读出来。使用 Write # 还能确保任何地区的数据都被正确读出。

xdwy81129

hwc2ycy 发表于 2014-3-23 23:42
通常用 Line Input # 或 Input 读出 Print # 在文件中写入的数据。

注意 如果今后想用 Input # 语句读出 ...

求教下代码，不太明白，是不是我不应该用input写入数据到txt呀？？？

hwc2ycy

1. Sub test()
   
2.     Dim strFilename$
   
3.     Dim str$, arr
   
4.     strFilename = ThisWorkbook.Path & "\试验.txt"
   
5.     Open strFilename For Input As #1
   
6.     str = StrConv(InputB(LOF(1), #1), vbUnicode)
   
7.     Close #1
   
8.     arr = Split(str, vbCrLf)
   
9.     MsgBox UBound(arr) + 1
   
10. End Sub

复制代码

Msgbox显示的是行数

xdwy81129

hwc2ycy 发表于 2014-3-23 23:55
Msgbox显示的是行数

谢谢解答，不想求问的结果

代码是把1行的数据读入到1个变量里面
我希望做到的是：因为1行的字符串是2个，所以写入2个变量里面，ar(i,1),ar(i,2)
这样就可以用cells(1,1).resize(ubound(ar),ubound(ar,2)) = ar

请求烟花帮忙解决，谢谢烟花

xdwy81129

hwc2ycy 发表于 2014-3-23 23:55
Msgbox显示的是行数

因为一行有2个字符，所以希望结果也是1行2个字符
如：
ar（2，1）=“17”，ar(2,2) ="1LZZSN"
ar（3，1）=“21”，ar(3,2) ="LZNZNN"

求教烟花帮忙

hwc2ycy

1. Sub test()
   
2.     Dim strFilename$
   
3.     Dim obj As Scripting.FileSystemObject
   
4.     Dim txtStream As Scripting.TextStream
   
5.     strFilename = ThisWorkbook.Path & "\试验.txt"
   
6.     Set obj = New Scripting.FileSystemObject
   
7.     Set txtStream = obj.OpenTextFile(strFilename, ForReading, False, TristateFalse)
   
8.     Do While Not txtStream.AtEndOfLine
   
9.         txtStream.ReadLine
   
10.     Loop
    
11.     MsgBox txtStream.Line
    
12.     txtStream.Close
    
13.     Set txtStream = Nothing
    
14. End Sub

复制代码

用FSO对象获取长度

hwc2ycy

TXT文件是怎么来的？
可以把空格替换下，只保留一个空格，然后再用split分离。

hwc2ycy

明天再看。