VB求救TXT文件

来源：百度知道 编辑：UC知道 时间：2024/05/22 09:49:34
我想向TXT文件里写东西要求如下：
生日快乐 太委屈 两只蝴蝶 泪的小花
加倍 浪人情歌 康定情歌 宁夏
记事本 回心转 景物们 黄金甲
哪个女孩 不想长大 独角戏 男人海洋
把每一列的第一个字排齐，
大哥大姐帮忙把？写一段代码 T
生日 太委屈 两只蝴 泪的小花
加倍 浪人情 康定情 宁夏
记事 回心转 景物们 黄金甲
哪个 不想长 独角戏 男人海洋
你误会了我要求的是每一个竖列的第一个字冲齐
每一个词组中字的个数不固定，并且是在变量里的
我不用定义数组，我是用数据库里向一个变量付值的，有10000多个呢

生日 太委屈 两只蝴 泪的小花
加倍 浪人情 康定情 宁夏
记事 回心转 景物们 黄金甲
哪个 不想长 独角戏 男人海洋

假定有100个这样的变量，定义一变量数组:
DIM A(1 TO 100) AS STRING
并且就这些输值到变量中，然后：
DIM B AS INTEGER,I AS INTEGER,J AS INTEGER,C AS STRING
FOR I=1 TO 100
B=LEN(A(I))
FOR J=1 TO 8-B
C=C & " " '(注意" "是一个空格)
NEXT J
A(I)=A(I) & C
C="" '(C清空)
B=0
NEXT I
得到的新的数组后面有8-字数的空格，然后再排序就可以了。

open "c:\...." for output as #1
print #1,"生日快乐 太委屈 两只蝴蝶 泪的小花" vbcr "加倍 浪人情歌 康定情歌 宁夏"
close #1

Open "c:/abc.txt" For Output As #1
Write #1, "生日快乐 太委屈 两只蝴蝶 泪的小花 "
Write #1, "加倍 浪人情歌 康定情歌 宁夏 "
Close #1
字少的就打两个空格

生日 太委屈 两只蝴 泪的小花
加倍 浪人情 康定情 宁夏
记事 回心转 景物们 黄金甲
哪个 不想长 独角戏 男人海洋

怎么个意思？没明白
open app.path & "\1.txt" for out put as 1
print #1，"生日 太委屈 两只蝴 泪的小花 "
prin