VB逐行读取TXT
VB逐行读取TXT,我需要vb能实现逐行读取txt文本，当读完第一行后，赋值在textbox中，再次单击command后，读第二行，赋值在textbox中，以此类推，直到读完txt文本。恳请同在一片蓝天下的中国人帮帮忙啊！
Dim i As Integer
Dim TempStr As String, Temp() As String
Dim FileNum As Integer
FileNum = FreeFile
Open FileSpec For Input As #FileNum
Do While Not EOF(1)
Line Input #FileNum, TempStr
i = i + 1
ReDim Preserve Temp(1 To i) As String
Temp(i) = TempStr
Loop
GetLineStr = Temp
Close #FileNum
End FunctionPrivate Sub Command1_Click() '调用示例
Dim FileSpec As String 'txt路径
Static i As Integer
Dim LineStr() As String
i = 1
If i = UBound(LineStr) Then
MsgBox "文件已结束"
i = 1
End If
FileSpec = "d:\1.txt"
LineStr = GetLineStr(FileSpec)
text1.Text = LineStr(i)
i = i + 1
Next
Private Sub Form_Load()
Open "C:\123.txt" For Input As #1
End Sub
Private Sub Command1_Click()
On Error Resume Next
Dim str As String
Line Input #1, str
Text1.Text = str
End Sub本回答被网友采纳
Dim s As String
While Not EOF(1)
Line Input #1, s
Text1.Text = s
Wend
End Sub
Private Sub Form_Load()
Open "d:\new\high.txt" For Input As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End
End Sub
vb程序打开超大txt文件(10M)
为了实现这一点，首先创建一个FileSystemObject实例，然后通过该对象的openTextFile方法打开指定路径的文本文件，如“F:\\test.txt”。接着，通过循环逐行读取文件内容。完成后，确保使用close方法关闭文件对象，释放资源。在使用过程中，记得在“工程”-“引用”中引入“Microsoft Scripting Runtime”。在代码中...
vb 逐行读取文本文件
用Open打开文件，然后用Line行读取即可。代码如下：Dim tempStr as String '定义变量tempStr为字符串Open "C:\\Test.txt" For Input As #1 '打开文件While Not EOF(1) '读取到结束 Line Input #1, tempStr '读取一行到变量tempStr'对应的处理Wend '未结束继续Close #1 '关闭 ...
VB逐行读取TXT
Private Sub Form_Load()Open "C:\\123.txt" For Input As #1 End Sub Private Sub Command1_Click()On Error Resume Next Dim str As String Line Input #1, str Text1.Text = str End Sub
VB逐行读取TXT
Function GetLineStr(FileSpec As String) As String() '获取filespec路径下文件每一行内容，并写入数组函数中 Dim i As Integer Dim TempStr As String, Temp() As String Dim FileNum As Integer FileNum = FreeFile Open FileSpec For Input As #FileNum Do While Not EOF(1)Line Input #Fil...
VB6.0中如何实现逐行读入文本文件?
VB6.0可以用一次读取文本文件全部文本内容，然后使用Split函数来实现一行一行提取文本框行内容。Split函数，返回一个下标从零开始的一维数组，它包含指定数目的子字符串。以下代码是可以提取文本文件任何一行内容的：Private Sub Command1_Click() Dim strWj As String Dim strj() As String Dim...
VB读取外部TXT数据逐行修改然后输出TXT文件
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 Input #1, s t = ...
vb 逐行读取TXT文件内容 譬如每一行类型都是XXXABC,并导入到LIST1中...
Open "test.txt" For Input As #1 Do While Not EOF(1)Line Input #1, str str = UCase(Trim(str))For i = 0 To List1.ListCount - 1 If List1.List(i) = str Then Exit For Next If str <> "" And j = List1.ListCount Then List1.AddItem str Loop Close #1 End Sub ...
vb 中怎样按行逐句读入TXT文件
Open "D:\\abc.txt" For Input As #1 End Sub Private Sub Timer1_Timer()Dim strLine As String Dim abc() As String Dim i As Integer Line Input #1, strLine abc = Split(strLine, ",")If UBound(abc) = 2 Then For i = 0 To 2 Select Case UCase(Left(abc(i), 2))Case ...
vb中关于逐行对比txt文本数据的问题
Open "c:\\123.txt" For Input As #1 Do Until EOF(1)Line Input #1, nextline '1行读入 x = nextline If Val(a) = Val(x) Then Unload Me Form0.Caption = "你的注册码已被列入黑名单"Form0.Show flag = True Exit Do End If Loop Close #1 If flag = False Then Unload Me Fo...
vb.net问题 如何读取一个txt文件的内容并判断
Dim r As New StreamReader("C:\\jq.TXT") '打开文件 Dim Mytxt As String = ""Dim s As String Do While r.Peek > -1 '是否到文件尾 s = r.ReadLine '从打开的文件中读取一行内容 Mytxt = Mytxt & s & vbCrLf '逐行读取文本，并连接到变量Mytxt中 Loop r.Close() '关闭...
