Vb6.0关于txt的读出
更新日期：2024.05.19
【调用】
Private Sub Command1_Click()
Text1.Text = lzReadFile("D:\1.txt")
End Sub
【函数】读文件函数
'---------------------------------------
'--参数：文件名(路径+名称)
'--返回值：文件内容
'---------------------------------------
Public Function lzReadFile(ByVal strFileName As String) As String
'文件句柄（文件号）
Dim nFileNum As Long
'存放文件内容
Dim strAll As String
'存放文每行的内容
Dim strLine As String
'获取空文件句柄(获得尚未被占用的文件号中的头一个)
nFileNum = FreeFile()
'打开文件,并设置句柄
Open strFileName For Input As nFileNum
'循环读取文件
Do While Not EOF(nFileNum)
Line Input #nFileNum, strLine
strAll = strAll + strLine + vbCrLf 'vbCrLf 换行
Loop
'返回值
lzReadFile = strAll
Close(nFileNum)
End Function
17061078239 :用vb6.0,获取两个txt文本内容,然后把两个文本里相同一数据保留下来并存...
姚霄底2599 :答：代码先读取两个文本中的内容，然后将每个文本的行分别存储到数组 arrA 和 arrB 中，接着遍历数组 arrA 和 arrB，找到相同的三位数，将其存储到变量 x 中，并在 x 中保留原有行的换行符（vbCrLf），最后将变量 x 写入新文件 x.txt。
17061078239 :VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
姚霄底2599 :答：Option ExplicitPrivate Sub Form_Load()Dim FileNo As Integer Dim PathName As String, FileName As String Dim tmp As String Me.Show PathName = Environ("USERPROFILE") & "\桌面\"FileName = "1.txt"On Error Resume Next FileNo = FreeFile Open PathName & FileName For Input As FileN...
17061078239 :VB6.0 读取文本每行内容,处理后写入另一文本?
姚霄底2599 :答：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As IntegerDim intOutputFile As IntegerDim strLine As String' 指定输入和输出文件路径strInputFilePath = "C:\Path\To\Input\File\a.txt"strOutputFilePath = "C:\Path\To\Output\File...
17061078239 :vb如何读取txt中的数组
姚霄底2599 :答：这取决于txt文件的数据结构 Input # 语句 从已打开的顺序文件中读出数据并将数据指定给变量。语法 Input #filenumber, varlist Input # 语句的语法具有以下几个部分：部分 描述 filenumber 必要。任何有效的文件号。varlist 必要。用逗号分界的变量列表，将文件中读出的值分配给这些变量；这些...
17061078239 :VB6.0读取TXT的问题
姚霄底2599 :答：TextLine Open "TESTFILE" For Input As #1' 打开文件。Do While Not EOF(1)' 循环至文件尾。Line Input #1, TextLine' 读入一行数据并将其赋予某变量。Debug.Print TextLine' 在调试窗口中显示数据。Loop Close #1' 关闭文件。他是自动读过第一行，指向第二行的，所以顺序读下去就可以了 ...
17061078239 :Vb6.0关于txt的读出
姚霄底2599 :答：Text1.Text = lzReadFile("D:\1.txt")End Sub 【函数】读文件函数 '--- '--参数：文件名(路径+名称)'--返回值：文件内容 '--- Public Function lzReadFile(ByVal strFileName As String) As String '文件句柄（文件号）Dim nFileNum As Long '存放文件内容 Dim strAll As String '...
17061078239 :VB6.0 读取文本文件(*.txt)的问题
姚霄底2599 :答：BB() As Byte If Dir(FileName) = "" Then Exit Function i = FreeFile ReDim BB(FileLen(FileName) - 1)Open FileName For Binary As #i Get #i, , BB Close #i s = StrConv(BB, vbUnicode)GetFile = s End Function '调用举例：dim s as string s=GetFile("c:\1.txt")...
17061078239 :VB6.0 读取本地1.TXT 把1.TXT第一行的值给TEXT1,把1.TXT第二行的值给T...
姚霄底2599 :答：建立一个窗体，上面放3个文本框，分别叫text1、text2、text3，放一个按钮叫Command1。1.txt文件放在程序当前目录 Private Sub Command1_Click()Dim b As String Open App.Path & "\1.txt" For Input As #1 Line Input #1, b Text1.Text = b Line Input #1, b Text2.Text = b Line ...
17061078239 :VB6.0读取TXT内容
姚霄底2599 :答：Dim n As Integer Dim LinStr As String Dim i As Integer n = 0 Open "c:\1122.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 n = n + 1 ReDim Preserve SZtxt(1 To n) As String '数组增加1个元素 Line Input #1, LinStr '读...
17061078239 :VB6.0如何读取TXT中的数据并求和
姚霄底2599 :答：End Sub 读取文件的话，用下面的代码：Private Sub Command1_Click()Dim txt1 As String, txt2 As String, txt3 As String Open "d:\123\1.txt" For Input As #1 txt1 = Input(LOF(1), 1)Close #1 Open "d:\123\2.txt" For Input As #1 txt2 = Input(LOF(1), 1)Close #1 ...
Private Sub Command1_Click()
Text1.Text = lzReadFile("D:\1.txt")
End Sub
【函数】读文件函数
'---------------------------------------
'--参数：文件名(路径+名称)
'--返回值：文件内容
'---------------------------------------
Public Function lzReadFile(ByVal strFileName As String) As String
'文件句柄（文件号）
Dim nFileNum As Long
'存放文件内容
Dim strAll As String
'存放文每行的内容
Dim strLine As String
'获取空文件句柄(获得尚未被占用的文件号中的头一个)
nFileNum = FreeFile()
'打开文件,并设置句柄
Open strFileName For Input As nFileNum
'循环读取文件
Do While Not EOF(nFileNum)
Line Input #nFileNum, strLine
strAll = strAll + strLine + vbCrLf 'vbCrLf 换行
Loop
'返回值
lzReadFile = strAll
Close(nFileNum)
End Function
姚霄底2599 :答：代码先读取两个文本中的内容，然后将每个文本的行分别存储到数组 arrA 和 arrB 中，接着遍历数组 arrA 和 arrB，找到相同的三位数，将其存储到变量 x 中，并在 x 中保留原有行的换行符（vbCrLf），最后将变量 x 写入新文件 x.txt。
姚霄底2599 :答：Option ExplicitPrivate Sub Form_Load()Dim FileNo As Integer Dim PathName As String, FileName As String Dim tmp As String Me.Show PathName = Environ("USERPROFILE") & "\桌面\"FileName = "1.txt"On Error Resume Next FileNo = FreeFile Open PathName & FileName For Input As FileN...
姚霄底2599 :答：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As IntegerDim intOutputFile As IntegerDim strLine As String' 指定输入和输出文件路径strInputFilePath = "C:\Path\To\Input\File\a.txt"strOutputFilePath = "C:\Path\To\Output\File...
姚霄底2599 :答：这取决于txt文件的数据结构 Input # 语句 从已打开的顺序文件中读出数据并将数据指定给变量。语法 Input #filenumber, varlist Input # 语句的语法具有以下几个部分：部分 描述 filenumber 必要。任何有效的文件号。varlist 必要。用逗号分界的变量列表，将文件中读出的值分配给这些变量；这些...
姚霄底2599 :答：TextLine Open "TESTFILE" For Input As #1' 打开文件。Do While Not EOF(1)' 循环至文件尾。Line Input #1, TextLine' 读入一行数据并将其赋予某变量。Debug.Print TextLine' 在调试窗口中显示数据。Loop Close #1' 关闭文件。他是自动读过第一行，指向第二行的，所以顺序读下去就可以了 ...
姚霄底2599 :答：Text1.Text = lzReadFile("D:\1.txt")End Sub 【函数】读文件函数 '--- '--参数：文件名(路径+名称)'--返回值：文件内容 '--- Public Function lzReadFile(ByVal strFileName As String) As String '文件句柄（文件号）Dim nFileNum As Long '存放文件内容 Dim strAll As String '...
姚霄底2599 :答：BB() As Byte If Dir(FileName) = "" Then Exit Function i = FreeFile ReDim BB(FileLen(FileName) - 1)Open FileName For Binary As #i Get #i, , BB Close #i s = StrConv(BB, vbUnicode)GetFile = s End Function '调用举例：dim s as string s=GetFile("c:\1.txt")...
姚霄底2599 :答：建立一个窗体，上面放3个文本框，分别叫text1、text2、text3，放一个按钮叫Command1。1.txt文件放在程序当前目录 Private Sub Command1_Click()Dim b As String Open App.Path & "\1.txt" For Input As #1 Line Input #1, b Text1.Text = b Line Input #1, b Text2.Text = b Line ...
姚霄底2599 :答：Dim n As Integer Dim LinStr As String Dim i As Integer n = 0 Open "c:\1122.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1) ' 循环至文件尾 n = n + 1 ReDim Preserve SZtxt(1 To n) As String '数组增加1个元素 Line Input #1, LinStr '读...
姚霄底2599 :答：End Sub 读取文件的话，用下面的代码：Private Sub Command1_Click()Dim txt1 As String, txt2 As String, txt3 As String Open "d:\123\1.txt" For Input As #1 txt1 = Input(LOF(1), 1)Close #1 Open "d:\123\2.txt" For Input As #1 txt2 = Input(LOF(1), 1)Close #1 ...
