将多列列表框保存到文本文件

Keith · 发表于 2007-9-4 09:18:00

我有一个多列列表框，有块名和计数。我想将信息保存到TXT文件中，但要维护列。我知道如何保存到TXT文件，但我不知道如何维护这些列。制表符不起作用，因为某些块名比其他块名长，并且通过使用制表符来设置间距，可能最终导致块计数不对齐
理想情况下，我想做的是为块名设置字符串长度（需要包含空格以弥补其他较短/较长块名的差异），然后为块计数设置长度
现在，如果我将块计数信息保存到TXT文件中，它看起来会像这样…
但我希望它看起来像这样……

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Keith · 发表于 2007-9-4 09:39:35

除非使用固定宽度字体，否则文本不会完全对齐，但您可以将其靠近……
尝试将描述的长度扩展到所需的长度：

copy

Public Function ExpandText (ByVal strSource As String, ByVal intLength As Integer) As String
While Len(strSource) < intLength
 strSource = strSource & " "
Wend
ExpandText = strSource
End Function

然后将计数附加到末尾