Question

用vb 写txt文件怎样才能实现数据的右对齐？

如题，比如
1233 322222
45 3310

Answer 1

在写入数值时使用 Format 函数：
Format(x,String(n,"@"))
此函数的执行结果就是左侧空格的右对齐文本，
其中 x 是要转化的数字（或文本），n 是数字（或文本）的最大位数
例如，当 x = 200，n = 5 时，此函数的执行结果为：
  200

Answer 2

Dim s As String
Dim s1 As String
Dim s2 As String
Open "c:\1.txt" For Outut As #1

s1 = "1233 322222"
s2 = "45 3310"

s = s1
s = Space$(20 - Lenb(s)) & s
Printf #1, s
s = s2
s = Space$(20 - Lenb(s)) & s
Printf #1, s

Close #1

Answer 3

Text1.Alignment = 1
0左 1右 2中

Answer 4

Private Sub Command1_Click()

Dim hFile As Long
Dim pFile As String
Dim a, tmp
Dim s As String
Dim i As Long, j As Long

a = Array("1233 322222", "45 3310")
pFile = "d:\test.txt"
hFile = FreeFile
Open pFile For Output As hFile
For i = 0 To UBound(a)
tmp = Split(a(i), Space(1))
For j = 0 To UBound(tmp)
s = Space(8) '这个你根据需要定义长度
RSet s = tmp(j) '用RSet语句实现右对齐
tmp(j) = s
Next
Print #hFile, Join(tmp)
Next
Close
End Sub