Question

vb 替换txt文本文件中的指定字符串

例如：1,2,3,4,5,6
13,24,3,4,2,7
0,2,3,98,45,6
a,b,c,d,e,f
将每行的第一个“，”替换为“，1，”

达到目的为：
1，1，2,3,4,5,6
13，1，24,3,4,2,7
0，1，2,3,98,45,6
a，1，b,c,d,e,f

Answer 1

Private Sub Form_Load()
    Dim Ar, I As Long, S As String
    Open "d:\123.txt" For Binary As #1
        S = StrConv(InputB(LOF(1), 1), vbUnicode)
    Close #1
    Ar = Split(S, vbCrLf)
    For I = 0 To UBound(Ar)
        Ar(I) = Replace(Ar(I), ",", ",1,", , 1)
    Next
    Open "D:\123.TXT" For Output As #1
        Print #1, Join(Ar, vbCrLf)
    Close #1
End Sub