Question

VB处理文本

在C:\1.txt 每行内容前加上123

Answer 1

Private Sub Command1_Click()
Dim sA As String
Open "C:\1.txt" For Binary As #1
sA = Space(LOF(1)) '用空格填充sA变量
Get #1, , sA '用Get语句获取文件全部内容
Close #1
sA = "123" & Replace(sA, vbCrLf, vbCrLf & "123")
Open "C:\1.txt" For Output As #1
Print #1, sA
Close #1
End Sub

Answer 2

line input 后
加上123,
写进去就可以