[原创]导出文本，实现向左、居中、向右对齐

andymark

用Access本身的工具，导出的效果始终不尽人意。要实现向右居中，定位是关键


下面的例子只提供一种思路，欢迎大家有更好的想法互相交流

[此贴子已经被作者于2006-5-16 23:08:50编辑过]

zxzx2733

kk

accessNew001

了么色额

accessNew001

感觉导出来的东西好乱

andymark

以下是引用accessNew001在2006-5-16 16:34:00的发言：
感觉导出来的东西好乱

上面是效果图，你的导出怎样的,还有打开文本最大化看看

[此贴子已经被作者于2006-5-16 16:41:15编辑过]

K仔

看看技术贴

accessNew001

我导出怎么不是这样 ！ 你多大的分辨 ？ 我最大化还是那样

我的是1024*768

yangxiang

TXT文件怎样实现这样的效果，请举例，多谢！想学！

试过版主的例子，金额字段不向右对齐？

[此贴子已经被作者于2006-6-3 15:07:20编辑过]

andymark

以下是引用yangxiang在2006-6-3 15:02:00的发言：


TXT文件怎样实现这样的效果，请举例，多谢！想学！

试过版主的例子，金额字段不向右对齐？

       好奇怪,在自已的电脑上运行好好的,到别的电脑就不行,你截个图上来,我找找原因

海狸先生

稍稍改了一下 金额带千分位 的代码


Private Sub Command5_Click()
Dim Rs As New ADODB.Recordset
Dim Str As String
Dim Len1 As Integer
Dim Len2 As Integer
Dim Len3 As Integer
Dim Len4 As Integer

Rs.Open "select trim(身份证号),trim(姓名),工资 from Sheet2", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
' 打开输出文件
Open CurrentProject.Path & "\" & "test.txt" For Output As #1
Print #1, "-----------------------------------------------------------------------"
Print #1, Space(6) & "向左对齐" & Space(15) & "中间对齐" & Space(20) & "向右对齐"     '打印表头
Print #1, "------------------------------------------------------------------------"   '打印表头
Print #1, Space(6) & "身份证号" & Space(15) & "姓    名" & Space(20) & "金    额"         '打印表头
Print #1, "-----------------------------------------------------------------------"

Do While Not Rs.EOF

    Len1 = LenB(StrConv(Rs(1), vbFromUnicode))
    Len2 = Len((Format(Rs(2), "#,###.00")))

    Len3 = 10 - (Len1 - 8) \ 2
    Len4 = 28 - Len2 + 18 - Len3 - Len1

    Str = Rs(0) & Space(Len3) & Rs(1) & Space(Len4) & Format(Rs(2), "#,###.00")

    Print #1, Str   ' 将数据写入文件。
    Rs.MoveNext
Loop

Close #1    ' 关闭文件
Rs.Close
Call ShellExecute(hwnd, "Open", "test.txt", "", CurrentProject.Path, 1)
End Sub

[此贴子已经被作者于2006-6-4 19:02:14编辑过]