vb读取txt全部内容
@良腾2456：vb里面怎么读取TXT文档里面的内容 -
雕受15011435972…… Dim MyStr As String Dim LStr As String MyStr=＂＂ Open ＂C:\123.txt＂ For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 Line Input #1, LStr '读入一行 MyStr = MyStr & LStr & vbCrLf Loop Close #1 ' 关闭文件. Print MyStr
@良腾2456：VB读取TXT文件内容 -
雕受15011435972…… '首先你的建立个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
@良腾2456：vb 读取txt文件内容 -
雕受15011435972…… 函数: Function FileRead(PathFile As String, Optional Fore As String, Optional Back As String) As String '════════取得文件中的部分或全部内容════════ ''该函数传回原文件中指定区域的字符串. ''PathFile 字符串,文件的实际路径...
@良腾2456：VB如何读取Txt文件的内容,并且输出
雕受15011435972…… 这种东西不用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
@良腾2456：VB 怎么读txt文件啊! -
雕受15011435972…… 1、使用open语句打开文件,然后读取,可以用line input #按行读,也可用inputb函数一次性读入.2、vb6示例inputb函数一次性读入:Private Sub Command1_Click() Open ＂d:\1.txt＂ For Binary As #1 MsgBox StrConv(InputB(LOF(1), 1), vbUnicode) Close #1 End Sub
@良腾2456：VB怎么读取TXT文件的内容 -
雕受15011435972…… 新建一个工程,然后写窗体代码如下:Option Explicit Private Sub Form_Click() Dim TextLine Open ＂记录.txt＂ For Input As #1 ' 打开文件. Do While Not EOF(1) ' 循环至文件尾. Line Input #1, TextLine ' 读入一行数据并将其赋予某变量. Debug.Print TextLine ' 在立即窗口中显示数据. Loop Close #1 ' 关闭文件.End Sub试试看吧,有什么问题欢迎追问.
@良腾2456：VB 怎么读取和修改TXT文本文件的内容? -
雕受15011435972…… 1.读取某个指定字节 Private Sub Command1_Click() Dim a() As Byte, b As Byte, i As Integer, j, S As String'S = App.Path & ＂\1.txt＂ '请修改为实际文件名 S = ＂C:\Documents and Settings\Administrator\桌面\1.txt＂ ReDim a(FileLen(S)) Open S ...
@良腾2456：vb读取txt文件的内容 -
雕受15011435972…… 读文件:dim inp as string open ＂文件路径如c:\ff.txt＂ for input as #1 input #1,inp close#1 写文件:open ＂文件路径＂ for append as #1 ''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号 close#1
@良腾2456：VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
雕受15011435972…… 你可以先从环境变量中获取桌面的地址,这样就不会随着机器的不同而造成程序的影响了 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 '直到读完关闭文件
@良腾2456：vb 怎么读取TXT内的数据 -
雕受15011435972…… 展开全部 Private Type ReadText sTime As String sName As String sFS As String End Type Dim ReadFile() As ReadText Private Sub Command1_Click() '测试数据 Randomize Timer Dim Time As String Dim Name$, fs Time = Now Name$ = ...
雕受15011435972…… Dim MyStr As String Dim LStr As String MyStr=＂＂ Open ＂C:\123.txt＂ For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 Line Input #1, LStr '读入一行 MyStr = MyStr & LStr & vbCrLf Loop Close #1 ' 关闭文件. Print MyStr
@良腾2456：VB读取TXT文件内容 -
雕受15011435972…… '首先你的建立个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
@良腾2456：vb 读取txt文件内容 -
雕受15011435972…… 函数: Function FileRead(PathFile As String, Optional Fore As String, Optional Back As String) As String '════════取得文件中的部分或全部内容════════ ''该函数传回原文件中指定区域的字符串. ''PathFile 字符串,文件的实际路径...
@良腾2456：VB如何读取Txt文件的内容,并且输出
雕受15011435972…… 这种东西不用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
@良腾2456：VB 怎么读txt文件啊! -
雕受15011435972…… 1、使用open语句打开文件,然后读取,可以用line input #按行读,也可用inputb函数一次性读入.2、vb6示例inputb函数一次性读入:Private Sub Command1_Click() Open ＂d:\1.txt＂ For Binary As #1 MsgBox StrConv(InputB(LOF(1), 1), vbUnicode) Close #1 End Sub
@良腾2456：VB怎么读取TXT文件的内容 -
雕受15011435972…… 新建一个工程,然后写窗体代码如下:Option Explicit Private Sub Form_Click() Dim TextLine Open ＂记录.txt＂ For Input As #1 ' 打开文件. Do While Not EOF(1) ' 循环至文件尾. Line Input #1, TextLine ' 读入一行数据并将其赋予某变量. Debug.Print TextLine ' 在立即窗口中显示数据. Loop Close #1 ' 关闭文件.End Sub试试看吧,有什么问题欢迎追问.
@良腾2456：VB 怎么读取和修改TXT文本文件的内容? -
雕受15011435972…… 1.读取某个指定字节 Private Sub Command1_Click() Dim a() As Byte, b As Byte, i As Integer, j, S As String'S = App.Path & ＂\1.txt＂ '请修改为实际文件名 S = ＂C:\Documents and Settings\Administrator\桌面\1.txt＂ ReDim a(FileLen(S)) Open S ...
@良腾2456：vb读取txt文件的内容 -
雕受15011435972…… 读文件:dim inp as string open ＂文件路径如c:\ff.txt＂ for input as #1 input #1,inp close#1 写文件:open ＂文件路径＂ for append as #1 ''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号 close#1
@良腾2456：VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
雕受15011435972…… 你可以先从环境变量中获取桌面的地址,这样就不会随着机器的不同而造成程序的影响了 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 '直到读完关闭文件
@良腾2456：vb 怎么读取TXT内的数据 -
雕受15011435972…… 展开全部 Private Type ReadText sTime As String sName As String sFS As String End Type Dim ReadFile() As ReadText Private Sub Command1_Click() '测试数据 Randomize Timer Dim Time As String Dim Name$, fs Time = Now Name$ = ...
