编程论坛 → VB6论坛

请教如何将4个文本文件按要求合并成一个文件？

ictest 发布于 2018-04-18 20:33， 2355 次点击

有4个文本文件（A.txt；B.txt；C.txt；D.txt），格式如下：
A.txt
          A A A A A A A
  A A A A A A A A A A A A A A A A

B.txt
          B B B B B B B
  B B B B B B B B B B B B B B B B

C.txt
          C C C C C C C
  C C C C C C C C C C C C C C C C

D.txt
          D D D D D D D
  D D D D D D D D D D D D D D D D

注：文件中并不是A、B、C、D，是无规律的单个数字，例如A.txt中内容就是：
          2 4 5 1 7 3 2
  6 3 2 7 1 3 4 6 2 1 2 1 1 8 2 5
为了后面说得清楚，暂时用相同字母代替。

现在想将四个文件合并成一个文件，内部每一字符相互穿插，最后形成的格式如下：

          ABABABABABABAB
          CDCDCDCDCDCDCD
  ABABABABABABABABABABABABABABABAB
  CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCD

敬请各位路过的大神帮助帮助，教教我如何编写这段程序。

只有本站会员才能查看附件，请登录

3 回复

#2

xiangyue05102018-04-19 08:39

建立四组变量A()、B()、C()、D()，打开文件将数据分布读取并赋值到变量上去
创建新文件，依次将A(i)、B(i)、C(i)、D(i)，中间需要做些判断，跳过空字符

顺便说一句：真的服了你了，玩了VB这么久，还在最基础的字符串操作上纠结。还是放弃吧

#3

wds12018-04-19 09:22

组合顺序:
1、读取a和b的行合并输出并换行
2、读取c和d的行合并输出并换行

Private Sub Command1_Click()
  Dim temp(4) As String
  Dim i As Long
  Open "d:\a.txt" For Input As #1
  Open "d:\b.txt" For Input As #2
  Open "d:\c.txt" For Input As #3
  Open "d:\d.txt" For Input As #4
  Open "d:\1.txt" For Output As #5
  Do While Not EOF(1) And Not EOF(2) And Not EOF(3) And Not EOF(4)
    Line Input #1, temp(0)
    Line Input #2, temp(1)
    For i = 1 To Len(temp(0))
      Print #5, Mid(temp(0), i, 1) & Trim(Mid(temp(1), i, 1));
    Next
    Print #5, vbCrLf

    Line Input #3, temp(2)
    Line Input #4, temp(3)
    For i = 1 To Len(temp(2))
     Print #5, Mid(temp(2), i, 1) & Mid(temp(3), i, 1);
    Next
    Print #5, vbCrLf
  Loop
  Close #1: Close #2: Close #3: Close #4:     Close #5
End Sub

#4

ictest2018-04-19 11:19

非常感谢wds1版主，虽然运行后有些错位，但剩下来我自己琢磨自己修改，再次感谢wds1版主！

1