怎样把txt文件中的数据导出成csv文件（在线等，多谢）

[shinebxc]

txt文件中的数据按如下格式排列：
data1 data2 data3
1234 2345 3456
5678 6789 7890
列之间没有逗号, 由于数据文件过大，手工加逗号会死人的
有什么方法可以实现？

[吾非大神]

学习

[happy_sea]

dim s1 as string,s2 as string
open "c:\input.txt" for input as #1
open "c:\output.csv" for output as #2
do while not eof(1)
line input #1,s1
s2=replace(s1," ",",")
print #2,s2
loop
close #1
close #2
msgbox "完工！"

[shinebxc]

有点懂了，多谢

另外还有一个问题，怎样从txt文件N行数据中截取需要的一段当作源数据文件

[leongwong]

Dim FS As New FileSystemObject, TS As TextStream
Dim TxtRows As Integer, Txt_Content As String
Dim jsq As Integer
Dim Str_Content As String
TxtRows = 5

Set TS = FS .OpenTextFile(App.Path + "\*.txt", 1)

For jsq = 1 To TxtRows
Txt_Content = Trim(TS.ReadLine)
If InStr(1, UCase(Txt_Content), "要判断的字符=") <> 0 Then
Str_Content= Mid(Txt_Content , InStr(1, UCase(Txt_Content), "要判断的字符=") + 13, Len(Txt_Content))
End If
Next jsq

[shinebxc]

LS的能写点注视么，多谢