利用vb读取文本中每一行的内容
我在C盘根目录有一个文本文件SAM.txt，行数未知，内容如：
12334
343
sdgf
4353
345
45566
现在要求定义一个数组，用于保存每一行的内容，如定义num（），则num（0）= 12234，num（1） =343，num（2） =sdgf。。。。。。。。
谢谢高手指教！！
dim i as long
i=0
ReDim ri(0)
Open "C:\SAM.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) '循环至文件尾。
Line Input #1, TextLine '读入一行数据并将其赋予某变量。
num(i)=TextLine
i=i+1
ReDim Preserve ri(i)
Loop
Close #1 ' 关闭文件。
注意的是数组长度一般无限制，但是超过内存大小就会提示内存溢出，这个要注意本回答被提问者和网友采纳
Do While Not EOF(1)
Line Input #1,strL
if strA="" then strA=strL else strA=strA & vbcrlf & strL
Loop
Close #1
num=split(strA,vbcrlf)
利用vb读取文本中每一行的内容
dim num()dim i as long i=0 ReDim ri(0)Open "C:\\SAM.txt" For Input As #1 ' 打开文件。Do While Not EOF(1) '循环至文件尾。Line Input #1, TextLine '读入一行数据并将其赋予某变量。num(i)=TextLine i=i+1 ReDim Preserve ri(i)Loop Close #1 ' 关闭文件。注意的是数组长...
vb怎样读取txt文本每一行的指定内容
Dim TextLine Dim ret as String Open "目录\\a.txt" For Input As #1 ' 打开文件。Do While Not EOF(1) ' 循环至文件尾。Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。'这时就是取到的第一行的值了，如果你确定每行都是这种格式“time=123”，那么你就可以用 '下...
vb如何分别读取TXT的每行内容
把读出来的每一行文本装入一个字符串动态数组，数组每个成员即一行。3、如果是想读textbox的每一行，假如每一行都有回车，按回车截取。如果是自动换行没有回车符，需要使用windows API来读每一行。
VB6.0 读取文本每行内容,处理后写入另一文本?
可以通过以下步骤实现这个功能：打开文本文件a，并使用Line Input函数逐行读取内容。对每行内容进行处理，将其修改为所需的格式。将处理后的内容写入新的文本文件b。以下是一个简单的示例代码：Option ExplicitSub Main()Dim strInputFilePath As StringDim strOutputFilePath As StringDim intInputFile As...
vb如何随机读取txt中任意一行的内容,然后输出到Text1.Text?
Dim xx() As String, aa As IntegerPrivate Sub Command1_Click()Text1.Text = "" '清空文本框，这样可以多次点击按钮得到不同的内容Dim zz As IntegerRandomizezz = Int(Rnd * aa + 1) '得到一个随机数Text1.Text = xx(zz) '在文本框显示随机数的一行End SubPrivate Sub Form...
VB如何读取TXT文件,一行一行读取,读取一行msgbox“这一行的内容”,然后...
Private Sub Command1_Click() Dim i As Long Dim j As Long Dim strj() As String ' 设置“CancelError”为 True CommonDialog1.CancelError = True On Error GoTo ErrHandler ' 设置标志 CommonDialog1.Flags = cdlOFNHideReadOnly ' 设置过滤器 CommonDialog1.Fil...
vb提取文本文档中的某几行文字
总归要告诉计算机要提取文本的内容，所以：1，用文本框Text1（设置成多行），输入要提取的文本．2，读取文件 3，在读取的内容里搜索完全匹配的文本（要提取的文本）4，输出找到与否．要解决的问题：1，文件读取（Open 文件标识符 For Input As #1）2，搜索要找的文本内容（用vb的Instr()函数）...
VB怎么读取文本内容特定一行的特定内容
Private Sub Command1_Click()Dim s() As StringOpen "mytext.txt" For Binary As #1s = Split(Input(LOF(1), #1), vbCrLf)Close #1Print "第2行的第2个字符起的3个字符是：";Print Mid(s(1), 2, 3)End Sub s(1)中的1表示第2行（从0起算的），后面的2表示从第2个字符起算，...
VB.net如何读取文本文档的每一行 并把每一行的数据放到对应的文本框中...
Dim AllLine As String() = File.ReadAllLines("Mytxt.txt")For i = 0 To AllLine.length-1 textBox1.Text = textBox1.Text & AllLine(i) & vbCrlf Next
vb获取一个TXT文本中某几行数据
Private Sub Command1_Click()Dim a As String, b As Integer Open App.Path & "\\test.txt" For Input As #1 Do While Not EOF(1)Line Input #1, a If InStr(a, "数据行数＝") > 0 Then b = Val(Mid(a, 6))For i = 1 To 4 Line Input #1, a Text1 = Text1 & a & ...
