『壹』 VB读取TXT文件并获取指定内容
Private Sub Form_Load()On Error Resume NextOpen App.Path & "\ok.txt" For Input As #1Do Until EOF(1)Line Input #1, xFor Each i In Split(x, vbCrLf)If LCase(Right(i, 2)) = LCase("no") Then Text2.Text = Text2.Text & Trim(Split(i, " ")(1)) & vbCrLf: Text1.Text = Text1.Text & Trim(Split(x, " ")(1)) & vbCrLfNextLoopClose #1End Sub'2个textbox,multiline=1,scrollbars=2.代码可以自己改,这里是读取当前文件夹下的ok.txt
『贰』 vb如何读取文本文件中指定内容
哦，假设你的加密文件的路径是c:\1.txt,用以下代码读入变量进行操作。dima()asstring,rasinteger'全局变量，写版在通用处dimtasstring,iasinteger open"c:\1.txt"forinputas#1whilenoteof(1) '计算文件的行数权lineinput#1,ti=i+1wendr=iredima(i)i=0whilenoteof(1) '将文件读入字符数组lineinput#1,a(i)i=i+1wendclose#1现在数组a中的就是你的txt的内容了，按照你的算法对这些解密就好了，写入的时候用这个dimiasintegeropen"c:\2.txt"foroutputas#1fori=0tor-1print#1,a(i)nextclose#1就将变量写入了。
『叁』 vb怎样读取txt文本每一行的指定内容
Dim TextLineDim ret as StringOpen "目录\a.txt" For Input As #1 ' 打开文件。Do While Not EOF(1) ' 循环至文件尾。 Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。 '这时就是取回到的第一行的答值了，如果你确定每行都是这种格式“time=123”，那么你就可以用 '下面的语句： ret=mid(TextLine,6)LoopClose #1 ' 关闭文件。
『肆』 vb如何读取txt中内容
Open"文件绝对路径"forINputas#1'接下来比如我要把文件读入文本框Text1Input#1,Text1.TextClose#1也可以用FSO，但是不可能一句命令就行的
『伍』 vb如何分别读取TXT的每行内容
1、vb6示例：来
OptionExplicitPrivateSubCommand1_Click()DimiStr()AsString,iAsLong,cOpen"d:est.txt"ForInputAs#1WhileNotEOF(1)ReDimPreserveiStr(i)LineInput#1,iStr(i)i=i+1WendClose#1ForEachcIniStrDebug.PrintcNextEndSub
2、以上例程从文本文件读自，把读出来的每一行文本装入一个字符串动态数组，数组每个成员即一行。
3、如果是想读textbox的每一行，假如每一行都有回车，按回车截取。如果是自动换行没有回车符，需要使用windows API来读每一行。
『陆』 vb怎样读取TXT文件中的数据
代码如下:PrivateSubCommand1_Click()Open"F:\数据.txt"ForInputAs#1Input#1,a,b,c,dPrint"a="&a,"b="&b,"c="&c,"d="&dClose#1EndSub-几种打开文件方法————————-1.open<文件名>forinputas#<文件号>如果文件不存在则会出错,文件号将在以后操作中取代文件名,范围是[1,511]。2.open<文件名>foroutputas#<文件号>建立一个新文件并打开它,如果文件存在就删了再建立。3.open<文件名>forappendas#<文件号>为了在文件尾部追加内容而打开,写入数据时是从尾部进行。-读取————————————-1.input#<文件号>,<变量表>读出一行数据并依次分配给各变量2.lineinput#<文件号>,<变量名>读出一行数据直到回车换行之前的全给此变量——————————————
『柒』 求VB代码：读取txt文件某一行中某一位置的字段
我有点没明白你的要求`不知道这样可不可以:可以试试用以下代码实现你的要求 dimrow,iasinteger'row为指定第几行 dimaasstring'记录指定行的内容 open"x:\xxx"forinputas#1'x:\xxx为完txt的整路径 fori=1torow ifeof(1)=falsethenlineinput#1,a next close#1 text1.text=a 这段代码就可以读取txt中指定行的内容并在text中显示了。
『捌』 怎样用VB读取一个TXT文件里的特定字符间的内容
你的TAB是一个变量的名吧？此方法较简单，但需要你临时引入一个字符。这个字符应是这个Txt文件中永远也不会存在的字符。如"@"，我就用此字符做例子。Dima,cAsStringOpen"Txt文件的完整路径，要有扩展名"ForBinaryAs#1a=Input(LOF(1),1)Close#1a=Replace(Replace(a,"(","@"),")","@")b=Split(a,"@")Fori=1ToUBound(b)Step2c=c&b(i)&"@"Nextc=Left(c,Len(c)-1)TAB=Split(c,"@")紧接着我上面代码的后面你就可以使用TAB(0)、TAB(1)、TAB(2)……了。
『玖』 VB读取TXT文件内容
PrivateSubCommand1_Click()DimsAsStringOpen"c:\q.txt"ForBinaryAs#1s=input(LOF(1),#1)Text1.Text=sClose#1EndSub以上代码把txt文件内容读入s变量中，如果有text的话，赋值就可以了。具体文件名称即路径你可以根据你的需要改变。
