Question

vb如何替换txt中指定开头指定位置字符，求助

aadf
AT,1,,1,,a,,1
asdc
AT,1,,1,,b,,2
sed
AT,1,,1,,c,,3
asfg
AT,1,,1,,d,,4
asf
AT,1,,1,,e,,5
awafdf
需要把以at开头的字符串最后一个数字（1,2,3,4,5）分别替换为（a1，a2，a3，a4，a5）

Answer 1

先在代码里加如下 Function Private Function GetTxt(TxtPath As String) As String Dim i As Integer: i = FreeFile Open TxtPath For Input As #i GetTxt = StrConv(InputB(LOF(i), i), vbUnicode) Close #i End Function '需要的时候: MsgBox Split(GetTxt("这里改成文件路径"), vbCrLf)(行号-1) '如，显示 C:\1.txt 中的第3行内容 'MsgBox Split(GetTxt("C:\1.txt"), vbCrLf)(2)