vb 不修改其他行的情况下写入txt指定行

答案：如果你想在文本框当前光标处开始加入，就：
Text1.SelText = "==========================="
如果需要换行：Chr函数是把ASCII码转换成字符
Chr(13)+Chr(10)就是回车和换行
Text1.SelText = "===========================" & Chr(13)+Chr(10) 

如果是文本文件：

本地有个文本d:/1.txt
文本内容如下：
ABC
911
QWGQGS
--------------------
想要把一个变量的值（X=123）插入到该文本911的下一行中并保存。我要实现点击按扭后，手动打开文本时起内容变成如下：
ABC
911
123
QWGQGS

一下是代码：
dim a
a=InStr(Text1.Text, "911") '找911的位置(准确的说是9的位置)
text1.text=left(text1.text,a+3) & vbnewline & "123" & vbnewline & right(text1.text,len(text1.text)-3-a)
 'a+3 是加上911三个字的长度（3）,后面－3-a的－3也是减去这三个字的长度

保存
on error resume next '容错
dim b as integer : b=0'创建变量，赋值
b=filelen("d:\1.txt") '检测文件大小
if b then  '如果大小大于0(即True)
kill "d:\1.txt" '删除d:\1.txt
End if
Open "d:\1.txt" for append as #1 '记录号为1,追加信息
 print #1,text1.text '向记录号为1的文件输出数据text1.text
close #1 '关闭记录号为1的文件。

打开文件(即下次启动时显示上次保存的内容)
Function FileText(ByVal Filename As String) As String
On Error Resume Next
Dim Handle As Integer
' 判断文件存在性
If Len(Dir$(Filename)) = 0 Then
Err.Raise 53 '文件没有找到
End If
' 以binary模式打开文件
Handle = FreeFile
Open Filename$ For Binary As #Handle
' 读取内容,关闭文件
FileText = Space$(LOF(Handle))
Get #Handle, , FileText
Close #Handle
End Function

加在form_load中：
text1.text = filetext("d:\1.txt")

其他：现有的txt只读取(input),创建新的txt写入(output),其他行复制,指定行作必要的编辑就好...vb6对文件读写的功能很少,只好这样了... 直接text1.text=“”就好了 简单的做法是拷贝到另一个文件，过程中修改其中的某行。 

上一个：vb for 语句不懂
下一个：VB求素数之和