Question

有没有办法可以修复字符串的字符数。

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命令。

Answer 1

在WriteLine上使用Format @ x8进行右对齐和＆amp;留下第8个字符来剪辑你的字符串，即

logFile.WriteLine "      |" & Format(Left(element,8), "@@@@@@@@") & "|      " & 0

参考文献：

String Manipulation

Format

Answer 2

更改此行 - ＆gt; logFile.WriteLine " " & element & " " & 0

至---＆gt; logFile.WriteLine element & String(8-Len(element)," ") & 0

我已使用String函数根据每个元素的长度添加空格。

Answer 3

logFile.WriteLine "       " & element & "       " & 0

到

logFile.WriteLine Right( Space(8) & CStr( element),8) & "       " & 0

检查Functions (VBScript) reference，查看Right，Space和CStr功能详细说明。您可能也对FormatNumber Function感兴趣。

但是，而不是VBScript，you should begin learning Windows PowerShell，因为Windows PowerShell是管理脚本的未来（至少对于Microsoft Windows操作系统而言）。

有没有办法来修复字符串的大小

3 个答案: