请教关于导出到txt后，每列补空格的问题

Question

我把数据库某表导出txt后，出来的效果如下：123  李小明  233  a
1234  邓双双  43  b
12  郭若  556  c
22222  陈小三  44  d我想得到以下的效果，应该怎样让它自动补足空格？123    李小明  233   a
1234   邓双双   43   b
12     郭若    556   c
22222  陈小三   44   d 其中有个问题，名字那列当出现两个字的时候，它是前对齐，而第三列的数字却后面对齐，我应该怎么实现?
请高手门帮忙。 

Answer 1

http://topic.csdn.net/t/20040715/11/3176792.htmlgoogle或者Baidu一下吧，好多

Answer 2

方法应该很多，比如可以用lset,rset语句实现左右对齐
再简单一点就是用format　：
左对齐：format(s,"!@@@@@@")
右对齐：format(s,"@@@@@@")
其中：s是你要对齐的文本，@是点位符（空格）,可以根据s长度来定义多少个@，自己写个函数就能实现你的要求....

Answer 3

如果用工具直接自动导出，通过在 SELECT 语句中对每个字段：拼上前缀/后缀空格后，用 Right/Left 函数截成相同长度。
如果是自己输出文本，用 Format 控制对齐（4楼）。

Answer 4

最好是加 vbTab 对齐。实际上，采用不同字体时，用空格很难对齐。

Answer 5

问题是我用的模块函数来导出到txt，下面是函数的导出部分，我用各位说的办法似乎做不出我想要的效果哦While Not rs.EOF 
                WritStr = "" 
                For i = 0 To rs.Fields.Count - 1 
                    WritStr = WritStr & "" & Trim(ISNULL2SPACE(rs(i))) & "," 
                Next 
                Print #Fid, WritStr 
                rs.MoveNext 
                lngCount = lngCount + 1 
          Wend 

Answer 6

Private Sub Command1_Click()
'x1.txt内容如下：
'123  李小明  233  a
'1234  邓双双  43  b
'12  郭若  556  c
'22222  陈小三  44  d
'第二列名字的第一个字对齐，第三列数字最后一位对齐，第四列是第一位对齐
'生成文件x2.txtDim tmp, tmp1(3), tmp2(3)
Open "c:\x1.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, tmp
    While InStr(tmp, "  ") > 0
         tmp = Replace(tmp, "  ", " ")
    Wend
    tmp1(0) = Split(tmp)(0)
    tmp1(1) = Split(tmp)(1)
    tmp1(2) = Split(tmp)(2)
    tmp1(3) = Split(tmp)(3)
    If tmp2(0) < Len(tmp1(0)) Then tmp2(0) = Len(tmp1(0))
    If tmp2(1) < Len(tmp1(1)) Then tmp2(1) = Len(tmp1(1))
    If tmp2(2) < Len(tmp1(2)) Then tmp2(2) = Len(tmp1(2))
    If tmp2(3) < Len(tmp1(3)) Then tmp2(3) = Len(tmp1(3))
Loop
Close #1
Open "c:\x1.txt" For Input As #1
Open "c:\x2.txt" For Output As #2Do While Not EOF(1)
    Line Input #1, tmp
    While InStr(tmp, "  ") > 0
         tmp = Replace(tmp, "  ", " ")
    Wend
    tmp1(0) = Split(tmp)(0)
    tmp1(1) = Split(tmp)(1)
    tmp1(2) = Split(tmp)(2)
    tmp1(3) = Split(tmp)(3)
    tmp = ""
    tmp1(0) = tmp1(0) & Space(tmp2(0) - Len(tmp1(0)))
    tmp = tmp & tmp1(0) & " "
    For i = 1 To 3
        If IsNumeric(tmp1(i)) Then
           tmp1(i) = Space(tmp2(i) - Len(tmp1(i))) & tmp1(i)
        Else
           tmp1(i) = tmp1(i) & Space((tmp2(i) - Len(tmp1(i))) * 2)
        End If
        tmp = tmp & tmp1(i) & " "
    Next
    tmp = RTrim(tmp)
    Print #2, tmp
Loop
Close #1, #2
    
End Sub

Answer 7

复制，粘贴
C:\x1.txt改成你的原文件路径
c:\x2.txt改成你要的文件路径试试

Answer 8

比如最直接的方法：　　redim WritStr(rs.Fields.Count - 1)
    While Not rs.EOF  
        WritStr(0) = format(rs(0) & "","!@@@@@@")      '左对齐
        WritStr(1) = format(rs(1) & "","!@@@@@@@@@") 　'左对齐
        WritStr(2) = format(rs(2) & "","@@@@@@@")      '右对齐 
        WritStr(3) = format(rs(3) & "","@@@@@@")      '右对齐　
        Print #Fid, join(WritStr) 
        rs.MoveNext 
        lngCount = lngCount + 1 
    Wend 

Answer 9

稍简化一下程序：Private Sub Command1_Click()
'x1.txt内容如下：
'123  李小明  233  a
'1234  邓双双  43  b
'12  郭若  556  c
'22222  陈小三  44  d
'第二列名字的第一个字对齐，第三列数字最后一位对齐，第四列是第一位对齐Dim tmp, tmp1(3), tmp2(3)
Open "c:\x1.txt" For Input As #1
Do While Not EOF(1)
    Line Input #1, tmp
    While InStr(tmp, "  ") > 0
         tmp = Replace(tmp, "  ", " ")
    Wend
    For i = 0 To 3
        tmp1(i) = Split(tmp)(i)
    Next
    For i = 0 To 3
        If tmp2(i) < Len(tmp1(i)) Then tmp2(i) = Len(tmp1(i))
    Next
    
Loop
Close #1
Open "c:\x1.txt" For Input As #1
Open "c:\x2.txt" For Output As #2Do While Not EOF(1)
    Line Input #1, tmp
    While InStr(tmp, "  ") > 0
         tmp = Replace(tmp, "  ", " ")
    Wend
    For i = 0 To 3
    tmp1(i) = Split(tmp)(i)
    Next
    tmp = ""
    tmp1(0) = tmp1(0) & Space(tmp2(0) - Len(tmp1(0)))
    tmp = tmp & tmp1(0) & " "
    For i = 1 To 3
        If IsNumeric(tmp1(i)) Then
           tmp1(i) = Space(tmp2(i) - Len(tmp1(i))) & tmp1(i)
        Else
           tmp1(i) = tmp1(i) & Space((tmp2(i) - Len(tmp1(i))) * 2)
        End If
        tmp = tmp & tmp1(i) & " "
    Next
    tmp = RTrim(tmp)
    Print #2, tmp
Loop
Close #1, #2
    
End Sub

Answer 10

全中文就用中文空格补齐
WritStr = WritStr & Left$(rs("Name") & string(4,"　"),4)
或者在 SQL 语句中用中文空格补齐，更方便一点。