Question

VB TEXT 输出内容如何设置显示格式

如图，如何设置格式？因为19和20,29和30……在原文件中是换行的。但是因为操作了“杀直选”命令，结果栏少了某些内容，就自动往前替补，但是却没有了空格？本人代码如下：
Private Sub Command1_Click()
Dim a, b, c As String
a = Split(Text1, " ") ' 提取需要剔除的数
b = Text2
For i = 0 To UBound(a)
b = Replace(b, a(i), "") '循环依次替换
Next
Text3 = Replace(Trim(b), " ", " ") '两边去空格，两个空格替换成一个空格（因为上面替换后会产生两个空格）
End Sub
请教如何增加一段代码？使其换行的内容往前替补时多出一个空格？

Answer 1

Text1 = Replace(Text1, vbcrlf, " ") '先把换行换成空格

a = Split(Text1, " ") ' 提取需要剔除的数

如果你的换行不是vbcrlf，可以试试用chr(13)或chr(10)代替vbcrlf

Answer 2

在字符串之间加vbtab，就可以对准了，
还有format,leftpad函数可以左补齐你先查查。

Answer 3

没看懂啥意思，是不是Split前要先把换行符换成空格再处理
Text1= Split(Text1, Chr(10)," ")