y.cmdz ƒoƒbƒ`ƒtƒ@ƒ ..
[
2ch
|
¥Menu
]
¡ƒRƒsƒyƒ‚[ƒh
ƒXƒŒ‚ð’Êí•\ަ
ƒIƒvƒVƒ‡ƒ“ƒ‚[ƒh
‚±‚̽گÄÞ‚ÌURL
¡€–ÚƒeƒLƒXƒg
369:366 07/05/24 23:16:38 >>368 ‰´AŒ¾—tŽë‚莩‘Ì‚ª‰º“™‚Å–ì”Ø‚Èsˆ×‚¾‚ÆŽv‚Á‚Ä‚é‚ñ‚Å ‚»‚̃Aƒ“ƒ`ƒe[ƒ[‚Æ‚µ‚Ä]—ˆƒL›ƒKƒC‚̈Ӗ¡‚ÅŽg‚í‚ꂽ •\Œ»‚Í‚·‚ׂē‡Ž¸’²Ç‚Á‚ÄŒ¾—t‚É’u‚«Š·‚¦‚邿‚¤‚É‚µ‚Ä‚éB —áF’Þ‚èƒL›ƒKƒC(’Þ‚èƒoƒJ)¨’Þ‚è“‡Ž¸’²Ç 370:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ 07/05/25 00:29:11 ’Þ‚èƒAƒXƒyƒ‹ƒK[ 371:366 07/05/25 01:26:33 ŠØ‘ŒR‚Ì“‡Ž¸’²ÇŠˆ“®‚̋֎~ 372:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ 07/05/26 05:06:12 373:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ 07/05/31 02:57:42 374:ƒfƒtƒHƒ‹ƒg‚Ì–¼–³‚µ‚³‚ñ 07/05/31 05:56:20 Ž¿–₳‚¹‚Ä‚‚¾‚³‚¢B WSH‚̳‹K•\Œ»‚Åvar.iniƒtƒ@ƒCƒ‹“à‚ÌŠes‚ɑ΂µ‚ÄAu###v‚Æu###TITLE###v ‚Æ‚¢‚¤•¶Žš—ñ‚ðŒŸõAŒ©‚‚©‚Á‚½‚©”Û‚©‚ðEcho‚³‚¹‚Ä‚¢‚é‚̂ł·‚ªA ŽÀÛ‚ÉŒŸõ‘ÎÛ‚Ì•¶Žš—ñ‚ª–³‚¢s‚ɑ΂µ‚Ä‚àuTruev‚ð•Ô‚µ‚Ä‚¢‚邿‚¤‚Å‚·B ‚È‚º‚¤‚Ü‚‚¢‚©‚È‚¢‚Ì‚©‹³‚¦‚Ä‚‚¾‚³‚¢B Dim objFS, strCD, objINI Set objFS = CreateObject("Scripting.FileSystemObject") strCD = objFS.GetParentFolderName(WScript.ScriptFullName) Set objINI = objFS.OpenTextFile(strCD & "\var.ini", 1, False) Dim strSpecificTag, strAnyTag strSpecificTag = "###TITLE###" strAnyTag = "###" Dim strINI, strINIsum, boolWritable Do While objINI.AtEndOfStream <> True strINI = objINI.ReadLine '*** Any tag ‚ÌŒŸõ *** Dim objREat Set objREat = New RegExp objREat.Pattern = strAnyTag '*** Specific tag ‚ÌŒŸõ *** Dim objREst Set objREst = New RegExp objREst.Pattern = strSpecificTag WScript.Echo objREat.Pattern & ": " & objREat.Test(strAnyTag) & vbNewLine & objREst.Pattern & ": " & objREst.Test(strSpecificTag) Loop objINI.Close
ŽŸƒy[ƒW
ÅVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ÌŒŸõ
—ÞŽ—ƒXƒŒˆê——
˜b‘è‚̃jƒ…[ƒX
‚¨‚Ü‚©‚¹ƒŠƒXƒg
¥ƒIƒvƒVƒ‡ƒ“‚ð•\ަ
ƒŒƒXƒWƒƒƒ“ƒv
mixiƒ`ƒFƒbƒNI
Twitter‚É“Še
ƒIƒvƒVƒ‡ƒ“
‚µ‚¨‚è‚ð‹²‚Þ
ƒXƒŒƒbƒh‚É‘ž
ƒXƒŒƒbƒh‚̈ꗗ
‰É‚‚Ԃµ2ch
5391“ú‘O‚ÉXV/139 KB
’S“–:undef