使用Line Input #语句 格式:Line Input #文件号,字符串变量名 功能:从顺序文件中读取一整行字符并付给后面的变量 其中“字符串变量名”是一个字符串型的简单变量名.

Private Sub Form_Load() On Error Resume Next Open App.Path & "\ok.txt" For Input As #1 Do Until EOF(1) Line Input #1, x For Each i In Split(x, vbCrLf) If LCase(Right(i, .

这个很容易的,可惜我的 Win10 还没有 VB.应该可以读取整个 txt 文档到一个字符串中,然后按换行符号找到那个特定的行,加插入文字.最后把那个字符串存为一个新 txt 文档.

假设给A1赋的值为2,这个数可以随便改,然后在窗体中添加如下代码测试即可 . As String Dim S As String A1 = 2 A2 = "" '把A2的值赋为空 Open "c:\a.txt" For Input .

scom的executereader()方法呢,它是返回数据库中的datareader的,表中的每一行,只要是你定义的哪一行都能读出有很大的随意性

打开文本文件,一行一行地读;在读取一行的时候,可以一次读取,进行分离;也可以一个数据一个数据地读取;

你的TAB是一个变量的名吧?此方法较简单,但需要你临时引入一个字符.这个字符应是这个Txt文件中永远也不会存在的字符.如＂@＂,我就用此字符做例子.Dim a, .

line input 就是一行一行读数据的 代码如下. ====================== open ＂文件名.txt＂ for input as 1 do while eof(1) = false line input #1, s '一行数据保存到变量s中 '你的操作 loop close 1

你需要全部取出,然后在程序里面判断,符合条件的输出就可以了你可以按行读取,按空格拆分数据 给个例子以下是一个登陆窗口的代码,你改改就可以用了open app..

open ＂c:\1.txt＂ for input as #1 while not eof(1) line input #1,s text1.text=text1.text & s & vbcrlf wend close #1'保存text2 open ＂c:\1.txt＂ for output as #1 print #1,text2.text close #1