X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=_src%2F_vbslib%20manual.files%2Fvbslib.files%2Fvbslib_60.html;fp=_src%2F_vbslib%20manual.files%2Fvbslib.files%2Fvbslib_60.html;h=db0d94e6cdd2383276ab80f364e91f9a410d2858;hb=dd0cb37955bb57eddf077bca2981ee877b32e4f6;hp=447cee7d95d4194a8cd5bc2147e16272e7e1a1a1;hpb=789b8160859f55b0be4b16cb2a92639ae41d3b51;p=vbslib%2Fmain.git diff --git a/_src/_vbslib manual.files/vbslib.files/vbslib_60.html b/_src/_vbslib manual.files/vbslib.files/vbslib_60.html index 447cee7..db0d94e 100644 --- a/_src/_vbslib manual.files/vbslib.files/vbslib_60.html +++ b/_src/_vbslib manual.files/vbslib.files/vbslib_60.html @@ -87,28 +87,28 @@ function out( text ){ text.style.display = "none"; } - + -© -¥ -£ +© +¥ +£
ª
-
+ -
+
Dim  g_Finalizing  as boolean
-
+
ƒOƒ[ƒoƒ‹•Ï”‚ÌŒãŽn––ˆ—‚ðs‚Á‚Ä‚¢‚é‚Æ‚«‚©‚Ç‚¤‚©B
-
+
(src)
-
+ -
+
ŽQl
@@ -118,28 +118,28 @@ Dim  g_Finalizing  as boolean
- + -© -¥ -£ +© +¥ +£ -
+ -
+
¨ vbslib_helper_src ƒtƒHƒ‹ƒ_[
-
+
VBScript ‚¾‚¯‚Å‚Í‚Å‚«‚È‚¢‚ªACŒ¾Œê‚Å‚Í‚Å‚«‚é‹@”\‚ðŽÀs‚·‚éƒvƒƒOƒ‰ƒ€‚Å‚·B
vbslib ‚Ì“à•”‚©‚ç•K—v‚ɉž‚¶‚ÄŽ©“®“I‚É‹N“®‚³‚ê‚Ü‚·B
-
+
vbslib_helper.exe ƒtƒ@ƒCƒ‹‚́A
-
+ -
+
‚ÉŠi”[‚µ‚Ä‚­‚¾‚³‚¢B
-
+
ƒ\[ƒX
@@ -149,88 +149,88 @@ g_vbslib_ver_folder
- + -© -¥ -£ +© +¥ +£ -
+ -
+ -
+ -
+
VBScript global code
-
+
'// start of vbslib include
-
+
Execute g_f.ReadAll
-
+
ResumePush
-
+
On Error Resume Next
-
+
main / main2
-
+
ResumePop
-
+
[ƒƒCƒ“.vbs]
-
+
[vbs_inc.vbs]
-
+
Execute g_f.ReadAll
-
+
[vbs_inc_sub.vbs]
-
+
VBScript global code
-
+
ChangeScriptMode
-
+ -
+
'//=== read and execute g_IncludePathes
-
+
CallInitializeInModules
-
+
VBScript global code
-
+
ê‡‚É‚æ‚Á‚Ä‚Í ƒRƒ}ƒ“ƒhƒvƒƒ“ƒvƒg‚ð‹N“®‚·‚é
-
+
(src)
-
+
(src)
-
+ -
+ -
+
CallFinalizeInModules
-
+ -
+
ƒ‚ƒWƒ…[ƒ‹‚̏‰Šú‰»‚ð‚·‚é
-
+
ƒ‚ƒWƒ…[ƒ‹‚ÌŒãŽn––‚ð‚·‚é
-
+
ƒƒCƒ“EƒXƒNƒŠƒvƒg
-
+ -
+
ŠÖ˜A
-
+ @@ -244,10 +244,10 @@ setting -
+ -
+ @@ -255,38 +255,38 @@ Setting_getIncludePathes
-
+
Ý’èƒtƒ@ƒCƒ‹‚ðƒ[ƒhiŽÀsj‚·‚é
-
+
ƒ‚ƒWƒ…[ƒ‹‚ðƒ[ƒhiŽÀsj‚·‚é
-
+ -
+
‚ ‚éƒtƒHƒ‹ƒ_‚Ì’†‚ ‚é‚·‚ׂẴXƒNƒŠƒvƒg‚ÌŠù’è‚̐ݒè
-
+ -
+ -
+
(src)
-
+
g_sh.Run  cmd
-
+
'//=== Make command line
-
+ -
+
WScript.Echo  Err.Description
-
+
ƒGƒ‰[ƒƒbƒZ[ƒW‚ð•\Ž¦‚·‚é
-
+ -
+
If g_CommandPrompt = 1 Then
    WScript.Sleep  2000
@@ -297,36 +297,36 @@ If g_CommandPrompt = 1 Then
- + -© -¥ -£ +© +¥ +£ -
+ -
+
main ŠÖ”‚©‚ç‚»‚Ì‚Ü‚Ü•Ô‚é‚ƁAƒGƒ‰[ƒŒƒxƒ‹‚Í 21 ‚É‚È‚è‚Ü‚·B
‚±‚ê‚́Awscipt.exe, cscript.exe ‚́AƒXƒNƒŠƒvƒg‚Ì“à•”‚ŃGƒ‰[‚ª”­¶‚µ‚Ä‚àA
ƒGƒ‰[ƒŒƒxƒ‹‚Í 0 ‚É‚È‚Á‚Ä‚¨‚èA³í‚ɏI—¹‚µ‚½‚©‚Ç‚¤‚©‚ð‹æ•Ê‚·‚邽‚ß‚Å‚·B
-
+
“à•”ƒtƒ[
-
+
main
-
+
ResumePop
-
+
CallFinalizeInModules
-
+
If not IsEmpty( g_ExitCode ) Then  WScript.Quit  g_ExitCode
WScript.Quit  21
-
+
ƒGƒ‰[ƒŒƒxƒ‹‚ðŽw’è‚·‚é‚Æ‚«‚́AWScript.Quit ‚ðŒÄ‚яo‚·‚©Ag_ExitCode ‚ɐݒ肵‚Ä‚­‚¾‚³‚¢B
-
+ -
+
ƒRƒ“ƒpƒCƒ‹‚·‚é‚Æ‚«‚ÉŽg‚í‚ê‚邱‚Æ‚ª‚ ‚郁ƒCƒNƒtƒ@ƒCƒ‹‚́A‹N“®‚µ‚½ƒRƒ}ƒ“ƒh‚̃Gƒ‰[ƒŒƒxƒ‹‚ª 0
‚Å‚Í‚È‚¢‚Æ‚«‚́AƒGƒ‰[‚ª”­¶‚µ‚½‚à‚Ì‚Æ‚Ý‚È‚µ‚Ü‚·‚ªAvbslib ‚ðŽg‚Á‚½ƒXƒNƒŠƒvƒg‚ª³íI—¹‚µ‚½
‚Æ‚«‚́AƒGƒ‰[ƒŒƒxƒ‹‚ª 21 ‚ɂȂ邽‚߁AƒƒCƒNƒtƒ@ƒCƒ‹‚͏ˆ—‚ð’†’f‚µ‚Ä‚µ‚Ü‚¢‚Ü‚·B
@@ -335,20 +335,20 @@ WScript.Quit  21
‚Å‚«‚È‚¢ƒGƒ‰[‚ª”­¶‚·‚邱‚Æ‚ª‚ ‚è‚Ü‚·‚ªA‚»‚Ì‚Æ‚«‚́AƒGƒ‰[ƒŒƒxƒ‹‚ª 0 ‚ɂȂ邽‚߁A
³íI—¹‚Æ‹æ•Ê‚·‚邱‚Æ‚Í‚Å‚«‚Ü‚¹‚ñB
-
+
cscript sampe.vbs /SuccessRet:0
-
+
ƒeƒXƒg
-
+ -
+
(src)
-
+
ƒRƒ}ƒ“ƒhƒvƒƒ“ƒvƒg‚ðŽ©“®“I‚ɕ‚¶‚é‚©‚Ç‚¤‚©
-
+
ŠÖ˜A
-
+ @@ -359,40 +359,40 @@ cscript sampe.vbs /SuccessRet:0
- + -© -¥ -£ +© +¥ +£ -
+ -
+
main ŠÖ”‚Ì’†‚ŃGƒ‰[‚ª”­¶‚µ‚½‚çA•W€‰»‚³‚ꂽƒGƒ‰[ƒƒbƒZ[ƒW‚ð•\Ž¦‚µA
“KØ‚ȃGƒ‰[ƒŒƒxƒ‹‚ðAwscript.exe / cscript.exe ‚ðŒÄ‚яo‚µ‚½ƒvƒƒZƒX‚Ö•Ô‚µ‚Ü‚·B
-
+
wscipt.exe, cscript.exe ‚́AƒXƒNƒŠƒvƒg‚Ì“à•”‚ŃGƒ‰[‚ª”­¶‚µ‚Ä‚àAƒGƒ‰[ƒŒƒxƒ‹‚Í
0 ‚É‚È‚Á‚Ä‚¢‚Ü‚·B ‚±‚ê‚ł̓Gƒ‰[‚ª”­¶‚µ‚½‚©‚Ç‚¤‚©‚ª‚í‚©‚ç‚È‚¢‚̂ŁAvbs_inc
‚ªƒGƒ‰[‚ðƒLƒƒƒbƒ`‚µ‚āAƒGƒ‰[”ԍ†‚ðƒGƒ‰[ƒŒƒxƒ‹‚É‚µ‚Ü‚·B
•¶–@ƒGƒ‰[‚ª”­¶‚µ‚½‚Æ‚«‚́AƒGƒ‰[ƒŒƒxƒ‹‚ª 1 ‚É‚È‚è‚Ü‚·B
-
+
(src)
-
+ -
+
ŠÖ˜A
-
+ -
+ -
+ -
+ @@ -403,62 +403,62 @@ wscipt.exe, cscript.exe - + -© -¥ -£ +© +¥ +£ -
+ -
+
ˆ—ƒtƒ[
-
+
VBScript global code
-
+
[vbs_inc_sub.vbs]
-
+
[ƒƒCƒ“.vbs]
-
+ -
+
[vbs_inc_setting.vbs ‚È‚Ç]
-
+ -
+
SetVar
-
+
main / main2
-
+
SetVar
-
+
‚P‚‚̃XƒNƒŠƒvƒg‚ÅŽg‚¤Ý’è
-
+
ClassI_validate
-
+
new ClassA
-
+
Class_Initialize
-
+
Me.Ver = CInt2( GetVar( "ClassA_Ver" ) )
If IsEmpty( Me.Value ) Then  Me.Ver = 200
-
+
”’l‚ðŽ©“®“I‚É
Ý’è‚·‚é
-
+
ŠÂ‹«•Ï”
-
+ @@ -474,7 +474,7 @@ Setting_onAfterInclude
fillcolor="#000000" strokecolor="#000000" strokeweight="1pt" path="m 1000,500 l 0,0, 0,1000 x e"/> -
+
If IsEmpty( g_ClassI ) Then
  Dim  name : name = GetVar( "ClassI" )
  If IsEmpty( name ) Then
@@ -488,7 +488,7 @@ If IsEmpty( g_ClassI ) Then
  Set ClassI_validate = g_ClassI
End If
-
+
ƒCƒ“ƒXƒ^ƒ“ƒX‚ð
Ž©“®“I‚É
‘I‘ð‚·‚é
@@ -496,87 +496,87 @@ End If
-
+
Ý’è’l‚ðŽw’è‚·‚é‚Æ‚«‚́Amain ‚Ü‚½‚Í
ƒfƒtƒHƒ‹ƒgiŽ©“®”»’è‚Ȃǁj‚̐ݒè’l‚ðŽg‚¤‚Æ‚«‚́ASetVar ‚ðŽg‚¢‚Ü‚¹‚ñB
—Dæ“x‚̍‚‚¢‚à‚Ì‚©‚ç•À‚ׂé‚ƁAmain ŠÖ”‚Ì SetVar „ setting ‚Ì SetVar „ OS ‚̊‹«•Ï”
 „ Ž©“®‘I‘ðA‚̏‡‚É‚È‚è‚Ü‚·B
-
+
ƒfƒtƒHƒ‹ƒg’l‚ÌŒˆ’è•û–@‚́A
ŽŸ‚Ì‚à‚Ì‚ª‚ ‚è‚Ü‚·B
@EŒÅ’è’l
@EÝ’èƒtƒ@ƒCƒ‹‚©‚ç‚̃Š[ƒh
@EŽ©“®”»’è
-
+
ŠÂ‹«•Ï”‚Ì’l‚ðŽg‚Á‚½Œã‚́ASetVar ‚ð‚µ‚Ä‚à–³Œø‚Ȃ̂ŁASetVar ‚Í main ŠÖ”‚Ì
Å‰‚ŌĂяo‚µ‚Ä‚­‚¾‚³‚¢B
-
+ -
+
‚ðŽg‚¢‚Ü‚·B
-
+ -
+
‚Å
-
+
ƒCƒ“ƒXƒ^ƒ“ƒX‚ð“Á’è‚·‚é•K—v‚ª–³‚¢
‚ǂ̐ݒèƒtƒ@ƒCƒ‹‚ðŽg‚¤‚©A‚È‚Ç‚ð‘I‘ð‚·‚é‚Æ‚«‚ɁAŠÂ‹«•Ï”‚ðŽg‚¢‚Ü‚·B

ˆê”Ê“I‚Ȑݒè’l‚́AŠÂ‹«•Ï”‚Å‚Í‚È‚­A XML Œ`Ž®‚Ȃǂ̐ݒèƒtƒ@ƒCƒ‹‚âA
-
+
‚́A‚ǂ̃o[ƒWƒ‡ƒ“‚ðŽg‚¤‚©A
-
+ -
+ -
+
‚ðŽg‚Á‚½‚Ù‚¤‚ªAŠK‘w‰»‚Å‚«‚½‚肵‚Ĉµ‚¢‚â‚·‚¢‚Å‚·B
-
+ -
+
ŠÖ˜A
-
+
OS ‚̊‹«•Ï”‚̐ݒè
-
+ -
+ -
+
ŠÖ”ƒR[ƒ‹‚̃Šƒ_ƒCƒŒƒNƒg
-
+ -
+
ƒtƒ@ƒCƒ‹‚ɏ‘‚©‚ꂽŠÂ‹«•Ï”‚̏W‡‚ðŽg‚¤
-
+ -
+
InitializeModule
-
+
SetVar
-
+
‚ ‚éƒtƒHƒ‹ƒ_‚Ì’†‚É‚ ‚éƒXƒNƒŠƒvƒg‚Ì
Šù’è‚̐ݒèiscriptlib ƒtƒHƒ‹ƒ_‚²‚Ɓj
-
+
Setting_getIncludePathes
-
+
g_Vers.Add  "Disable", 1
-
+
‚ ‚éƒtƒHƒ‹ƒ_‚Ì’†‚É‚ ‚é
ƒXƒNƒŠƒvƒg‚Ì InitializeModule ‚Å
Ý’肳‚ê‚é“à—e‚Ì‘I‘ð
@@ -585,14 +585,14 @@ g_Vers.Add  "Disable", 1
fillcolor="#808080" strokecolor="#808080" strokeweight="1pt" path="m 1000,500 l 0,0, 0,1000 x e"/> -
+
g_Vers.Add  "Disable", 1
-
+
‚P‚‚̃XƒNƒŠƒvƒg‚ÅŽg‚¤ InitializeModule
‚Őݒ肳‚ê‚é“à—e‚Ì‘I‘ð
-
+
ŠÖ˜A
-
+ @@ -603,15 +603,15 @@ g_Vers.Add  "Disable", 1
-
+ -
+
Test.vbs ‚Å‹¤’ʂ̊‹«•Ï”‚ƃtƒ@ƒCƒ‹‚̃`ƒFƒbƒN
-
+ -
+
ƒXƒNƒŠƒvƒg“à‚Å‹¤’ʂ̐ݒè’l
@@ -621,43 +621,43 @@ Test.vbs - + -© -¥ -£ +© +¥ +£ -
+ -
+
Function  IsDefined( Symbol as string ) as boolean
-
+ -
+
Žw’肵‚½ƒVƒ“ƒ{ƒ‹‚̊֐”‚ª’è‹`‚³‚ê‚Ä‚¢‚é‚©‚Ç‚¤‚©‚ð•Ô‚µ‚Ü‚·B
-
+
(src)
-
+ -
+
ƒTƒ“ƒvƒ‹F
-
+
If not IsDefined( "copy" ) Then ...
-
+
ŽQl
-
+ -
+
ŠÖ˜A
-
+
ƒ\[ƒX
-
+
¨ vbs_inc_sub.vbs
@@ -667,52 +667,52 @@ If not IsDefined( "copy" ) Then ...
- + -© -¥ -£ +© +¥ +£ -
+ -
+
Dim g_Vers as Scripting.Dictionary
-
+
ŠeŽíƒo[ƒWƒ‡ƒ“”ԍ†A‚Ü‚½‚́AÝ’è‚ÉŠÖ‚·‚鎫‘‚Å‚·B
-
+
[ ƒeƒXƒg ]
-
+
(src)
-
+ -
+
ŠÖ˜A
-
+ -
+
’l‚Í•¶Žš—ñ‚␔’l‚âƒIƒuƒWƒFƒNƒg‚È‚Ç‚ðŠi”[‚Å‚«‚Ü‚·B
-
+ -
+
‚Őݒ肳‚ê‚é•Ï”‚Æ“¯‚¶•Ï”‚̗̈æiDictionaryj‚Å‚·B ivbslib ver4 ‚æ‚èj
-
+ -
+
‚ðŽg‚¤‚±‚Æ‚ª‚Å‚«‚Ü‚·B
-
+
Ž«‘‚̃L[‚́A¶‚É‚ ‚éƒcƒŠ[‚ÌŽqƒm[ƒh‚ðŽQÆ‚µ‚Ä‚­‚¾‚³‚¢B
-
+
—áF
-
+ -
+ @@ -723,17 +723,17 @@ VarStack
- + -© -¥ -£ +© +¥ +£ -
+ -
+
g_f = g_Vers.Item("vbslib")
If g_f >= 4.9 Then
    g_Vers.Item("vbslib") = 4.9
@@ -747,22 +747,22 @@ ElseIf g_f >= 2.0 Then
Else
    g_vbslib_path = g_vbslib_folder + "vbslib000\vbs_inc_000.vbs"
End If
-
+
”»’èƒTƒ“ƒvƒ‹
-
+ -
+
ƒo[ƒWƒ‡ƒ“‚Ì”»’è‚́A•s“™†‚ðŽg‚Á‚Ä‚­‚¾‚³‚¢B
-
+
Sub  SetupVbslibParameters()
    '--- start of parameters for vbslib include -------------------------------
    g_Vers("vbslib_ver") = 99.99
       :
    '--- end of parameters for vbslib include ---------------------------------
End Sub
-
+
0.0 c ƒo[ƒWƒ‡ƒ“Ø‚è‘Ö‚¦ƒeƒXƒg—p
2.0 c ver2.00 ‚ð‚»‚Ì‚Ü‚ÜŽg‚¤ ivbs_inc ‚̃fƒtƒHƒ‹ƒgj
3.0 c ver3.00 ‚ðŽg‚¤
@@ -771,22 +771,22 @@ End Sub
vbs_inc.vbs ‚©‚ç vbslib ‚ðƒCƒ“ƒNƒ‹[ƒhŠJŽn‚·‚鎞“_‚ŁAŽÀÛ‚ÉŽg—p‚·‚éƒo[ƒWƒ‡ƒ“
”ԍ†‚É•Ï‚í‚è‚Ü‚·B ‚»‚ê‚܂ł́AƒƒCƒ“.vbs ‚ª—v‹‚·‚é”ԍ†‚Å‚·B
ã‹L‚̂悤‚ÉŒˆ‚ß‚Ä‚¢‚Ü‚·‚ªAŽÀÛ‚Ì“®‚«‚͉º‹L‚Ì vbs_inc.vbs ‚Ì“à—e‚É‚æ‚è‚Ü‚·B
-
+
Ý’èƒTƒ“ƒvƒ‹
-
+
ŽQl
-
+
ƒeƒXƒg
-
+
¨ T_Var.vbs # T_g_Vers_Stack
-
+
vbslib ‚̃o[ƒWƒ‡ƒ“”ԍ†‚Å‚·B
-
+
Dim  g_Vers("vbslib")  as dictionary
-
+
’l‚̈Ӗ¡
-
+
vbs_inc.vbs ‚̈ꕔ
@@ -796,71 +796,71 @@ vbs_inc.vbs - + -© -¥ -£ +© +¥ +£ -
+ -
+
¨ T_Path.vbs
-
+
¨ PC_setting_default.vbs
-
+
T_TextFileExtension
-
+ -
+
Dim  g_Vers("TextFileExtension")  as dictionary
-
+
ƒeƒXƒg
-
+
ƒ\[ƒX
-
+
ƒeƒLƒXƒgEƒtƒ@ƒCƒ‹‚ÌŠg’£Žq‚ðƒL[‚Æ‚µ‚½Ž«‘B
-
+
‘啶Žš‚Ə¬•¶Žš‚ð‹æ•Ê‚µ‚Ü‚¹‚ñB
-
+ -
+
‚Ì PC_setting_default.vbs ‚ȂǂŐݒ肵‚Ü‚·B
-
+
ƒTƒ“ƒvƒ‹
-
+
If g_Vers("TextFileExtension").Exists( "xml" ) Then
-
+
extension = g_fs.GetExtensionName( path )
If g_Vers("TextFileExtension").Exists( extension ) Then
-
+
ƒeƒLƒXƒgEƒtƒ@ƒCƒ‹‚ÌŠg’£Žq‚Å‚ ‚é‚©”»’f‚·‚éB
-
+
ƒTƒ“ƒvƒ‹
-
+
Ž«‘‚ðì¬‚·‚é
-
+
Set g_Vers("TextFileExtension") = Dic_addFromArray( Empty, Array( _
    "txt", _
    "c", "h", "cpp", "hpp", "vbs", "js", "py", "rb", _
    "ini", "log", _
    "html", "htm", "xml", "svg" ), True )
-
+ -
+
ŠÖ˜A
-
+ -
+ @@ -871,38 +871,38 @@ Dic_addFromArray
- + -© -¥ -£ +© +¥ +£ -
+ -
+
Dim  g_Vers("NaturalDocsExtension")  as dictionary
-
+
NaturalDocs ‚É“ü—Í‚Å‚«‚éƒtƒ@ƒCƒ‹‚ÌŠg’£Žq‚ðƒL[‚Æ‚µ‚½Ž«‘B
-
+ -
+
‚ÅŽg‚í‚ê‚Ü‚·B
-
+
‚±‚ÌŽ«‘‚ª
-
+ -
+
‚±‚ÌŽ«‘‚ÌŽg‚¢•û‚́A
-
+
‚Æ“¯‚¶‚Å‚·B
-
+ -
+
‚É‚È‚¢‚Æ‚«‚́AƒfƒtƒHƒ‹ƒg‚̐ݒè‚ðŽg‚Á‚ďˆ—‚³‚ê‚Ü‚·B
@@ -912,41 +912,41 @@ setting - + -© -¥ -£ +© +¥ +£ -
+ -
+
Dim  g_Vers("CutPropertyM")  as string
-
+ -
+
ŠÖ˜A
-
+
True ‚È‚ç Name ƒvƒƒpƒeƒB‚ðAFalse ‚È‚ç m_Name ƒvƒƒpƒeƒB‚ðŽg‚¢‚Ü‚·B
-
+
g_Vers("CutPropertyM") = False
-
+
ƒL[ƒ[ƒhF
-
+ -
+
ƒTƒ“ƒvƒ‹
-
+
ƒ‰ƒCƒuƒ‰ƒŠ‚ª’ñ‹Ÿ‚·‚é‚¢‚­‚‚©‚̊֐”‚Ì’†‚ÅŽg‚í‚ê‚éƒIƒuƒWƒFƒNƒg‚ɑ΂µ‚āAName ƒvƒƒpƒeƒB‚ð
ŽQÆ‚·‚é‚©Am_Name ƒvƒƒpƒeƒB‚ðŽQÆ‚·‚é‚©‚ð‘I‚ׂ܂·B
-
+
ƒfƒtƒHƒ‹ƒg‚́ATrue ‚Å‚·B
-
+ @@ -957,32 +957,32 @@ Name, m_Name
- + -© -¥ -£ +© +¥ +£ -
+ -
+
Sub  ThisIsOldSpec()
-
+
Œ»ÝŽÀs‚µ‚Ä‚¢‚éŠÖ”‚ªA”pŽ~‚³‚ê‚悤‚Æ‚µ‚Ä‚¢‚éŠÖ”‚Å‚ ‚邱‚Æ‚ðŒx‚µ‚Ü‚·B
-
+
ƒtƒ@ƒCƒ‹F
-
+
vbs_inc_sub.vbs
-
+
(src)
-
+
g_debug <> 0 ‚Ì‚Æ‚«‚́A‰‚ß‚Ä ThisIsOldSpec ‚ðŒÄ‚яo‚µ‚½‚Æ‚«‚ɃuƒŒ[ƒN‚µ‚Ü‚·B
-
+
ŠÖ˜A
-
+ @@ -993,56 +993,56 @@ g_debug <> 0 - + -© -¥ -£ +© +¥ +£ -
+ -
+
Dim  g_cut_old as boolean
-
+
vbslib ‚̌¢ŠÖ”‚ðŒÄ‚яo‚µ‚½‚Æ‚«‚ɁAƒfƒoƒbƒK‚ŃuƒŒ[ƒN‚·‚é‚悤‚É‚µ‚Ü‚·B
-
+ -
+
ŽQl
-
+
(src)
-
+ -
+
vbslib ‚̃†[ƒU[‚̃Tƒ“ƒvƒ‹F
-
+
g_cut_old = True
-
+
If g_cut_old Then Stop :If g_cut_old=I_CutOldErr Then Error
-
+
vbslib ‚̍쐬ŽÒ‚̃Tƒ“ƒvƒ‹F
-
+
ƒfƒtƒHƒ‹ƒg‚Í True ‚É‚È‚è‚Ü‚·B
False ‚É‚·‚é‚ɂ́A
-
+
  '--- start of parameters for vbslib include -------------------------------
Dim g_cut_old : g_cut_old = False
-
+
‚ÉŽŸ‚̂悤‚É‹Lq‚µ‚Ä‚­‚¾‚³‚¢B
-
+ -
+
g_cut_old ‚́A”pŽ~‚³‚ê‚Ü‚µ‚½B ‘ã‚í‚è‚É ThisIsOldSpec ‚ðŽg‚Á‚Ä‚­‚¾‚³‚¢B
-
+ @@ -1053,30 +1053,30 @@ SetupVbslibParameters
- + -© -¥ -£ +© +¥ +£ -
+ -
+
Sub  SetErrorOfOldSpec()
-
+
ThisIsOldSpec ‚ªŒÄ‚΂ꂽ‚çAƒGƒ‰[‚É‚·‚é‚悤‚ɐݒ肵‚Ü‚·B
-
+
ƒtƒ@ƒCƒ‹F
-
+
vbs_inc_sub.h
-
+
(src)
-
+
ŠÖ˜A
-
+ @@ -1087,30 +1087,30 @@ vbs_inc_sub.h
- + -© -¥ -£ +© +¥ +£ -
+
SetNotErrorOfOldSpec
-
+
Sub  SetNotErrorOfOldSpec()
-
+
ThisIsOldSpec ‚ªŒÄ‚΂ê‚Ä‚àAƒGƒ‰[‚É‚µ‚È‚¢‚悤‚ɐݒ肵‚Ü‚·B
-
+
ƒtƒ@ƒCƒ‹F
-
+
vbs_inc_sub.h
-
+
ŠÖ˜A
-
+ -
+
(src)
@@ -1120,21 +1120,21 @@ vbs_inc_sub.h
- + -© -¥ -£ +© +¥ +£ -
+ -
+
Function  GetOSVersion() as double
-
+
Windows ‚Ì“à•”ƒo[ƒWƒ‡ƒ“‚ð•Ô‚µ‚Ü‚·B
-
+
5.0 = Windows 2000
5.1 = Windows XP
6.0 = Windows Vista
@@ -1142,17 +1142,17 @@ Windows 6.2 = Windows 8
6.3 = Windows 8.1
10 = Windows 10
-
+
(src)
-
+ -
+
ŠÖ˜A
-
+ -
+ @@ -1163,118 +1163,118 @@ Windows - + -© -¥ -£ +© +¥ +£ -
+ -
+
  set_    "FooVar", "1"
-
+
ƒTƒ“ƒvƒ‹F
-
+
Sub  SetVar( Symbol as string, Value as variant )
-
+
vbslib ‚̊‹«•Ï”‚ðÝ’肵‚Ü‚·B
-
+
yˆø”z
-
+
Symbol
-
+
Value
-
+
•Ï”–¼
-
+
Ý’è‚·‚é’lAEmpty = •Ï”‚ð–¢’è‹`‚É‚·‚é
-
+
ŠÖ˜A
-
+ -
+ -
+
(src)
-
+ -
+ -
+ -
+
set_ ‚́AOS ‚̊‹«•Ï”‚ɂ͐ݒ肳‚ê‚Ü‚·B
SetVar ‚́AOS ‚̊‹«•Ï”‚ɂ͐ݒ肳‚ê‚Ü‚¹‚ñB‚»‚Ì‚½‚߁ARunProg ‚È‚Ç‚Å
ŽqƒvƒƒZƒX‚ð‹N“®‚µ‚Ä‚àA“`’B‚³‚ê‚Ü‚¹‚ñB
‚»‚Ì‘ã‚í‚èA•¶Žš—ñˆÈŠOi”’l‚â”z—ñ‚Ȃǁj‚ðÝ’è‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
set_ ‚à SetVar ‚àAenv ‚ðŽg‚Á‚ÄŽQÆ‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
set_ ‚ðŽÀs‚·‚é‚ƁA“¯‚¶–¼‘O‚̃[ƒJƒ‹ŠÂ‹«‚̕ϐ”‚ªíœ‚³‚ê‚Ü‚·B(2016-08-18‚æ‚è)
-
+
’ˆÓ
-
+
ŠÂ‹«•Ï”‚̓Oƒ[ƒoƒ‹•Ï”‚Æ“¯‚¶‚Ȃ̂ŁA‚È‚é‚ׂ­Žg‚í‚È‚¢‚Å‚­‚¾‚³‚¢B
‰º‹L‚Ì‚¢‚¸‚ê‚©‚ªŽg—p‚Å‚«‚È‚¢‚©ŒŸ“¢‚µ‚Ä‚­‚¾‚³‚¢B
-
+ -
+
EÝ’èŠÖ”
-
+
EƒIƒuƒWƒFƒNƒg‚̃ƒ\ƒbƒhAƒvƒƒpƒeƒB
-
+
¨ clib ‚̊‹«•Ï”
-
+
¨ T_Var ƒtƒHƒ‹ƒ_
-
+
ƒeƒXƒg
-
+
Sub  set_( Symbol as string, Value as string )
-
+ -
+
  SetVar  "FooVar", 1
-
+ -
+
(src)
-
+ -
+
¨ T_Var ƒtƒHƒ‹ƒ_
-
+
ƒeƒXƒg
-
+ -
+
OS ‚̊‹«•Ï”
-
+ -
+ -
+ -
+ -
+
PATH ŠÂ‹«•Ï”‚̒ljÁ
@@ -1284,71 +1284,71 @@ PATH - + -© -¥ -£ +© +¥ +£ -
+ -
+
  v = GetVar( "FooVar" )
-
+
ƒTƒ“ƒvƒ‹F
-
+
Function  GetVar( Symbol as string ) as variant
-
+
vbslib ‚̊‹«•Ï”‚Ì’l‚ð•Ô‚µ‚Ü‚·B
-
+
yˆø”z
-
+
Symbol
-
+
•Ô‚è’l
-
+
•Ï”–¼
-
+
Symbol ‚ÉŽw’肵‚½ŠÂ‹«•Ï”‚Ì’l
-
+
ŠÖ˜A
-
+ -
+
(src)
-
+ -
+
’l‚ðÝ’肵‚Ä‚¢‚È‚¢ŠÂ‹«•Ï”‚ðŽw’肵‚½‚Æ‚«‚́AƒGƒ‰[‚ª”­¶‚·‚é‚Ì‚Å‚Í‚È‚­AEmpty ‚ð•Ô‚µ
‚Ü‚·B

OS ‚̊‹«•Ï”‚ðŽw’è‚·‚邱‚Æ‚à‚Å‚«‚Ü‚·B
-
+ -
+ -
+ -
+
¨ T_Var ƒtƒHƒ‹ƒ_
-
+
ƒeƒXƒg
-
+
T_Var1
-
+
T_Var2
-
+
•Ï”–¼‚É % ‚ð•t‚¯‚½‚à‚Ì‚ðŽw’肵‚½ê‡A% ‚ª–³‚¢•Ï”–¼‚Ì’l‚ª•Ô‚è‚Ü‚·B
-
+
  GetVar( "FooVar" ) = GetVar( "%FooVar%" )
@@ -1358,49 +1358,49 @@ T_Var2
- + -© -¥ -£ +© +¥ +£ -
+ -
+
(src)
-
+
  SetVarBreak  "FooVar", Empty
-
+
ƒTƒ“ƒvƒ‹F
-
+
Sub  SetVarBreak( Symbol as string, Opt as Empty )
-
+
vbslib ‚̊‹«•Ï”‚Ì’l‚ðÝ’èA‚Ü‚½‚ÍŽQÆ‚µ‚Ä‚¢‚é‚Æ‚±‚ë‚ŃuƒŒ[ƒN‚·‚é‚悤‚ɐݒ肵‚Ü‚·B
-
+
yˆø”z
-
+
Symbol
-
+
Opt
-
+
•Ï”–¼
-
+
Empty ‚ðŽw’肵‚Ä‚­‚¾‚³‚¢
-
+
ŠÖ˜A
-
+ -
+ -
+ -
+ @@ -1411,17 +1411,17 @@ Empty - + -© -¥ -£ +© +¥ +£ -
+ -
+
Sub  FuncA()
  Set v_= new VarStack

@@ -1430,21 +1430,21 @@ Sub  FuncA()
  g_Vers "Foo4",  1

End Sub  '// Œ³‚̊‹«•Ï”‚Ì’l‚É–ß‚é
-
+
ƒIƒuƒWƒFƒNƒg‚ª”jŠü‚³‚ê‚éƒ^ƒCƒ~ƒ“ƒO‚ŁAŠÂ‹«•Ï”‚Ì’l‚ðŒ³‚É–ß‚µ‚Ü‚·B
‰º‹L‚̏ꍇAŠÖ”‚©‚甲‚¯‚é‚Æ–ß‚µ‚Ü‚·B
-
+
(src)
-
+ -
+ -
+ -
+ @@ -1455,98 +1455,98 @@ g_Vers
- + -© -¥ -£ +© +¥ +£ -
+ -
+
(src)
-
+ -
+
Sub  LoadEnvVars( Path_ofSetCommandLog, Option_ )
-
+
ƒtƒ@ƒCƒ‹‚ðŽQÆ‚µ‚āA•¡”‚̊‹«•Ï”‚ðŒ»Ý‚ÌƒvƒƒZƒX‚ɐݒ肵‚Ü‚·B
-
+
yˆø”z
-
+
Path_ofSetCommandLog
-
+
ŠÂ‹«•Ï”‚̐ݒè‚̈ꗗ‚̃tƒ@ƒCƒ‹ƒpƒXA‚Ü‚½‚ÍŽ«‘
-
+
ŠÂ‹«•Ï”‘S‘Ì‚ðAƒtƒ@ƒCƒ‹‚É‹Lq‚³‚ꂽ’l‚ɐݒ肵‚Ü‚·B
-
+
  LoadEnvVars  "settings.txt", Empty
-
+
setting.txt
-
+
VAR1=value1
VAR2=3
VAR3=cmd
-
+
¨ T_Var.vbs # T_LoadEnvVars
-
+
ƒeƒXƒg
-
+
¡‚܂Őݒ肳‚ê‚Ä‚¢‚½ŠÂ‹«•Ï”‚Ì‚¤‚¿APath_ofSetCommandLog ‚̃tƒ@ƒCƒ‹‚É‹Lq‚³‚ê‚Ä
‚¢‚È‚¢ŠÂ‹«•Ï”‚́Aíœ‚³‚ê‚Ü‚·B ‚½‚¾‚µAOption_ = F_Append ‚É‚·‚é‚ƍ폜‚³‚ê‚Ü‚¹‚ñB
-
+
Option_
-
+
Empty ‚Ü‚½‚Í F_Append ‚Ü‚½‚ÍŽ«‘
-
+
setting.txt ‚́AƒRƒ}ƒ“ƒhƒvƒƒ“ƒvƒg‚Ì set (Enter) ‚ŏo—Í‚³‚ê‚é“à—e‚Æ“¯‚¶ƒtƒH[ƒ}ƒbƒg‚Å‚·B
VBScript ‚ł́A‰º‹L‚̂悤‚É‹Lq‚µ‚Ü‚·B
-
+
g_sh.Run  "cmd /C (set > ""C:\folder\settings.txt"")",, True
-
+
ŽQl
-
+ -
+
ŠÂ‹«•Ï”‘S‘Ì‚ðAŽ«‘‚É“ü‚Á‚Ä‚¢‚é“à—e‚ɐݒ肵‚Ü‚·B
-
+
  Set dic = CreateObject( "Scripting.Dictionary" )
  dic.Item( "VAR1" ) = "value1"
  dic.Item( "VAR2" ) = "3"
  LoadEnvVars( dic, Empty )
-
+
ŠÖ˜A
-
+ -
+ -
+ -
+
  Set envs = CreateObject( "Scripting.Dictionary" )
  LoadEnvVars  "settings.txt", envs
-
+
ƒtƒ@ƒCƒ‹‚É“ü‚Á‚Ä‚¢‚éŠÂ‹«•Ï”‚̐ݒè‚ðAŽ«‘‚ÉŠi”[‚·‚é
-
+
ƒTƒ“ƒvƒ‹
-
+
Option_ ˆø”‚ÉŽ«‘ƒIƒuƒWƒFƒNƒg‚ð“n‚·‚ƁA‚»‚ÌŽ«‘ƒIƒuƒWƒFƒNƒg‚Ì“à—e‚ª•Ï‚í‚邾‚¯‚ŁA
ŠÂ‹«•Ï”‚Ì’l‚Í•Ï‚í‚è‚Ü‚¹‚ñB
-
+
ƒTƒ“ƒvƒ‹
-
+
ƒTƒ“ƒvƒ‹
@@ -1556,54 +1556,54 @@ Option_ - + -© -¥ -£ +© +¥ +£ -
+ -
+
(src)
-
+ -
+
Sub  SaveEnvVars( Path_ofSetCommandLog, Option_ )
-
+
Œ»Ý‚̊‹«•Ï”‚ðƒtƒ@ƒCƒ‹‚É•Û‘¶‚·‚é‚©AŽ«‘‚ÉŠi”[‚µ‚Ü‚·B
-
+
yˆø”z
-
+
Path_ofSetCommandLog
-
+
ƒtƒ@ƒCƒ‹ƒpƒXA‚Ü‚½‚ÍŽ«‘A‚Ü‚½‚Í Empty
-
+
Option_
-
+
Empty ΁Տ
-
+
Path_ofSetCommandLog ‚ɁA’l‚ª“ü‚Á‚Ä‚¢‚È‚¢iEmpty ‚́j•Ï”‚ðŽw’肵‚½‚çA
“à•”‚Å Dictionary ƒIƒuƒWƒFƒNƒg‚𐶐¬‚µ‚āA‚»‚Ì’†‚Ɋ‹«•Ï”‚̐ݒè’l‚ð
Ši”[‚µ‚Ü‚·B
-
+
ƒTƒ“ƒvƒ‹F
-
+
  Dim  envs
  SaveEnvVars  envs, Empty  '//[out] envs
  echo  envs
  LoadEnvVars  envs, Empty
-
+
¨ T_Var.vbs # T_LoadEnvVars
-
+
ƒeƒXƒg
-
+
ŠÖ˜A
-
+ @@ -1613,7 +1613,7 @@ Path_ofSetCommandLog +©