Dim listStr() As String '存放分割后的信息
dim ResultStr as string
dim Intstr as integer'整型变量
Intstr =0'初始化
Do Until EOF(1)
Line Input #1, strLine
ResultStr = ResultStr + strLine & " "
Loop
Close #1
listStr = Split(ResultStr) ' split函数默认用" " 作为分隔符
For i = 0 To UBound(listStr)’开始接收值
If Trim(listStr(i)) <> "" Then
Intstr =Intstr+int(listStr(i))‘这里你自己选择怎么存放，现在此给你累加了....
End If
End If
Next
还有哪里不明白的可以继续问哈本回答被提问者采纳
Dim n4 As Integer, n5 As Integer, n6 As Integer
Open "t.txt" For Input As #1
Input #1, n1, n2, n3, n4, n5, n6
Close #1
Print n1, n2, n3, n4, n5, n6
请教如何读取存放着以空格隔开的一系列数字的文本文件
升序和降序的区别只是IF语句里面的比较符号变化，升序为〉，然后互换。降序为〈，然后前后两个数组元素呼唤。
vb6.0怎样将保存的txt文件给数组赋值,并显示在text控件里?代码怎么写...
回答：好难啊,我看看书
vb读取记事本中每行信息到文本框,并批量建立以此命名的文件夹?
Private Sub Text1_Change()Dim name As String Dim router As String name = Text1.Text '把text文本的内容赋值给name router = "D:\\" & name If Dir(router, vbDirectory) = "" Then '判断是否已经存在同名的文件夹 MkDir router Else MsgBox "D盘已经存在以" & name & "命名的文件夹！...
vb读取文本文件中数字与空格,逗号等如何区分?比如我只要数字,并给变量...
Dim CheckStr As String Dim StrA() As Double '定义数组用于保存数字 Dim TempStr As String Dim NumStr As String Dim i, j As Integer CheckStr = Trim(Text1.Text)i = 1 j = 1 NumStr = ""Do While i <= Len(CheckStr)TempStr = Mid(CheckStr, i, 1) '提取一个字符 Selec...
VB读取文本文件内字符串并赋值给变量
input as #1 'data.txt为存储数据的文件 do until EOF(1) = True '判断是否读到文件结尾 lineinput #1,tx '读入一行 array（a）=split（tx） '分割 for i=0 to ubound(a)b(j,i)=a(i) '赋值 next i j=j+1 loop close #1 '关闭文件 '输出b(,)...
VB 关于打开文件(open "c:\\test.txt" for output as #1 )的疑问
Print #1,Text1.Text '把文本框的内容一次性写入文件 Close #1 2）Write #文件号，[输出列表]其中的输出列表一般指用逗号，分隔的数值或字符串表达式。Write #与Print #的功能基本相同，区别是Write #是以紧凑格式存放，在数据间插入逗号，并给字符串加上双引号。（3） 关闭文件 结束各种读...
请问VB中如何读取txt文件的数据
1、新建一个标准的VB EXE工程，只有一个Form，Form上有两个按钮：Command1和Command2。2、双击Command1添加如下代码 Private Sub Command1_Click()Dim strFile As String Dim intFile As Integer Dim strData As String strFile = "c:\\学生成绩.txt"intFile = FreeFile Open strFile Fo...
VB中如何提取一TXT文档中的数据,并将数据放在数组中。
'在文本文件同路径下新建文本文件，文件名为：Schema.ini，内容为：[ddd.txt]---数据文件名 ColNameHeader=False---无字段名 Format=TabDelimited---使用tab为分隔符 '以下为vb代码：Dim Cnn As ADODB.Connection Dim Rst As ADODB.Recordset Dim SqlStr As String Dim i As Integer Set Cnn =...
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.net怎么按行读取数据到二维数组中,以空格分隔数据格式 -48.437500 0....
用split函数 dim a()a = split("-48.437500 0.000000 -0.000011 0.000011"," ")’按空格将文本拆分成数组赋值给a 得到的是文本，如果想得到数字就a(1) = val(a(1))‘把a(1)的值强制转化成数字赋值给a(1)，全部转换自己弄个循环搞定 大概就这样，你自己试试吧 ...
