|
■
WSH.039 正規表現を使って文字列を検索する
|
戻る
|
- ■ 「C:\TechEzo\Round23.txt」内の「ようこそ」を含む行を表示する
-
Set fso = CreateObject("Scripting.FileSystemObject")
Set regEx = New RegExp
Set tempFile = fso.OpenTextFile("C:\TechEzo\Round23.txt")
regEx.Pattern = "ようこそ"
Do Until tempFile.AtEndOfStream
tempLine = tempFile.ReadLine
If regEx.Test(tempLine) Then
WScript.Echo tempLine
End If
Loop
|
|
|
|
■
WSH.040 正規表現を使って文字列を置換する
|
戻る
|
- ■ 「C:\TechEzo\Round23.txt」内の文字列「ようこそ」を「Welcome」に置換してRound23_2.txtを作る
-
Set fso = CreateObject("Scripting.FileSystemObject")
Set regEx = New RegExp
Set inFile = fso.OpenTextFile("C:\TechEzo\Round23.txt")
Set outFile = fso.CreateTextFile("C:\TechEzo\Round23_2.txt")
regEx.Pattern = "ようこそ"
repStr = "Welcome"
Do Until inFile.AtEndOfStream
tempLine = inFile.ReadLine
repLine = regEx.Replace(tempLine, repStr)
outFile.WriteLine repLine
Loop
inFile.Close
outFile.Close
|
|
|
|
■
WSH.041 文字列の配列化
|
戻る
|
- ■ 一週間の曜日を表す英単語を配列に入れる
-
str = "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"
tbl = split(str, ",")
WScript.Echo tbl(2)
|
|
- ■ カンマで区切った文字列を単語単位にループさせる
-
str = "Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday"
For Each str In split(str, ",")
WScript.Echo str
Next
|
|
|
|
■
WSH.042 (IE連携)ボタンを押して"Hello World"
|
戻る
|
- ■ IE上のボタンを押すとテキストが表示される
-
<script language=vbscript>
<!--
Sub ok_OnClick
Document.Write "ようこそ TechEzo Round 23 へ!"
End Sub
-->
</script>
<html>
<body>
<input type=button name=ok value=Go!>
</body>
</html>
|
|
|
|
■
WSH.043 (IE連携)フォームの情報をスクリプトで受ける
|
戻る
|
- ■ IE上からファイル名を受け取り、ファイルがあった場合その情報を表示する
-
<script language=vbscript>
<!--
Sub ok_OnClick
Set fso = CreateObject("Scripting.FileSystemObject")
Set src = fso.GetFile(FileName.value)
Document.Write "ファイル名: " & src.Path & "<br>" & vbCRLF
Document.Write "サイズ: " & src.Size & "<br>" & vbCRLF
Document.Write "タイプ: " & src.Type & "<br>" & vbCRLF
End Sub
-->
</script>
<html>
<body>
<input type=text name=FileName value="">
<input type=button name=ok value=Go!>
</body>
</html>
|
|
|
|
