VB 遂行读取文本 两组字段
文本框内（或文本文件）
陈总 13900000001
李总 13287893879
张总 15023034302
李小龙 13098449389
中间是空格，最好不限多少空格都可以
我想这个大家已经明白了吧，怎么读到了里面的
姓名到变量 A，手机 为B变量，当然是循环读取赋值给A B。请给代码，供研究学习。谢谢。 --------------------编程问答--------------------
--------------------编程问答-------------------- --------------------编程问答-------------------- --------------------编程问答-------------------- 用正则处理更方便 --------------------编程问答-------------------- J=INSTR(1,TEXT," ",VBTEXTCOMPARE))'查找空格位置，
Sub main()
Dim A As String, B As String
Dim fn As Integer, strLines() As String, strParts() As String, strLine As Variant
fn = FreeFile()
Open "c:\temp.txt" For Binary As #fn
strLines = Split(StrConv(InputB(LOF(fn), fn), vbUnicode), vbCrLf)
Close #fn
For Each strLine In strLines
strLine = Replace(strLine, " ", " ") '过滤掉多余的空格
strParts = Split(strLine, " ")
A = strParts(0)
B = strParts(1)
Debug.Print A, B
Next
End Sub
if j=0 then
J=INSTR(1,TEXT,chr(9),VBTEXTCOMPARE))‘防止table键
end if
A=LEFT(TEXT,J)’截取需要的文字。
B=TRIM(MID(TEXT,J))
看懂即可，不保证可运行。
--------------------编程问答-------------------- 楼主仔细研究一下1楼的代码，其效率会比你2楼的代码更有效，特别是对于大文件的时候。 --------------------编程问答--------------------
我不认为采用 Split 分行对大文件更有效。当文件有几百 M、几G 的情况下，一次打开并分割整个文件，未必很快。
使用什么样的算法，要看具体应用。
补充：VB , 基础类
