Есть ли способ исправить размер строки

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 символов.

любая команда для фиксирования длины символа строки, такая как команда Format в TCL.

Answer 1

Изменить эту строку -> logFile.WriteLine " " & element & " " & 0

На ---> logFile.WriteLine element & String(8-Len(element)," ") & 0

Я использовал функцию String для добавления пробелов на основедлина каждого элемента.

Answer 2

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

до

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

Проверка Справочник по функциям (VBScript) для Right, Space и CStr функций подробное описание.Возможно, вас заинтересует FormatNumber Функция .

Однако вместо VBScript вы должны начать изучать Windows PowerShell , поскольку Windows PowerShell - это будущее административных сценариев.(по крайней мере, для операционных систем Microsoft Windows).

Answer 3

На линии WriteLine используйте формат @ x8 для выравнивания по правому краю и по левому и восьмому символам, чтобы обрезать строку, например:

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

Ссылки:

Манипуляции со строками

Формат