UC知道高分求vb简单的问题
来源：百度知道 编辑：UC知道 时间：2024/06/11 04:56:08
50分 一定加不加是死驴
怎样写一个vb读取一个txt文件写入另一个txt文件
e盘有一个111。txt 文本是23421341235343456
我想写一个vb6软件把111。txt里面的文本自动读取并写入222。txt中
怎么办要有解释
我的想法是
open"e"\111.txt"for input as #1
open"e:\222.txt"for output as#2
print #2,^^^
怎么弄
2楼的 你很好
但是再回答一个问题 我想把软件名称设成一个text1=a
能不能……
open "e:\a"…………………………
怎样写一个vb读取一个txt文件写入另一个txt文件
e盘有一个111。txt 文本是23421341235343456
我想写一个vb6软件把111。txt里面的文本自动读取并写入222。txt中
怎么办要有解释
我的想法是
open"e"\111.txt"for input as #1
open"e:\222.txt"for output as#2
print #2,^^^
怎么弄
2楼的 你很好
但是再回答一个问题 我想把软件名称设成一个text1=a
能不能……
open "e:\a"…………………………
Open "e:\111.txt" For Input As #1 ’打开文件
Open "e:\222.txt" For Output As #2
Do While Not EOF(1) '循环读取，直到文件结束
Line Input #1, strTemp '读取一行内容到变量strTemp
Print #2, strTemp '将读入的变量值写入另一文件
Loop
Close #1 '关闭文件
Close #2 '关闭文件
这是一种方法，下面还有一种方式，自己调吧
Set fs = CreateObject("Scripting.FileSystemObject") '创建文件对象
Set f1 = fs.GetFile(""e:\111.txt" ") '获取读取的文件
Set f2 = fs.CreateTextFile("e:\222.txt") '创建存储文件
Set ts1 = f1.OpenAsTextStream(1, -2) '打开读取文件
Do While ts1.AtEndOfStream <> True '循环读取直至文件尾
strTemp = ts1.readline '读取
f2.writeline strTemp '写入
Loop
ts1.Close '关闭所有文件
Set ts1 = Nothing
Set f1 = Nothing
Set f2 = Nothing
Set fs = Nothing