UC知道VB对TXT的操作
来源：百度知道 编辑：UC知道 时间：2024/09/22 11:51:52
举个例子，比如：TXT里第一行是“123”，第二行是“456”，第三行是“789”，我想要的效果是用VB自动复制第一行文字至第二行，复制第三行到第四行，复制第四行文字到第五行
原来三行的TXT就变成如下了：
123
123
456
456
789
789
现在我TXT里的行数是任意的！也就是复制第N行里的内容到N+1行里（N=单数），我不怎么会循环的请高手能写个代码！代码通过的加100分，也可把代码发我邮箱：sunshinebean@vip.qq.com
原来三行的TXT就变成如下了：
123
123
456
456
789
789
现在我TXT里的行数是任意的！也就是复制第N行里的内容到N+1行里（N=单数），我不怎么会循环的请高手能写个代码！代码通过的加100分，也可把代码发我邮箱：sunshinebean@vip.qq.com
Private Sub Command1_Click()
Open "z:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str1 = str1 & temp & vbCrLf & temp & vbCrLf
Loop
Close #1
Print str1
End Sub
open app.path & "/test.txt" for output as #1
print #1, text1.text
close #1
dim r as string
open "c:\1.txt" for input as #1
open "c:\2.txt" for output as #2
do while not eof(1)
line input #1,r
print #2,r
print #2,r
loop
close
kill "c:\1.txt"
name "c:\2.txt" as "c:\1.txt"
msgbox "OK!"
特意为你写的代码，完全能达到你的要求！
Private Sub Command1_Click()
Dim Str as String
Open "D:\test.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, temp
str= str & temp & vbCrLf & temp & vbCrLf
Loop
Close #1
open "D:\1.txt" for out