VB 替换TXT的某一行

用临时文件做，其中需要替换的txt为"C:\1txt"这个你可以自己改！Private Sub Command1_Click()' 单击command1
Dim FileRead As Integer '定义
Dim FileWrite As Integer
Dim Str As String
FileRead = FreeFile ‘调用FreeFile函数·获取可用文件号
Open "C:\1txt" For Input As FileRead 打开要读取内容的文件
FileWrite = FreeFile
Open "C:\Tmptxt" For Append As FileWrite 创建一个临时文件
Line Input #FileRead, Str 读取第一行内容
Print #FileWrite, Str 把读取的内容 写入临时文件第一行
Line Input #FileRead, Str 读取第二行
Print #FileWrite, Text1Text 把text1text的内容写如临时文件第二行
Do While Not EOF(FileRead) 循环读取，直到文件末尾
Line Input #FileRead, Str 读取下一行
Print #FileWrite, Str 把读取的内容写入临时文件
LoopClose FileRead 关闭打开的文件句柄
Close FileWriteKill "C:\1txt" 删除读取文件1txt
Name "C:\Tmptxt" As "C:\1txt" 把临时文件的名字改为1txtEnd Sub

哥们，你先把TEXT1multiline=true
然后
text1text="Private Sub Command1_Click() " & vbcrlf & "Label1Caption = ""welcome to my world""" & vbcrlf & "end sub"
这样就换行了。
multiline多行文本属性

把文本框的multiline属性设为true就可以换行了。如果你想用代码在文本框中显示多行文字，可以把字符串和vbcrlf连起来。比如text1text
=
"abc"
&
vbcrlf
&
"123"，这样abc和123就会显示成2行了。

我本来是第一个回答的，为了把第二，三个问题也解决，修改答案后就成最下边一个了
1--------------------------------------------------------------
把Text4的MultiLine属性设置成True
复制下边的代码：
Private Sub Form_Load()
Text4Text = ""
End Sub
Private Sub Command1_Click()
Text4Text = Text4Text + Text1Text + Text2Text + Text3Text + vbCrLf
End Sub
'下边是为了保障Text4的焦点处于最后，试着去掉下边这三行，观察一下效果，你会发现这三行也很重要
Private Sub Text4_Change()
Text4SelStart = Len(Text4Text)
End Sub
2--------------------------------------------------------------
如果是用List也可以，下边就是双击复制该表项内容
Private Sub List1_DblClick()
ClipboardClear
ClipboardSetText List1List(List1ListIndex)
MsgBox "该项内容已经复制到剪贴板，请用Ctrl+V粘贴"
End Sub
3--------------------------------------------------------------
richtextbox比textbox好用，比如richtextbox还能每行字体颜色不同，显示等，不过你这里用不着它的这些复杂用法
首先点“工程”，“部件”，找到“Microsoft Rich textbox Contral 60”勾上，点“确定”，然后就可以在工具那里看到它了，在窗体上画RichTextBox1
RichTextBox1 就不用设置MultiLine了，代码的写法和用Text4差不多
复制下边的代码：
Private Sub Form_Load()
RichTextBox1 = ""
End Sub
Private Sub Command1_Click()
RichTextBox1Text = RichTextBox1Text + Text1Text + Text2Text + Text3Text + vbCrLf
End Sub
Private Sub RichTextBox1_Change()
RichTextBox1SelStart = Len(RichTextBox1Text) '保障RichTextBox1的焦点处于最后
End Sub
上边的代码我都测试过了，完全直接可用！！ 看！

---