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

[garylee999999]

我把数据库某表导出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

其中有个问题，名字那列当出现两个字的时候，它是前对齐，而第三列的数字却后面对齐，我应该怎么实现?
请高手门帮忙。

[Tiger_Zhao]

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

[of123]

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

[garylee999999]

问题是我用的模块函数来导出到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

[garylee999999]

我用4楼的方法基本可以实现，问题是第二列是中文名字，如果是两个字的，就会出现不对齐了，怎么解决啊，有人跟我说说吗 。。。。。

[chinaboyzyq]

Private Sub Command1_Click()
'x1.txt内容如下：
'123  李小明  233  a
'1234  邓双双  43  b
'12  郭若  556  c
'22222  陈小三  44  d
'第二列名字的第一个字对齐，第三列数字最后一位对齐，第四列是第一位对齐
'生成文件x2.txt

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
    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 #2

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)
    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

[chinaboyzyq]

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

试试

[vbman2003]

比如最直接的方法：

　　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 

[chinaboyzyq]

稍简化一下程序：

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 #2

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
    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

[Tiger_Zhao]

全中文就用中文空格补齐

WritStr = WritStr & Left$(rs("Name") & string(4,"　"),4)

或者在 SQL 语句中用中文空格补齐，更方便一点。

[garylee999999]

sql怎么补中文空格啊

[garylee999999]

呃，编辑后出来的效果不同，我补充说明下
第二个表要求（我想实现的），第二列名字的第一个字对齐，第三列数字最后一位对齐，第四列是第一位对齐

[gooore]

http://topic.csdn.net/t/20040715/11/3176792.html

google或者Baidu一下吧，好多

[king06]

关注~

[vbman2003]

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

[贝隆]

学习