有没有办法固定字符串的大小？
有没有办法固定字符串的大小？
提问于 2018-06-06 21:03:52
有没有办法确定字符串的字符数。
Sub check ()
logfilepath = "D:\surendra\VBScript\File_Compare\log.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
set logFile = objFSO.CreateTextFile(logfilepath, true)
myarray = Array(1,2.0,5.83,100)
For Each element In myarray
logFile.WriteLine " " & element & " " & 0
Next
logFile.Close
End Sub上述代码的结果是
1 0
2 0
5.83 0
100 0但是我想以这样的方式打印
1 0
2 0
5.83 0
100 0应根据字符数调整空格，使其总长度为8个字符。
任何固定字符串字符长度的命令，如TCL中的Format命令。
回答 3
Stack Overflow用户
回答已采纳
发布于 2018-06-06 21:29:49
更改此行--> logFile.WriteLine " " & element & " " & 0
至-> logFile.WriteLine element & String(8-Len(element)," ") & 0
我使用String函数根据每个元素的长度添加空格。
Stack Overflow用户
发布于 2018-06-06 21:21:39
在你的WriteLine上，使用Format @x8进行右对齐，使用左到第八个字符来裁剪你的字符串。
logFile.WriteLine " |" & Format(Left(element,8), "@@@@@@@@") & "| " & 0参考文献：
Stack Overflow用户
发布于 2018-06-07 04:11:51
logFile.WriteLine " " & element & " " & 0至
logFile.WriteLine Right( Space(8) & CStr( element),8) & " " & 0有关Right、Space和CStr函数的详细说明，请查看Functions (VBScript) reference。您可能也会对FormatNumber Function感兴趣。
但是，应该使用VBScript，而不是you should begin learning Windows PowerShell，因为Windows PowerShell是管理脚本的未来(至少对于Microsoft Windows操作系统是这样)。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/50721148
复制相关文章
相似问题