［Script］［VBS］文字列操作（Instr / Mid）

VB Scriptで文字列操作を行います。

[・・・]で囲まれた文字列を取り出す

strLine = "www.google.co.jp [74.125.235.151]に ping を送信しています 32 バイトのデータ:"

result1 = InStr (strLine, "[")
result2 = InStr (strLine, "]")

If result1 > 0 And result2 > 0 Then
  strIPAddress = Mid(strOutLine, result1 + 1 , result2 - result1 - 1)
  MsgBox "www.google.co.jp のアドレスは " & strIPAddress & " でした。"
End If

WScript.Quit

"." の位置を取得してファイル名を編集

strFileName = "D\folder1\testfile.txt"

pos = InstrRev(strFileName, ".")
strNewFileName = Left(strFileName,(pos-1)) & "_new" & Mid(strFileName, pos) 

---

Script のページに戻る