怎样把listView里面的数据输出到文本里

[飞羽]

怎样把listView里面的数据输出到文本里，然后对齐排列成如下形式：

时间 用户 子系统名称 登陆计算机名

2003年06月27日12:24:55 wxz 内容内容内容 WXZ
2003年06月27日12:24:55 wxz asdas影 WXZ
2003年06月27日12:24:55 wxz 市内容内容内容统 WXZ
2003年06月27日12:24:55 wxz 内容内容内容 WXZ
2003年06月27日12:24:55 6 内容内容内容内容 SQY
2003年06月27日12:24:55 wxz 内容内容内容理 WXZ

要严格对齐。

[windcandle]

写程序，读一行，写一行。

[飞羽]

谢谢，这个我知道，我想要具体的算法。

[yzx99]

大概用这种思想
Private Sub Command1_Click()
Debug.Print "2003年06月27日12:24:55" & Space(25 - lTrueLen("2003年06月27日12:24:55")) & _
"wxz" & Space(8 - lTrueLen("WXZ")) & _
"内容内容内容理" & Space(40 - lTrueLen("内容内容内容理")) & _
"WXZ"
End Sub

'获取字符串的长度,中文为2英文为1
Public Function lTrueLen(ByVal sTest As String) As Long
lTrueLen = LenB(StrConv(sTest, vbFromUnicode))
End Function

[yzx99]

至于文件操作应该不要说吧

[飞羽]

我试试看

[飞羽]

可是像这种中英都有的字符串：“asdas影”该咋办？

[rainstormmaster]

LenB(StrConv(sTest, vbFromUnicode))


严格对齐的话，建议使用定长字符串