VB如何读取TXT文件的数据，然后将数据运算结果再输出到该文件中
该txt文件中有几行数据，每行有3个数据，将这三个数据相加，得到的结果依次输出到这三个数据的后面，请问怎么用VB语言实现？如果是WORD文件呢？
直接用空格分隔的，但是有几个空格不清楚，因为数据大小也不清楚
追答Private Sub Command1_Click()
Dim ss() As String, s As String
Dim tt() As String, t As String
Dim sum As Long
Dim myfile As String
Dim i As Integer, j As Integer
myfile = "d:\1.txt" ‘要读取的文件
Open myfile For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
ss = Split(s, vbCrLf)
Open myfile For Output As #1
For i = 0 To UBound(ss)
tt = Split(ss(i), " ")
t = ""
For j = 0 To UBound(tt)
If tt(j) "" Then
t = t & tt(j) & "+"
sum = sum + Val(tt(j))
End If
Next j
t = Left(t, Len(t) - 1) & "=" & sum
Print #1, t
Next i
Close
End Sub
谢谢大大，成功了，程序我慢慢研究，再次感谢
本回答被提问者采纳VB 怎样将文本框的数据读取和保存到文本文件中?
1、vb读取txt文件内容，以下代码实现把电脑txt中的内容读取到程序文本框text1中。Private Sub Command1_Click()Open App.Path & "\\123.txt" For Input As #1 '备注：App.Path & "\\123.txt"是程序目录下的123.txt Dim Lines As String Line Input #1, Lines '读取文本内容 Close #1 text1.T...
如何让vb调用一个txt文件内容输出到另外一个txt文件
可以将数据先读到数组后，再进行排序，然后重新写入到另一个文件中。
请问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文件中的数据
1.open <文件名> for input as#<文件号> 如果文件不存在则会出错,文件号将在以后操作中取代文件名,范围是[1,511]。2.open <文件名> for output as#<文件号> 建立一个新文件并打开它,如果文件存在就删了再建立。3.open <文件名> for append as#<文件号> 为了在文件尾部追加内容而打开,写...
VB中如何提取一TXT文档中的数据,并将数据放在数组中。
[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 = New ADODB.Connection Set Rst = New ADODB.Recordset ‘ado的文本...
vb如何读取txt中的数组
这取决于txt文件的数据结构 Input # 语句 从已打开的顺序文件中读出数据并将数据指定给变量。语法 Input #filenumber, varlist Input # 语句的语法具有以下几个部分：部分 描述 filenumber 必要。任何有效的文件号。varlist 必要。用逗号分界的变量列表，将文件中读出的值分配给这些变量；这些...
VB6.0中,如何实现读取TXT文件中的内容并在VB上显示出来?
FileName = "1.txt"On Error Resume Next FileNo = FreeFile Open PathName & FileName For Input As FileNo List1.Clear Do While Not EOF(FileNo) ' 循环至文件尾。Line Input #FileNo, tmp ' 读入一行数据并将其赋予某变量。List1.AddItem tmp ' 在立即窗口中显示数据。Loop C...
求高手帮忙啊:vb 中如何从txt文件中将数据读取出来并赋值给二维数组...
假设点击命令按钮Command1就将e:\\aa.txt读入p(i,j)中，Command1的代码如下（你照复制就是）：Private Sub Command1_Click()Dim StrLine As String, a() As String, p(11, 5) As String, i As Long, j As Long Open "e:\\aa.txt" For Input As #1 For j = 0 To 5 Do Until EOF...
用VB读TXT文件 然后将里面的数据按首字母顺序排列 然后输出
dim a(99999) as string dim i as long i=0 open "c:\\a.txt" for input as #1 do if eof(1) then exit do line input #1,a(i)i=i+1 loop close #1 以上代码可以实现读取文本到数组a 如果你用的是VB.NET 最后只需要用A.sort 就可以了。如果用的是VB6就写个排序程序吧。
利用VB读取TXT文件中的数据并输出
Option Base 1 '运行程序前，先在D盘上创建test和test_new两个文件夹 Private Sub Command1_Click() '创建五个.txt文件存放于test中 Dim a%(5, 5), k%, f For f = 1 To 5 Open "d:\/test\/" & f & ".txt" For Output As #f For i = 1 To 5 For j = 1 To 5 k = k ...
