VB如何将数据进行合并,求编程序

我要读取的数据date,lat,tp,emin,emax

date,lat,tp在一个文件里1.txt
emin,emax在一个文件里2.txt
如何将两个同时循环读取呢
最后得出3.txt

下面是读一个文件的方法:
dim text
open"c:\windows\system.ini" for input as #1 '打开文件
do while not eof(1) '循环至文件尾
line input#1,text '读入一行数据并将其赋予某变量
debug.print text ’在立即窗口中显示数据
loop
close#1 '关闭文件

这里给你示例读2个文件的:
dim A,B
open"c:\1.txt" for input as #1
open"c:\2.txt" for input as #2
do while not eof(1)
line input #1,A '这个A是读到的1.txt的数据
line input #2,B '这个B是读到的2.txt的数据
loop
close#1
close#2追问

可是我的A和B是对应的,只循环A的话,B也是相应在循环吗

追答

如果A\B是独立而不是同步的数据 那就需要做两个独立的循环 至于你怎么运用数据 那就是自己的事情了
dim A,B
open"c:\1.txt" for input as #1
do while not eof(1)
line input #1,A '这个A是读到的1.txt的数据
loop
close #1
open"c:\2.txt" for input as #2
do while not eof(1)
line input #2,B '这个B是读到的2.txt的数据
loop
close #2

追问

AB是同步的

追答

A\B同步的情况下按我上面那样就可以

温馨提示:内容为网友见解,仅供参考
第1个回答  2015-01-19
input #1,date,lat,tp

input #2,emin,emax追问

能具体点吗?

追答

这也看不懂,就算了。

VB如何将数据进行合并,求编程序
dim text open"c:\\windows\\system.ini" for input as #1 '打开文件 do while not eof(1) '循环至文件尾 line input#1,text '读入一行数据并将其赋予某变量 debug.print text ’在立即窗口中显示数据 loop close#1 '关闭文件 这里给你示例读2个文件的:dim A,B open"c:\\1.txt"...

VB 我要合并成“汇总.mdb",里面建立"表1"汇总1.mdb和2.mdb里的“表1...
1、要将那些需合并的mdb数据库放在同一文件夹中,这样可以实现自动生成;如果不在同一文件夹,要手动添加实现;2、通过VB Running Script获取指定文件夹中需合并的mdb文件,取得每一个文件名;3、通过DAO或ADO实现生成一个数据库,里面有格式与需合并mdb数据库中相同结构的表;4、通过DAO或ADO实现将每个...

VB合并重复项并统计数量的算法,怎么样处理能将数据合并?
在 VB 把原来的 2 列数读到一个 2 维数组,按名称排序然后合拼同名的数量。

VB 如何以二进制方式合并和拆分文件
Private Sub Command1_Click()'文件合并 Dim Buff() As Byte, i As Integer, Flen As Long, PicFlen As Long Dim DocName() As Byte, DocLen As Long For i = 1 To 3 Open App.Path & "\\b" & i & ".doc" For Binary Access Read As #11 Flen = LOF(11) ...

请问VB如何用ADODC控件实现两个数据表的合并
很简单的.首先建立一个表,然后打开两个表依次读取数据,加入其中.注:建立表的Create语句在Access中可能无效 需要的话加15502869

在VB下,如何将ACCESS中的3个数据表合并成另外一个总表
考虑到 Access 支持 SQL 查询语言,可以直接在 Access 内部利用 SQL 语句将多个表的数据合并到一个表中。这种方式通常比在外部程序中合并数据更加高效和直接。显示数据表在编程中并非VB的核心强项,不过借助于大量可用的控件,确实可以实现数据的可视化显示。例如,FlexGrid 控件就是一种常见的用于显示表格...

vb程序设计题,请高手解答
Vb编程实现两个有序数组的合并,即二路归并 数组A和数组B分别记录有一些数据,这两个数组上的数据都已经由小到大按顺序排列好。请用vb编写一个程序把这此数据合并到同一个数组之中,并使得合并后的数据全部按由小到大排列。这就是所谓的“二路归并”。在编写这个程序时先进行说明一下,首先,大量...

...的某两个单元格进行判断,并给其他单元格进行合并?
首先,先选择要合并的单元格区域。选择单元格区域后,用点击开始选项卡中的“复制”按钮或者按键盘的“Ctrl+C”键等方法进行复制。复制后点击开始选项卡中下图所示的“剪贴板”功能区右下角的按钮,这个按钮比较小。点击后会打开Excel自带的剪贴板,在剪贴板中会显示已复制的内容。此时用鼠标双击要粘贴的...

VB编程中数据库里面的数据如何合并?datagrid显示时同一日期里面多列...
Private Sub Form_Activate()With MSHFlexGrid1 .FixedRows = 2 .Cols = 11 .TextMatrix(0, 0) = "序号".TextMatrix(1, 0) = "序号".TextMatrix(0, 1) = "代码".TextMatrix(1, 1) = "代码".TextMatrix(0, 2) = "村名".TextMatrix(1, 2) = "村名".TextMatrix(0, 3) = "县...

如何在vb中将两个有序数组合并成一个新的有序数组
可以使用redim和重新排序的功能 就可以完成了

相似回答