moji okikae

' 合計 コピー済み スキップ 不一致 失敗 Extras
' ディレクトリ: 1 0 0 0 0 0
' ファイル: 2 1 1 0 0 0
' バイト: 8.40 m 4.20 m 4.20 m 0 0 0
' 時刻: 0:00:00 0:00:00 0:00:00 0:00:00



'Total Copied Skipped Mismatch FAILED Extras

IVal = trim(" 合計 コピー済み スキップ 不一致 失敗 Extras")
'IVal = trim(" Dirs : 8568 118 8450 0 0 101")
'IVal = trim(" Files : 92252 649 91588 0 15 355")
'IVal = trim(" Bytes :150117.417 g 130.72 m149385.290 g 0 11.1 k 52.96 m")

IVal = IVal & " "
OVal = ""


Do While InStr(1, IVal, " ")

IVal = Replace(IVal, "合計 ", "Total ")
IVal = Replace(IVal, "コピー済み ", "Copied ")
IVal = Replace(IVal, "スキップ ", "Skipped ")
IVal = Replace(IVal, "不一致 ", "Mismatch ")
IVal = Replace(IVal, "失敗 ", "FAILED ")
IVal = Replace(IVal, "Extras ", "Extras ")

IVal = Replace(IVal, " g", "g")
IVal = Replace(IVal, " m", "m")
IVal = Replace(IVal, " k", "k")

IVal = Replace(IVal, " ", " ")
Loop


WScript.Echo "IVal=" & IVal

WScript.Echo "iMaxLen=" & iMaxLen & " iPos=" & iPos

WScript.Quit