vb中如何读取,写入txt文件
比如我的某一个txt文件中的内容是:01020304050708091011我的要求是把上面的格式转换成下面的格式然后保存01-02-03-04-05+1607-08-0...
比如我的某一个txt文件中的内容是:
01 02 03 04 05
07 08 09 10 11
我的要求是把上面的格式转换成下面的格式然后保存
01-02-03-04-05+16
07-08-09-10-11+16
请问如何编程来实现。谢谢大家! 展开
01 02 03 04 05
07 08 09 10 11
我的要求是把上面的格式转换成下面的格式然后保存
01-02-03-04-05+16
07-08-09-10-11+16
请问如何编程来实现。谢谢大家! 展开
1个回答
展开全部
Private Sub Form_Load()
Dim str1 As String, str2 As String
Open "c:\1.txt" For Input As #1
Do While (Not EOF(1))
Line Input #1, str1
str2 = str2 & Replace(str1, " ", "-") & "+16" & vbCrLf
Loop
Close
Open "c:\2.txt" For Input As #1
Print #1, str2
Close
End Sub
Dim str1 As String, str2 As String
Open "c:\1.txt" For Input As #1
Do While (Not EOF(1))
Line Input #1, str1
str2 = str2 & Replace(str1, " ", "-") & "+16" & vbCrLf
Loop
Close
Open "c:\2.txt" For Input As #1
Print #1, str2
Close
End Sub
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询