vb读取txt文件并全部输出
@于苛6591：VB如何读取Txt文件的内容,并且输出
竺亨19386628554…… 这种东西不用API Dim k, a As String Open ＂C:\1.txt＂ For Input As #1 Do While Not EOF(1) Line Input #1, a k = k + a + VBcrlf Loop Close #1 Debug.Print k
@于苛6591：如何用VB做一个查找TXT内容并输出的程序
竺亨19386628554…… '************************************************************************* '**函 数 名:FindTxt '**输''''入:fPath(String) - 待查找的文件的名(带路径 '**'''''''':fText(String) - 要查找的内容 '**输''''出:(String) - 如果有符合条件的内容,则返回最前的一行...
@于苛6591：VB文件操作.如何把一个文档的内容全部读出来.并输出到TEXT控件中顺序操作 谢谢 请写一下过程代码 -
竺亨19386628554…… Private Sub Command1_Click()Open Path For Input As #1 Input #1, Text1.TextClose #1End Sub其中的path就是文档文件的路径及文件名
@于苛6591：VB文件操作.如何把一个文档的内容全部读出来.并输出到TEXT控件中顺序操作 -
竺亨19386628554…… TXT文件的读取使用Binary模式比input模式少一些错误,下面是最简单的读取方法Open ＂TXT文件＂ For Binary As #1Text1.Text = Input(LOF(1), 1)Close 1
@于苛6591：怎么用VB读取一个TXT格式的文件?
竺亨19386628554…… Open App.Path & ＂\123.txt＂ For Output As #1 '将内容写进txtPrint #1, Text1.TextPrint #1, text2.TextClose #1'text3读取123.tet内容 Open App.Path & ＂\123.txt＂ For Input As #1Dim Lines As StringDim NextLine As StringDo Until EOF(1)Line ...
@于苛6591：VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
竺亨19386628554…… 你可以先从环境变量中获取桌面的地址,这样就不会随着机器的不同而造成程序的影响了 str = Environ(＂USERPROFILE＂) & ＂\桌面\＂ '获取桌面路径 file=str & ＂\YourTxt.txt＂ '这里是你要读取的txt文件名 list1.clear '先清空列表框 open file for input as #1 '打开这个文件开始读内容 do while not eof(1) line input #1,s '读取一行给s list1.AddItem s 把s添加到列表框 loop close #1 '直到读完关闭文件
@于苛6591：请教vb读取编辑txt文件并 -
竺亨19386628554…… '写文件 Open ＂C:\1.txt＂ For Output As #1 '以输出方式打开文件 Print #1, ＂桂林山水甲天下.＂ Close #1 ' 关闭文件.End Sub'读文件 Dim LStr as string Open ＂C:\1.txt＂ For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 Line Input #1, LStr '读入一行 Loop Close #1 ' 关闭文件.Print LStr
@于苛6591：VB读取TXT文件内容 -
竺亨19386628554…… '首先你的建立个a.txt的文件 然后随便写些什么 然后放到C盘根目录下 示例代码如下: Private Sub Form_Click() Open ＂c:\a.txt＂ For Input As #1 Do While Not EOF(1) Input #1, b Text1.Text = Text1.Text & b Loop End Sub
@于苛6591：VB打开一个文件夹下所有的*.txt文件并且对其进行读取操作 -
竺亨19386628554…… dim aa as string aa =dir (＂一个文件夹的路径\*.txt＂) do while aa＂＂'打开这个＂一个文件夹的路径\＂ & aa TXT文件,并读取 aa =dir() loop
@于苛6591：VB读取外部TXT数据逐行修改然后输出TXT文件
竺亨19386628554…… Dim s As String, t() As String Open App.Path & ＂\123.txt＂ For Input As #1 Open App.Path & ＂\直选.txt＂ For Output As #2 Open App.Path & ＂\组六.txt＂ For Output As #3 Open App.Path & ＂\组三.txt＂ For Output As #4 Do Until EOF(1) Line ...
竺亨19386628554…… 这种东西不用API Dim k, a As String Open ＂C:\1.txt＂ For Input As #1 Do While Not EOF(1) Line Input #1, a k = k + a + VBcrlf Loop Close #1 Debug.Print k
@于苛6591：如何用VB做一个查找TXT内容并输出的程序
竺亨19386628554…… '************************************************************************* '**函 数 名:FindTxt '**输''''入:fPath(String) - 待查找的文件的名(带路径 '**'''''''':fText(String) - 要查找的内容 '**输''''出:(String) - 如果有符合条件的内容,则返回最前的一行...
@于苛6591：VB文件操作.如何把一个文档的内容全部读出来.并输出到TEXT控件中顺序操作 谢谢 请写一下过程代码 -
竺亨19386628554…… Private Sub Command1_Click()Open Path For Input As #1 Input #1, Text1.TextClose #1End Sub其中的path就是文档文件的路径及文件名
@于苛6591：VB文件操作.如何把一个文档的内容全部读出来.并输出到TEXT控件中顺序操作 -
竺亨19386628554…… TXT文件的读取使用Binary模式比input模式少一些错误,下面是最简单的读取方法Open ＂TXT文件＂ For Binary As #1Text1.Text = Input(LOF(1), 1)Close 1
@于苛6591：怎么用VB读取一个TXT格式的文件?
竺亨19386628554…… Open App.Path & ＂\123.txt＂ For Output As #1 '将内容写进txtPrint #1, Text1.TextPrint #1, text2.TextClose #1'text3读取123.tet内容 Open App.Path & ＂\123.txt＂ For Input As #1Dim Lines As StringDim NextLine As StringDo Until EOF(1)Line ...
@于苛6591：VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
竺亨19386628554…… 你可以先从环境变量中获取桌面的地址,这样就不会随着机器的不同而造成程序的影响了 str = Environ(＂USERPROFILE＂) & ＂\桌面\＂ '获取桌面路径 file=str & ＂\YourTxt.txt＂ '这里是你要读取的txt文件名 list1.clear '先清空列表框 open file for input as #1 '打开这个文件开始读内容 do while not eof(1) line input #1,s '读取一行给s list1.AddItem s 把s添加到列表框 loop close #1 '直到读完关闭文件
@于苛6591：请教vb读取编辑txt文件并 -
竺亨19386628554…… '写文件 Open ＂C:\1.txt＂ For Output As #1 '以输出方式打开文件 Print #1, ＂桂林山水甲天下.＂ Close #1 ' 关闭文件.End Sub'读文件 Dim LStr as string Open ＂C:\1.txt＂ For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 Line Input #1, LStr '读入一行 Loop Close #1 ' 关闭文件.Print LStr
@于苛6591：VB读取TXT文件内容 -
竺亨19386628554…… '首先你的建立个a.txt的文件 然后随便写些什么 然后放到C盘根目录下 示例代码如下: Private Sub Form_Click() Open ＂c:\a.txt＂ For Input As #1 Do While Not EOF(1) Input #1, b Text1.Text = Text1.Text & b Loop End Sub
@于苛6591：VB打开一个文件夹下所有的*.txt文件并且对其进行读取操作 -
竺亨19386628554…… dim aa as string aa =dir (＂一个文件夹的路径\*.txt＂) do while aa＂＂'打开这个＂一个文件夹的路径\＂ & aa TXT文件,并读取 aa =dir() loop
@于苛6591：VB读取外部TXT数据逐行修改然后输出TXT文件
竺亨19386628554…… Dim s As String, t() As String Open App.Path & ＂\123.txt＂ For Input As #1 Open App.Path & ＂\直选.txt＂ For Output As #2 Open App.Path & ＂\组六.txt＂ For Output As #3 Open App.Path & ＂\组三.txt＂ For Output As #4 Do Until EOF(1) Line ...
