请教关于文本存取的问题。(在线等)

hn123 2004-10-28 04:59:58

我现在想把一现有的文本文件（有1万多行）格式为：
10 XXXXXXX
20 XXXXXXXXXX
30 XXXXX
.........

10000 XXXXX
10001 XXXXXX
现在要改成
10 ,"XXXXXXX"
20 ,"XXXXXXXXXX"
30 ,"XXXXX"
.........

10000 ,"XXXXX"
10001 ,"XXXXXX"

有什么好办法？
msn: v_ic@msn.com

...全文

165 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

hn123 2004-10-29

打赏
举报

搞掂了。谢谢大家的关注。
我的办法是。先导入到数据库中，然后写了一条SQL语句，更新后，再导出去。

hn123 2004-10-29

打赏
举报

有中文，而且还很多。

northwolves 2004-10-28

打赏
举报

没有中文可以这样试试
x = Input(LOF(1), #1)

northwolves 2004-10-28

打赏
举报

没有中文可以这样试试
x = Input(LOF(1), #1)

hn123 2004-10-28

打赏
举报

to: northwolves(狼行天下)
Open "d:\123.txt" For Input As #1
这个办法也只能读32k的内容。

hn123 2004-10-28

打赏
举报

这名出错了。

Run-time error '62'
Input past end of file

x = StrConv(InputB(LOF(1), #1), vbUnicode)

hn123 2004-10-28

打赏
举报

to: northwolves(狼行天下)
我试试先

northwolves 2004-10-28

打赏
举报

Private Sub Command1_Click()
Dim x As String
Open "d:\123.txt" For Input As #1
x = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
x = Replace(x, " ", " """)
x = Replace(x, vbCr, """" & vbCr)
Open "d:\124.txt" For Output As #1
Print #1, x
Close #1
MsgBox "ok"
End Sub

hn123 2004-10-28

打赏
举报

to: wwqna(york)
有例子吗？

wwqna 2004-10-28

打赏
举报

用数据库的方式打，然后再用命令更新，估计会很快。

hn123 2004-10-28

打赏
举报

我可能给你一个例子你试一下。
Private Sub Command2_Click()
Dim ins, outs As String
Open App.Path & "\1.txt" For Input As #1
Open App.Path & "\3.txt" For Input As #2
Do Until EOF(1)
Line Input #1, ins
outs = Trim(ins)
Print #2, outs

Loop
Close #1
Close #2
MsgBox "操作成功！"

iStar64 2004-10-28