X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=_src%2F_vbslib%20manual.files%2Fvbslib.files%2Fvbslib_51.html;fp=_src%2F_vbslib%20manual.files%2Fvbslib.files%2Fvbslib_51.html;h=79054f6cd571a2eab05afca50e9f970eae45b9a5;hb=a8fbbed66473aeefd39572b4e73add0cbdf9ba39;hp=37d27e971f94e270ab386f02b2d26dee6a00da6a;hpb=dd0cb37955bb57eddf077bca2981ee877b32e4f6;p=vbslib%2Fmain.git diff --git a/_src/_vbslib manual.files/vbslib.files/vbslib_51.html b/_src/_vbslib manual.files/vbslib.files/vbslib_51.html index 37d27e9..79054f6 100644 --- a/_src/_vbslib manual.files/vbslib.files/vbslib_51.html +++ b/_src/_vbslib manual.files/vbslib.files/vbslib_51.html @@ -87,1234 +87,1310 @@ function out( text ){ text.style.display = "none"; } - + -© -¥ -£ +© +¥ +£
ª
- - -
-ParentProcess ƒIƒuƒWƒFƒNƒg‚̃ƒ“ƒo[
- -
-Class  ParentChildProcess
-  Public  m_OutFile 'as TextStream (Write) ... ŽqƒvƒƒZƒX‚Ö“n‚· XML ƒtƒ@ƒCƒ‹
-  Public  m_InXML 'as IXMLDOMElement ... ƒƒCƒ“EƒvƒƒZƒX‚É–ß‚³‚ê‚é ƒ‹[ƒgXML—v‘f
-
-  Public  m_TempPath ' as string. ‘—ŽóMƒtƒ@ƒCƒ‹‚ª‚Å‚«‚éƒtƒHƒ‹ƒ_‚̃pƒX
-  Public  m_DateID ' as string. —áF"090401". /ChildProcess ƒIƒvƒVƒ‡ƒ“‚É“n‚·’l
-  Public  m_FileID ' as string. —áF"1". /ChildProcess ƒIƒvƒVƒ‡ƒ“‚É“n‚·’l
-End Class
- -
-  sample.Name = "A" : sample.Value = 1
-
-  '// ŽqƒvƒƒZƒX‹N“®‘O‚ɁA‘—‚éƒIƒuƒWƒFƒNƒg‚ðXMLƒtƒ@ƒCƒ‹‚É•ÏŠ·‚·‚é
-  Dim  pr : new_ParentProcess_Object  pr, Empty '//[out] pr as ParentChildProcess
-  pr.m_OutFile.WriteLine  sample.xml
-
-
-  '// ŽqƒvƒƒZƒX‚ð‹N“®‚·‚é
-  Dim r : r= RunProg( "cscript.exe T_ChildProcess1_Sub.vbs", pr )
-  CheckTestErrLevel  r
-
+ + + +
+<SectionTree CurrentSectionNames="Sec1"/>
+ +
+Function  SectionTree::xml() as string
+
+Œ»Ý‚̃ZƒNƒVƒ‡ƒ“‚ð•Ô‚µ‚Ü‚·B
+
+ƒTƒ“ƒvƒ‹
+ +
+  Dim  section : Set section = new SectionTree

-  '// ŽqƒvƒƒZƒXI—¹Œã‚ɁA–ß‚³‚ꂽXMLƒtƒ@ƒCƒ‹‚ðƒIƒuƒWƒFƒNƒg‚É–ß‚·
-  sample.loadXML  pr.m_InXML.selectSingleNode( _
-    TypeName( sample ) +"[@name='"+ sample.Name +"']" )
-
-Žg—pƒTƒ“ƒvƒ‹F
-
-ŽqƒvƒƒZƒX‚ɁAƒf[ƒ^‚ðŽó‚¯“n‚µ‚·‚é‚Æ‚«‚́Anew_ParentProcess_Object ‚Ő¶¬‚µ‚½
-ParentProcess ƒIƒuƒWƒFƒNƒg‚ð RunProg ‚É“n‚µ‚Ü‚·B
-
-new_ParentProcess ‚Ő¶¬‚µ‚½ ParentProcess ƒIƒuƒWƒFƒNƒg‚ɂ́A‘¼‚ÌŽqƒvƒƒZƒX‚Ǝ󂯓n‚µ
-‚·‚éƒtƒ@ƒCƒ‹‚Ì–¼‘O‚ªd•¡‚µ‚È‚¢”ԍ†‚ª m_FileID ‚É“ü‚Á‚Ä‚¢‚Ü‚·B •¡”‚ÌŽqƒvƒƒZƒX‚ð
-•½s‚µ‚Ä“¯Žž‚É“®‚©‚·‚Æ‚«‚́AParentProcess ƒIƒuƒWƒFƒNƒg‚ð‚à‚¤‚P‚¶¬‚µ‚Ä‚­‚¾‚³‚¢B
-‘O‚ÌŽqƒvƒƒZƒX‚ªI‚í‚Á‚Ä‚©‚玟‚ÌŽqƒvƒƒZƒX‚ð“®‚©‚·‚Æ‚«‚́A“¯‚¶ ParentProcess
-ƒIƒuƒWƒFƒNƒg‚ªŽg‚¦‚Ü‚·B
-
+  If section.Start( "Sec1" ) Then
+      echo  section
+  End If : section.End_
+
+o—Í—áF
+
+Œ»Ý‚̃ZƒNƒVƒ‡ƒ“‚ð•\Ž¦‚µ‚Ü‚·B ‚È‚¨Aecho ‚ÉŽw’è‚·‚é‚Æ‚«‚Í xml ‚ðÈ—ª‚Å‚«‚Ü‚·B
+
+ƒtƒ@ƒCƒ‹F
+ +
+vbslib.vbs
+ +
+ƒeƒXƒg
+
+¨ T_SectionTree.vbs # [T_SectionTree_1]
+
+¨ T_SectionTree.vbs # [T_SectionTree_2]
+
(src)
-
-pr
- - - - - + + + + - + -© -¥ -£ - - -
-vbs_inc ƒ‚ƒWƒ…[ƒ‹‚́Avbslib ‚ðƒCƒ“ƒNƒ‹[ƒh‚·‚é‘O‚ÉŽ©“®“I‚É /ChildProcess ƒIƒvƒVƒ‡ƒ“‚ª‚ ‚é‚©‚Ç‚¤‚©‚ð
-”»’肵A‚ ‚ê‚Î ChildProcess ƒIƒuƒWƒFƒNƒg‚𐶐¬‚µ‚Ü‚·B ChildProcess ƒIƒuƒWƒFƒNƒg‚́Aget_ChildProcess
- -
-  Dim  pr, sample
-
-  '// ƒvƒƒOƒ‰ƒ€ŠJŽnŽž‚ɁA‘—‚ç‚ê‚Ä‚«‚½XMLƒtƒ@ƒCƒ‹‚ðƒIƒuƒWƒFƒNƒg‚É–ß‚·
-  Set pr = get_ChildProcess()  ' as ParentChildProcess
-  new_ObjectFromStream  sample, "SampleClass", pr
-
-
-  '// main
-  If not IsEmpty( sample ) Then
-    sample.Value = 2
-  End If
-
-
-  '// ƒvƒƒOƒ‰ƒ€I—¹Žž‚ɁA–ß‚·ƒIƒuƒWƒFƒNƒg‚ðXMLƒtƒ@ƒCƒ‹‚É•ÏŠ·‚·‚é
-  If not pr is Nothing Then
-    If not IsEmpty( sample ) Then  pr.m_OutFile.WriteLine  sample.xml
-  End If
- -
-‚Å‚ ‚èAƒƒCƒ“ƒvƒƒZƒX‚©‚ç‚̏î•ñ‚ð m_InXML ‚©‚ç“ü—Í‚µA
-
-ŠÖ”‚Ŏ擾‚Å‚«‚é
-
-ChildProcess ƒIƒuƒWƒFƒNƒg‚̃ƒ“ƒo[
-
-Žg—pƒTƒ“ƒvƒ‹F
- -
-Class  ParentChildProcess
-  Public  m_InXML 'as IXMLDOMElement ... ƒƒCƒ“EƒvƒƒZƒX‚©‚ç“n‚³‚ê‚é ƒ‹[ƒgXML—v‘f
-  Public  m_OutFile 'as TextStream (Write) ... ƒƒCƒ“EƒvƒƒZƒX‚Ö–ß‚· XML ƒtƒ@ƒCƒ‹
-
-  Public  m_TempPath ' as string. ‘—ŽóMƒtƒ@ƒCƒ‹‚ª‚Å‚«‚éƒtƒHƒ‹ƒ_‚̃pƒX
-  Public  m_DateID ' as string. —áF"090401". ƒtƒ@ƒCƒ‹–¼‚̈ꕔ
-  Public  m_FileID ' as string. —áF"1". ƒtƒ@ƒCƒ‹–¼‚̈ꕔ
-End Class
-
-ƒƒCƒ“ƒvƒƒZƒX‚Ö–ß‚·î•ñ‚ðAm_OutFile ‚ɏo—Í‚·‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
-
-/ChildProcess ƒIƒvƒVƒ‡ƒ“‚ª‚È‚¢‚Æ‚«‚́Aget_ChildProcess ŠÖ”‚ªANothing ƒIƒuƒWƒFƒNƒg‚ð•Ô‚µ‚Ü‚·B
-
-ŽQl
- -
-¨ XPath
-
+© +¥ +£ + +
+‹ŒŽd—l
+ + + + + + + + + + +© +¥ +£ + + + +
+Sub  EchoTestStart( TestSymbol as string )
+
+ƒeƒXƒgƒVƒ“ƒ{ƒ‹‚ðƒGƒR[o—Í‚µ‚Ü‚·B
+ +
+EchoTestStart  "T_Samp1"
+ +
+ ((( [T_Samp1] )))
+
+ƒTƒ“ƒvƒ‹‚P
+
+ƒTƒ“ƒvƒ‹‚̏o—Í
+ +
+EchoTestStart  tests.Symbol
+
+ƒTƒ“ƒvƒ‹‚Q
+
(src)
- + +
+‚â
+ +
+‚ðŽÀs‚·‚é‚Æ‚«‚́AEchoTestStart ŠÖ”‚ðŒÄ‚΂Ȃ­‚Ä‚àAŽ©“®
+
+Test_start ŠÖ”‚Ì’†‚Å•¡”‚̃eƒXƒg‚ð‚·‚é‚Æ‚«‚ɁAEchoTestStart ŠÖ”‚ðŽg‚¤‚ƁAƒeƒXƒg‚̃ƒO
+‚ªŒ©‚â‚·‚­‚È‚è‚Ü‚·B
+
+“I‚ɃVƒ“ƒ{ƒ‹‚ªƒGƒR[o—Í‚³‚ê‚Ü‚·B
+
+”pŽ~—\’è‚Å‚·B
+
+‘ã—p
+ - - - - + + + + - + -© -¥ -£ - - - -
-Class  InterProcessData  '// defined_as_interface
-  Public Sub  OnCallInParent( a_ParentProcess as ParentChildProcess ) : End Sub
-  Public Sub  loadXML( XmlObject as IXMLDOMElement ) : End Sub
-  Public Sub  OnReturnInChild( a_ChildProcess as ParentChildProcess ) : End Sub
-  Public Sub  OnReturnInParent( a_ParentProcess as ParentChildProcess ) : End Sub
-End Class
-
-Function  new_InterProcessData()
-  Set new_InterProcessData = new InterProcessData
-End Function
-
-¨ T_ChildProcess2_include.vbs
-
+© +¥ +£ + + + +
+SkipToSection  Array( 5, 2 )
+
+ƒTƒ“ƒvƒ‹F ƒZƒNƒVƒ‡ƒ“”ԍ† 5,2 ‚©‚çŽÀs‚·‚éi 5,1 ‚æ‚è‘O‚ÍŽÀs‚ðƒXƒLƒbƒv‚·‚éBj
+ +
+Sub  SkipToSection( Num as integer )
+
+Žw’肵‚½”ԍ†‚̃ZƒNƒVƒ‡ƒ“‚æ‚è‘O‚̃ZƒNƒVƒ‡ƒ“‚ðƒXƒLƒbƒv‚·‚é‚悤‚ɐݒ肵‚Ü‚·B
+
+yˆø”z
+
+Num
+
+ŽŸ‚ÉŽÀs‚·‚éƒZƒNƒVƒ‡ƒ“”ԍ†
+
+’ʏíAƒƒCƒ“ŠÖ”‚©‚çŒÄ‚яo‚µ‚Ü‚·B
+‚Í‚¶‚ß‚Í 0 ‚ðŽw’肵‚āAƒZƒNƒVƒ‡ƒ“”ԍ†‚ð echo o—Í‚³‚¹‚Ü‚·B
+ŽŸ‚ɁAƒXƒLƒbƒv‚µ‚½‚¢ƒZƒNƒVƒ‡ƒ“‚𒲂ׂāAŽŸ‚ÉŽÀs‚µ‚½‚¢ƒZƒNƒVƒ‡ƒ“”ԍ†‚ðŽw’肵‚Ü‚·B
+ +
+SkipToSection  5
+
+ƒTƒ“ƒvƒ‹F ƒZƒNƒVƒ‡ƒ“”ԍ† 5 ‚©‚çŽÀs‚·‚éi 5 ‚æ‚è‘O‚ÍŽÀs‚ðƒXƒLƒbƒv‚·‚éBj
+
+(src)
+
+ŠÖ˜A
+
+ƒZƒNƒVƒ‡ƒ“”ԍ†‚́A‰º‹L‚̂悤‚É echo o—Í‚³‚ê‚Ü‚·B SkipToSection ‚ðˆê“x‚àŒÄ‚ñ‚Å
+‚¢‚È‚¢‚Æ‚«‚âAƒXƒLƒbƒv’†‚͏o—Í‚³‚ê‚Ü‚¹‚ñB
+ +
+<Section num='4'/>
+
ƒeƒXƒg
-
-ƒ‰ƒCƒuƒ‰ƒŠ‚ªŽ©“®“I‚ÉŽqƒvƒƒZƒX‚Ɏ󂯓n‚µ‚ð‚·‚éƒIƒuƒWƒFƒNƒg‚É•K—v‚ȃCƒ“ƒ^[ƒtƒF[ƒX‚Å‚·B
-Err2 ‚́A‚±‚̃Cƒ“ƒ^[ƒtƒF[ƒX‚ðŽ‚Á‚Ä‚¢‚Ü‚·B
- -
-Dim  g_Sample
-
-Sub  InitializeModule_Sample  '// vbslib ƒ‚ƒWƒ…[ƒ‹‚̃Oƒ[ƒoƒ‹E‰Šú‰»ŠÖ”
-  '// NewChildProcessOnStart ‚ÌŒã‚Å
-  new_ObjectFromStream  g_Sample, "SampleClass", get_ChildProcess()
-  If not IsEmpty( g_Sample ) Then  g_InterProcess.m_Data.Add  g_Sample
-End Sub
- -
-¨ T_ChildProcess2.vbs
-
-ŽQl
-
-ŽQl
-
-¨ T_ChildProcess2_Sub.vbs
- -
-  '// ŽqƒvƒƒZƒX‚Æ‘—ŽóM‚·‚éƒIƒuƒWƒFƒNƒg‚ð“o˜^‚·‚é
-  Dim sample : Set sample = new SampleClass  '// has_interface_of InterProcessData
-  g_InterProcess.m_Data.Add  sample
-
-ŽqƒvƒƒZƒX‚É“n‚·ƒIƒuƒWƒFƒNƒg‚́Ag_InterProcess.m_Data as ArrayClass ‚É“o˜^‚µ‚Ä‚­‚¾‚³‚¢B
-
-ŽqƒvƒƒZƒX‚̃‰ƒCƒuƒ‰ƒŠ‚̏‰Šú‰»ivbslib ƒ‚ƒWƒ…[ƒ‹‚̃Oƒ[ƒoƒ‹E‰Šú‰»ŠÖ”j‚ŁA
-get_ChildProcess as ParentChildProcess ‚©‚çAnew_ObjectFromStream ‚È‚Ç‚ðŽg‚Á‚āA
-ƒIƒuƒWƒFƒNƒg‚ðŽó‚¯Žæ‚Á‚Ä‚­‚¾‚³‚¢B ƒƒCƒ“EƒvƒƒZƒX‚É“n‚·ƒIƒuƒWƒFƒNƒg‚́A
-g_InterProcess.m_Data as ArrayClass ‚É“o˜^‚µ‚Ä‚­‚¾‚³‚¢B
-
-ŽQl
-
-¨ T_ChildProcess2.vbs
+ +
+ˆê“x‚à SkipToSection ‚ªŒÄ‚΂ê‚Ä‚¢‚È‚¢‚Æ‚«‚́AƒOƒ[ƒoƒ‹•Ï” g_SkipSection ‚ª
+Empty ‚É‚È‚Á‚Ä‚¢‚Ü‚·B
+
+ƒTƒ“ƒvƒ‹F ƒZƒNƒVƒ‡ƒ“”ԍ†‚ð•\Ž¦‚³‚¹‚È‚¢A‚©‚AŽÀs‚̃XƒLƒbƒv‚ð‚µ‚È‚¢B
+ +
+SkipToSection  Empty
+
+NotSkipSection ‚ɃuƒŒ[ƒNƒ|ƒCƒ“ƒg‚𒣂é‚ƁAƒZƒNƒVƒ‡ƒ“‚²‚ƂɃuƒŒ[ƒN‚µ‚Ü‚·B
+ + + - - - - + + + + - + -© -¥ -£ - -
-ƒ‰ƒCƒuƒ‰ƒŠ‚̃f[ƒ^‚ðŠi”[ŒãAg_InterProcess ‚̃f[ƒ^‚ðŠi”[’¼‘O‚ɁA
-{‚P‚³‚ê‚Ü‚·B
- -
+© +¥ +£ + + +
(src)
- -
-Dim  g_InterProcess ' as InterProcess
+ +
+Function  SkipSection::Start() as boolean
+ +
+  Dim  section : Set section = new SkipSection
+
+  If section.Start() Then  '// section 1
+      :
+    section.End_
+  End If

-Class InterProcess
-  Public Property Get  ProcessCallID   '// as ArrayClass of integer
-  Public               InterProcessUserData  '// as string
-End Class
-
-ƒƒCƒ“EƒvƒƒZƒX‚ÆŽqƒvƒƒZƒX‚Å‹¤—L‚·‚é•Ï”‚Å‚·B
-
-.ProcessCallID  ' as ArrayClass of integer
-
-ProcessCallID(0) = ƒƒCƒ“EƒvƒƒZƒX‚ªŽqƒvƒƒZƒX‚ð‹N“®‚µ‚½‰ñ”B
-ProcessCallID(1) = ŽqƒvƒƒZƒX‚ª‘·ƒvƒƒZƒX‚ð‹N“®‚µ‚½‰ñ”B
- -
-.InterProcessUserData as string
-
-ƒAƒvƒŠƒP[ƒVƒ‡ƒ“Eƒ†[ƒU[‚ªƒfƒoƒbƒO—p‚ÉŽg‚¦‚Ü‚·
- -
+  If section.Start() Then  '// section 2
+    If exist( "out.txt" ) Then  '// ðŒ‚É‚æ‚Á‚āA‚µ‚È‚¢‚±‚Æ‚ª‚ ‚鏈—‚́Asection ‚Ì’†‚Ö
+        :
+    End If
+    section.End_
+  End If
+
+ƒTƒ“ƒvƒ‹F
+
+–{ŠÖ”‚ðŒÄ‚яo‚µ‚½êŠ‚ðƒZƒNƒVƒ‡ƒ“‚ÌŠJŽnêŠ‚Æ‚µ‚Ü‚·B
+
ƒeƒXƒg
+
+¨ T_SkipToSection ƒtƒHƒ‹ƒ_
- - - - + + + + - + -© -¥ -£ - - -
-Žó‚¯“n‚µ‚Ì“à—e‚ðŠm”F‚·‚é‚É‚Í
-
-%Temp%\Report\090401\ChildProcess_1\In.xml
-
-%Temp%\Report\090401\ChildProcess_1\Out.xml
-
-‰º‹L‚Ì XML ƒtƒ@ƒCƒ‹‚ðŠm”F‚µ‚Ä‚­‚¾‚³‚¢B
-‚½‚¾‚µAParentProcess ƒIƒuƒWƒFƒNƒg‚ªíœ‚³‚ꂽ‚çAXML ƒtƒ@ƒCƒ‹‚àíœ‚³‚ê‚é‚Ì‚Å’ˆÓ‚µ‚Ä‚­‚¾‚³‚¢B
- -
+© +¥ +£ + + + +
+Sub  SkipSection::End_()
+
ŽQl
-
-ƒAƒvƒŠƒP[ƒVƒ‡ƒ“‚©‚çƒf[ƒ^‚ª‘—‚ê‚È‚¢
-
-RunProg ‚Ì‘æ2ˆø”‚ɁAParentProcess ƒIƒuƒWƒFƒNƒg‚ðŽw’肵‚Ä‚¢‚é‚©Šm”F‚µ‚Ä‚­‚¾‚³‚¢B
+ - - - - + + + + - + -© -¥ -£ - - - -
-Function  GetCScriptGUI_CommandLine( Parameters as string ) as string
-
-ƒ_ƒuƒ‹ƒNƒŠƒbƒN‚µ‚½‚Æ‚«‚ɁAvbslib ‚̃Rƒ}ƒ“ƒhEƒvƒƒ“ƒvƒg‚ðŠJ‚­ƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚ð•Ô‚µ‚Ü‚·B
-
+© +¥ +£ + + +
+(src)
+ +
+Function  NotSkipSection() as boolean
+
+–{ŠÖ”‚ðŒÄ‚яo‚µ‚½êŠ‚ðƒZƒNƒVƒ‡ƒ“‚ÌŠJŽnêŠ‚Æ‚µ‚Ü‚·B
+
yˆø”z
-
-Parameters
-
-cscript.exe ‚É“n‚·ƒpƒ‰ƒ[ƒ^[
-
-ƒRƒ}ƒ“ƒhƒ‰ƒCƒ“
-
+
•Ô‚è’l
-
-ƒTƒ“ƒvƒ‹
- -
-command_line = GetCScriptGUI_CommandLine( "sample.vbs" )
-Assert  command_line = _
-    """%windir%\System32\cmd.exe"" /K (""%windir%\SysWOW64\cscript.exe"" sample.vbs)"
-
-Windows ‚̃o[ƒWƒ‡ƒ“‚É‚æ‚Á‚āA•Ô‚è’l‚Ì“à—e‚Í•Ï‚í‚è‚Ü‚·B
-
+
+SkipToSection ‚Őݒ肳‚ꂽƒZƒNƒVƒ‡ƒ“ˆÈ~‚©‚Ç‚¤‚©
+
+ƒTƒ“ƒvƒ‹F
+ +
+For Each i  As arr
+  If NotSkipSection() Then
+    DoTest
+  End If
+Next
+
+–{ŠÖ”‚ðŒÄ‚яo‚·‚ƃZƒNƒVƒ‡ƒ“”ԍ†‚ð{‚P‚µ‚Ü‚·B
+SkipToSection ‚ªŒÄ‚΂ê‚Ä‚¢‚½‚çAƒZƒNƒVƒ‡ƒ“”ԍ†‚ð echo o—Í‚µ‚Ü‚·B
+ +
+<Section num='5'/>
+
+echo o—Í‚Ì—áF
+ +
+”pŽ~—\’è‚Å‚·B SkipSection::Start ` End_ ‚ðŽg‚Á‚Ä‚­‚¾‚³‚¢
+ + + + + + + + + + +© +¥ +£ + + + +
+Sub  SetBreakAtSection( Num )
+
+Žw’è‚̃ZƒNƒVƒ‡ƒ“‚ŃuƒŒ[ƒN‚·‚é‚悤‚É‚µ‚Ü‚·B
+
(src)
-
-ŠÂ‹«•Ï”‚ð“WŠJ‚·‚é‚Æ‚«‚́A
- - - - - + + + + - + -© -¥ -£ - - - -
-Sub  OpenFolder( in_FolderOrFilePath )
-
+© +¥ +£ + + + +
+Function  GetSkipSectionGlobal() as SkipSectionGlobal
+
+ƒZƒNƒVƒ‡ƒ“‚ðŠÇ—‚·‚éƒIƒuƒWƒFƒNƒg‚ð•Ô‚µ‚Ü‚·B
+
yˆø”z
-
-in_FolderOrFilePath
-
-ƒtƒHƒ‹ƒ_[A‚Ü‚½‚̓tƒ@ƒCƒ‹‚̃pƒX
-
-ƒtƒHƒ‹ƒ_[‚ðŠJ‚«‚Ü‚·B ƒtƒHƒ‹ƒ_[‚ª‚È‚¯‚ê‚΃†[ƒU[‚ɏˆ—‚ð‘I‚΂¹‚Ü‚·B
-
-ƒtƒHƒ‹ƒ_[‚ðŠJ‚­ˆ—‚́AOpenFolder ŠÖ”‚Ì“à•”‚©‚ç
- -
-‚ðŒÄ‚яo‚·‚±‚Ƃōs‚¢‚Ü‚·B
-
-in_FolderOrFilePath ˆø”‚̐eƒtƒHƒ‹ƒ_[‚ª‚ ‚ê‚΁A‚»‚̃tƒHƒ‹ƒ_[‚ðŠJ‚«‚Ü‚·B
-eƒtƒHƒ‹ƒ_[‚ª‚È‚¯‚ê‚΁AˆÈ‰º‚̃ƒjƒ…[‚ðŠJ‚«‚Ü‚·B
- -
-"C:\Folder\Sub\File.txt" ‚ªŒ©‚‚©‚è‚Ü‚¹‚ñB
-  1. ƒtƒHƒ‹ƒ_[‚ðì‚é C:\Folder\Sub\File.txt
-  2. ƒtƒHƒ‹ƒ_[‚ðì‚é C:\Folder\Sub
-  3. ƒtƒHƒ‹ƒ_[‚ðŠJ‚­ C:\Folder
-  9. ‘±‚«‚ðŽÀs‚·‚é
-”ԍ†>
-
+
+•Ô‚è’l
+
+ƒZƒNƒVƒ‡ƒ“‚ðŠÇ—‚·‚éƒIƒuƒWƒFƒNƒg
+
ƒ\[ƒX
-
-ƒeƒXƒg
-
-ŠÖ˜A
- -
+
¨ vbslib.vbs
-
-¨ T_OpenFolder_Manually.vbs
+
+GetSkipSectionGlobal ŠÖ”
+
+SkipSectionGlobal ƒNƒ‰ƒX
+
+¨ vbslib.vbs
+ + +
+ƒZƒNƒVƒ‡ƒ“‚ðŠJŽn‚·‚é’¼‘O‚ŃR[ƒ‹ƒoƒbƒN‚·‚éŠÖ”B
- - - - + + + + - + -© -¥ -£ - - - -
-Function  GetEditorCmdLine( PathAndFragment as string ) as string
- -
+© +¥ +£ + + + +
+Sub  SkipSectionGlobal::OnStart( CallbackObject as variant )
+
+ƒZƒNƒVƒ‡ƒ“‚ðŠJŽn‚·‚é’¼‘O‚ŃR[ƒ‹ƒoƒbƒN‚·‚éŠÖ”B
+
yˆø”z
-
-PathAndFragment
-
-•Ô‚è’l
-
-ƒeƒLƒXƒgƒtƒ@ƒCƒ‹‚ւ̃pƒX‚ƍs”ԍ†‚Ü‚½‚̓L[ƒ[ƒh
-
-ƒRƒ}ƒ“ƒhƒ‰ƒCƒ“
-
-ƒTƒ“ƒvƒ‹F
- -
-start  GetEditorCmdLine( "File1.txt#[Func1]" )
-
-File1.txt ‚ðŠJ‚¢‚Ä "[Func1]" ‚ðŠÜ‚ލs‚ɃWƒƒƒ“ƒv‚µ‚Ü‚·
-
-ƒeƒLƒXƒgƒtƒ@ƒCƒ‹‚ðŠJ‚­ƒGƒfƒBƒ^‚́A
-
-ŠÖ”‚ð’è‹`‚·‚邱‚ƂŕύX‚Å‚«
-
-‚Ü‚·B Setting_getEditorCmdLine ‚Ì i=2Ai=3 ‚Ì‚Ç‚¿‚ç‚©‚ɑΉž‚·‚ê‚΁AŽw’è‚̍s‚ÖƒWƒƒƒ“ƒv
-‚Å‚«‚Ü‚·B i=0Ai=1 ‚Ì‚Ç‚¿‚ç‚©‚ɑΉž‚µ‚Ä‚¢‚ê‚΁Aƒtƒ@ƒCƒ‹‚ðŠJ‚­‚±‚Æ‚¾‚¯‚Í‚Å‚«‚Ü‚·B
-
+
+CallbackObject
+
+GetSkipSectionGlobal().CallbackObject
+ +
+Sub  Main( Opt, AppKey )
+    Set ss = GetSkipSectionGlobal()
+    Set ss.OnStart = GetRef("CheckOnCallback")
+    Set ss.CallbackObject = Nothing
+    RunTestPrompt AppKey.NewWritable( "." )
+End Sub
+
+Sub  CheckOnCallback( Argument1 )
+    echo  "CheckOnCallback"
+End Sub
+
+ƒTƒ“ƒvƒ‹
+
ŠÖ˜A
- -
-GetSearchOpenCmdLine ‚Í”pŽ~—\’è‚Å‚·B GetEditorCmdLine ‚ðŽg‚Á‚Ä‚­‚¾‚³‚¢B
-
-ƒTƒ“ƒvƒ‹F
- -
-start  GetEditorCmdLine( "File1.txt(10)" )
-
-ƒTƒ“ƒvƒ‹F
- -
-start  GetEditorCmdLine( "File1.txt" )
-
-File1.txt ‚ðŠJ‚«‚Ü‚·
-
-File1.txt ‚Ì10s–Ú‚ðŠJ‚«‚Ü‚·
-
-‚̐ݒ肪”½‰f‚³‚ê‚Ü‚·B
-
-ƒeƒLƒXƒgEƒGƒfƒBƒ^[‚ð‹N“®‚·‚éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚ð•Ô‚µ‚Ü‚·B
- - -
-start  GetEditorCmdLine( "File1.txt:10" )
- -
-start  GetEditorCmdLine( "File1.txt:[Func1]" )
- -
-Function  GetSearchOpenCmdLine( PathAndFragment as string ) as string
-
-ŽQl
- -
-PathAndFragment ‚ɂ́Aƒ^ƒOƒWƒƒƒ“ƒvŒ`Ž®‚Ì•¶Žš—ñiƒpƒX{s”ԍ†A‚Ü‚½‚́AƒpƒX{s“à—ej
-‚ðŽw’è‚Å‚«‚Ü‚·B Œ`Ž®‚ɂ‚¢‚Ă͉º‹L‚̃Tƒ“ƒvƒ‹‚ðŽQÆ‚µ‚Ä‚­‚¾‚³‚¢B
- -
-ƒL[ƒ[ƒh‚Ì’¼‘O‚Ì•¶Žš‚ªƒRƒƒ“ ( : ) ‚Ì‚Æ‚«‚́A”Žš‚݂̂̃L[ƒ[ƒh‚ðŽw’è‚Å‚«‚Ü‚¹‚ñB
-
-•Ô‚è’l‚ÉŠÜ‚Ü‚ê‚éƒtƒ@ƒCƒ‹EƒpƒX‚́Aƒtƒ‹EƒpƒX‚É‚È‚è‚Ü‚·B
-
-i”pŽ~—\’èj
- -
-ƒ^ƒOƒWƒƒƒ“ƒvŒ`Ž®‚̃pƒX‚̉ðÍ
-
-ƒtƒHƒ‹ƒ_[‚ðŠJ‚­
-
-i”pŽ~—\’èj
-
-ƒ\[ƒX
-
-¨ T_Path.vbs
-
-ƒeƒXƒg
-
-T_GetEditorCmdLine
-
-¨ vbslib.vbs
-
-File1.txt ‚ðŠJ‚¢‚Ä "Func1" ‚ðs––‚Ɋ܂ލs‚ɃWƒƒƒ“ƒv‚µ‚Ü‚·
-
-ƒTƒ“ƒvƒ‹F
- -
-start  GetEditorCmdLine( "File1.txt#Func1${\n}" )
-
+ +
+ƒZƒNƒVƒ‡ƒ“‚ÌŠJŽn‚ðŽw’肵‚Ü‚·B
+ + + + + + + + + + +© +¥ +£ + + + +
+Function  call_vbs( path as string, func as string, param as variant )
+
+Žw’肵‚½ VBScript ƒtƒ@ƒCƒ‹‚Ì’†‚̊֐”‚ðŒÄ‚яo‚µAI—¹‚·‚é‚Ü‚Å‘Ò‚¿‚Ü‚·B
+
+yˆø”z
+
+path
+
+func
+
+VBScript ƒtƒ@ƒCƒ‹‚̃pƒX
+
+ŒÄ‚яo‚·ŠÖ”‚Ì–¼‘O
+
+path ‚Ɋ‹«•Ï”‚ðŠÜ‚߂邱‚Æ‚ª‚Å‚«‚Ü‚·B i%var% Œ`Ž®j
+
+ŠÖ”‚É“n‚·ƒpƒ‰ƒ[ƒ^
+
+param
+
+ŠÖ”‚Ì•Ô‚è’l
+
+•Ô‚è’l
+
+Œ»Ý‚̃vƒƒZƒX‚̂܂܁A•Ê‚Ì .vbs ƒtƒ@ƒCƒ‹‚ðŒÄ‚яo‚µ‚Ü‚·B
+
+(src)
+
+ƒOƒ[ƒoƒ‹•Ï”‚́AŒÄ‚яo‚µæ‚Ő錾‚µ‚½‚à‚Ì‚ªAŽg‚¦‚é‚悤‚É‚È‚è‚Ü‚·B
+
+ŒÄ‚яo‚µæ‚Ɋ֐”‚ðŽÀs‚·‚é‚Æ‚«‚̃JƒŒƒ“ƒgƒtƒHƒ‹ƒ_‚́A‚»‚̃XƒNƒŠƒvƒg
+ƒtƒ@ƒCƒ‹‚ª‚ ‚éƒtƒHƒ‹ƒ_‚É‚È‚è‚Ü‚·B
+
+path ‚É‘Š‘΃pƒX‚ðŽw’è‚·‚é‚Æ‚«‚Í’ˆÓ‚ª•K—v‚Å‚·B
+ +
+call_vbs  "%ProgramFiles%\Movie Maker\moviemk.vbs", "FuncA", ""
+
ƒTƒ“ƒvƒ‹F
-
-File1.txt ‚ðŠJ‚¢‚Ä "Func1" ‚ð‚Q”ԖڂɊ܂ލs‚ɃWƒƒƒ“ƒv‚µ‚Ü‚·
- -
-start  GetEditorCmdLine( "File1.txt#Func1${+2}" )
-
-\n ‚́ACŒ¾Œê‚̉üs‚Ì•\Œ»‚Æ“¯‚¶‚Å‚·B
-
-${ } ‚́A
-
-‚Ì•\Œ»‚Æ“¯‚¶‚Å‚·B
- -
-Šg’£Žq‚ª pdf ‚Å a.pdf#page=2 ‚̂悤‚É path ‚ðŽw’è‚·‚é‚ƁAInternet Explorer ‚ÅŽw’肵‚½
-ƒy[ƒW‚ªŠJ‚«‚Ü‚·BiInternet Explorer ‚̐ݒè•ÏX‚âŽd—l•ÏX‚É‚æ‚èŽg‚¦‚È‚­‚È‚é‰Â”\«‚ª
-‚ ‚è‚Ü‚·Bj
- -
-${\n}
- -
-${+number}
- -
-#string
- -
-:string
- -
-#number
- -
-:number
+
+ŒÄ‚яo‚µæ‚̊֐”‚́AŽŸ‚ÌŒ^‚É‚µ‚Ä‚­‚¾‚³‚¢B
+ +
+Function  FuncA( Param )
+
+(src)
+ +
+‚́A‚ŁAƒOƒ[ƒoƒ‹—̈æ‚ðŽÀs‚µ‚Ä‚¢‚é‚Æ‚«‚¾‚¯‚Å‚È‚­AŒÄ‚яo‚·
+
+ŠÖ”‚ðŽÀs‚µ‚Ä‚¢‚é‚Æ‚«‚àApath ˆø”‚ÉŽw’肵‚½ƒpƒX‚̃tƒ‹EƒpƒX‚ª“ü‚è‚Ü‚·B
+ - - - - + + + + - + -© -¥ -£ - - - -
-Function  GetDiffCmdLine( PathA as string, PathB as string ) as string
-
+© +¥ +£ + + +
(src)
-
-Diff ƒc[ƒ‹i”äŠr‚·‚éƒvƒƒOƒ‰ƒ€j‚ð‹N“®‚·‚éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚ð•Ô‚µ‚Ü‚·B
- -
-‚̐ݒè‚É‚æ‚Á‚Ä•Ï‚í‚è‚Ü‚·B
- -
-start  GetDiffCmdLine( "file1.txt", "file2.txt" )
-
-•Ô‚è’l‚Ì—áF
- -
-"C:\Program Files\Diff.exe" "C:\FileA.txt" "C:\FileB.txt"
- -
-Function  GetDiffCmdLine3( PathA as string, PathB as string, PathC as string ) as string
- -
-start  GetDiffCmdLine( "file1.txt(5)", "file2.txt" )
-
-file1.txt ‚Ì 5s–ڂƁA‚»‚ê‚ɑΉž‚·‚é file2.txt ‚ð•\Ž¦‚·‚é
- -
-start  GetDiffCmdLine3( "file1.txt", "file2.txt", "file3.txt" )
-
-file1.txtAfile2.txtAfile3.txt ‚ð•\Ž¦‚·‚é
-
-Ý’肳‚ê‚Ä‚¢‚é Diff ƒc[ƒ‹‚ªs”ԍ†Žw’è‚ɑΉž‚µ‚Ä‚¢‚È‚¢‚Æ‚«‚́A5s–Ú‚Å‚Í‚È‚­æ“ª‚Ì
-s‚ð•\Ž¦‚µ‚Ü‚·B
-
-Ý’肳‚ê‚Ä‚¢‚é Diff ƒc[ƒ‹‚ª‚R‚‚̃tƒ@ƒCƒ‹‚𓯎ž‚É”äŠr‚·‚邱‚Æ‚ª‚Å‚«‚È‚¢‚Æ‚«‚́A
-‚R‚‚̃tƒ@ƒCƒ‹‚Ì‚¤‚¿A”äŠr‚·‚é‚Q‚‚̃tƒ@ƒCƒ‹‚ð‘I‘ð‚·‚éƒXƒNƒŠƒvƒg diff3to2.vbs ‚ð
-‹N“®‚·‚éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚ð•Ô‚µ‚Ü‚·B
-
-ƒTƒ“ƒvƒ‹
-
-ƒTƒ“ƒvƒ‹
-
-ƒTƒ“ƒvƒ‹
-
-ƒTƒ“ƒvƒ‹
- -
-  Dim  folder_a,  folder_b,  step_path
-
-  folder_a = "C:\folder_a\"
-  folder_b = "C:\folder_b\"
-
-  Do
-    echo  ""
-    echo  "‚Q‚‚̃tƒHƒ‹ƒ_[‚Ì’†‚É‚ ‚éƒeƒLƒXƒgƒtƒ@ƒCƒ‹‚ð Diff ‚Å•\Ž¦‚µ‚Ü‚·"
-    echo  folder_a
-    echo  folder_b
-    echo  ""
-    echo  "Enter ‚Ì‚Ý : I—¹"
-    step_path = input( "‹¤’Ê‚Ì‘Š‘΃pƒX >" )
-    If step_path = "" Then  Exit Do
-
-    start  GetDiffCmdLine( GetFullPath( step_path, folder_a ), _
-                           GetFullPath( step_path, folder_b ) )
-  Loop
-
-‘Š‘΃pƒX‚ð‚P‚“ü—Í‚µ‚āADiff ‚ðŠJ‚­ƒvƒƒ“ƒvƒg
- -
+
+ModuleC_pre.vbs
+ +
+Dim  g_FuncA : FuncRedir_add  g_FuncA, "FuncA"
+
+ŠÖ”ƒR[ƒ‹‚ðƒŠƒ_ƒCƒŒƒNƒgi‰¡Žæ‚èj‚µ‚Ü‚·B
+
+ModuleC.vbs
+ +
+Sub  FuncA( Param1 )
+  If GetVar( "FuncA_Redir" ) = "Over" Then
+    echo  "overrided"
+  Else
+    g_FuncA.CallSub1  Param1
+  End If
+End Sub
+
+FuncA
+
+FuncA
+
+FuncA
+
+FuncA
+
+FuncA
+ +
+Sub  FuncRedir_add( out_Redir as FuncRedir, Name as string )
+
+ã‘‚«‚·‚é‘O‚̊֐”‚ðŒÄ‚яo‚³‚È‚¢‚Æ‚«‚́AFuncRedir_add ‚ðŒÄ‚яo‚·•K—v‚Í‚ ‚è‚Ü‚¹‚ñB
+FuncRedir_add ‚Ì‘æ1ˆø”‚ÉŽw’肵‚Ď擾‚µ‚½ƒIƒuƒWƒFƒNƒgŽg‚Á‚āAã‘‚«‚·‚é‘O‚̊֐”‚ð
+ŒÄ‚яo‚µ‚Ü‚·B
+ + + +
+  include  "ModuleC_pre.vbs"
+  include  "ModuleC.vbs"
+
+ã‘‚«‚·‚é‘O‚̊֐”‚ðŒÄ‚яo‚µ‚Ü‚·B
+
+ƒeƒXƒg
+
+¨ T_FuncRedir.vbs
+
+¨ T_NameAdd_vbslib ƒtƒHƒ‹ƒ_
+
ŽQl
- -
+
+¨ ƒ}ƒNƒEƒŠƒ_ƒCƒŒƒNƒg
+
+ŠÖ˜A
+ + + +
+Sub  FuncX()
+  Dim  v_:Set v_= new VarStack
+  SetVar  "FuncA_Redir", "Over"
+  FuncA
+End Sub
+
+ModuleX.vbs
+ + + + +
+ƒŠƒ_ƒCƒŒƒNƒgæ‚̊֐”‚ª’è‹`‚µ‚Ä‚ ‚éƒXƒNƒŠƒvƒgEƒtƒ@ƒCƒ‹‚ƁA•Ê‚̃tƒ@ƒCƒ‹‚©‚ç FuncRedir_add
+‚ðŒÄ‚яo‚µ‚Ä‚­‚¾‚³‚¢B
+
+‚½‚Æ‚¦‚΁A‰º‹L‚Ì ModuleC.vbs ‚Æ ModuleC_pre.vbs ‚̂悤‚É•ª‚¯‚Ä‚­‚¾‚³‚¢B
+
+‚»‚¤‚µ‚È‚¢‚ƁAƒŠƒ_ƒCƒŒƒNƒg‚·‚é‘O‚̊֐”‚ªã‘‚«‚³‚ꂽŒã‚ŁAFuncRedir_add ‚ªŒÄ‚΂ê‚é
+‚±‚Æ‚É‚È‚èAI‚í‚è‚Ì‚È‚¢Ä‹AŒÄ‚яo‚µ‚É‚È‚èAƒƒ‚ƒŠ•s‘«iƒXƒ^ƒbƒN•s‘«j‚̃Gƒ‰[‚É‚È‚é
+‚Å‚µ‚傤B
+
ƒTƒ“ƒvƒ‹
- -
-start  GetDiffCmdLine( "folder1", "folder2" )
-
-ƒtƒ@ƒCƒ‹‚̃pƒX‚ªŽw’肳‚ꂽ‚Æ‚«‚É‹N“®‚·‚éƒc[ƒ‹‚́A
-
-‚̐ݒè‚É‚æ‚Á‚Ä
-
-•Ï‚í‚è‚Ü‚·B
-
-ƒtƒHƒ‹ƒ_[‚̃pƒX‚ªŽw’肳‚ꂽ‚Æ‚«‚É‹N“®‚·‚éƒc[ƒ‹‚́A
-
-ƒeƒLƒXƒg ƒtƒ@ƒCƒ‹‚ð”äŠr‚·‚éƒc[ƒ‹‚ð‹N“®‚·‚éB
-
-ƒtƒHƒ‹ƒ_[‚ð”äŠr‚·‚éƒc[ƒ‹‚ð‹N“®‚·‚éB
- -
-Function  GetDiffCmdLine3Ex( PathA as string, PathB as string, PathC as string,
-    in_Option  as Empty or DiffCmdLineOptionClass ) as string
- - -
-.IsComparing(i)
-
-(i+1) ”Ԗڂ̃tƒHƒ‹ƒ_[‚ð”äŠr‚·‚é‚©‚Ç‚¤‚©B
-‰Šú’l‚Í TrueB
-3‚‚̃pƒX‚ÍŽw’è‚·‚邯‚ǁA‚»‚Ì‚¤‚¿ˆê•”‚¾‚¯”äŠr‚·‚é
-‚Æ‚«‚́A”äŠr‚µ‚È‚¢ƒtƒHƒ‹ƒ_[‚ɂ‚¢‚Ä False ‚É‚µ‚Ü‚·B
-
-boolean
- -
-‚ÉŽw’è‚·‚éƒIƒvƒVƒ‡ƒ“B
+
+Main.vbs
+
+FuncRedir_add ‚ðŒÄ‚яo‚·‚½‚߂̃tƒ@ƒCƒ‹
+
+ƒŠƒ_ƒCƒŒƒNƒgæ
+
+FuncA ‚̌Ăяo‚µŒ³
+ +
+yˆø”z
+
+out_Redir
+
+Name
+
+io—́j
+
+ƒŠƒ_ƒCƒŒƒNƒg‚³‚ê‚éŠÖ”‚Ì–¼‘O
+
+FuncA ŠÖ”‚Ì’è‹`‚ðƒŠƒ_ƒCƒŒƒNƒg‚µAŠÂ‹«•Ï” FuncA_Redir ‚Ì’l‚É‚æ‚Á‚āAƒŠƒ_ƒCƒŒƒNƒgŒ³‚©
+ƒŠƒ_ƒCƒŒƒNƒgæ‚©‚Ì‚Ç‚¿‚ç‚©‚Ì FuncA ŠÖ”‚ðŒÄ‚яo‚·‚©‚ð‘I‚ׂé‚悤‚É‚µ‚Ü‚·B
- - - - + + + + - + -© -¥ -£ - - - -
-Function  GetDiffStringCmdLine( StringA as string, StringB as string )
-    as DiffCmdLineClass
-
-Diff ƒc[ƒ‹‚ð‹N“®‚µ‚āA•¶Žš—ñ‚ð”äŠr‚·‚éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚ð•Ô‚µ‚Ü‚·B
- -
-Function  GetDiffStringCmdLine3( StringA as string, StringB as string, StringC as string )
-    as DiffCmdLineClass
- -
-‚Ƃ̈Ⴂ‚́Aˆø”‚ª”äŠr‚·‚é“à—e‚Ì•¶Žš—ñ‚Å‚ ‚邱‚Æ‚Å‚·B
- -
-start  GetDiffStringCmdLine( "ABC", "AxC" )
-
-ƒTƒ“ƒvƒ‹
-
+© +¥ +£ + + +
+(src)
+ +
+Function  CallForEach0( Func as Function, Collection as array or variant )
+
+Collection ‚Ì‚»‚ꂼ‚ê‚Ì—v‘f‚ðˆø”‚É“n‚µ‚āAŠÖ” Func ‚𕡐”‰ñŒÄ‚яo‚µ‚Ü‚·B
+
yˆø”z
-
-StringA
-
-StringB
-
-”äŠr‚·‚镶Žš—ñ A
-
-”äŠr‚·‚镶Žš—ñ B
-
-StringC
-
-”äŠr‚·‚镶Žš—ñ C
-
-ƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚Ì•¶Žš—ñA‚Ü‚½‚́A
-
+
+Func
+
+Collection
+
+ŒÄ‚яo‚·ŠÖ”iGetRefŽg—pj
+
+”z—ñA‚Ü‚½‚Í’Pƒ•Ï”A‚Ü‚½‚Í Empty
+
+ŠÖ”‚É“n‚·ƒpƒ‰ƒ[ƒ^
+
+Param1
+ +
+Function  CallForEach1( Func, Collection, Param1 as variant )
+ +
+Function  CallForEach2( Func, Collection, Param1 as variant, Param2 as variant )
+
+ƒL[ƒ[ƒhF
+ +
+ƒTƒ“ƒvƒ‹F
+
•Ô‚è’l
-
+
+ŠÖ” Func ‚Ì•Ô‚è’liCollection ‚ª’Pƒ•Ï”‚Ì‚Æ‚«‚̂݁j
+ +
+  CallForEach2  GetRef("CallForEach_copy"), Array( "a.txt", "b.txt" ), "src", "dst"
+
+ã‹LƒR[ƒh‚͉º‹LƒR[ƒh‚Æ“¯‚¶ˆ—“à—e‚Å‚·B
+ +
+  CallForEach_copy  "a.txt", "src", "dst"
+  CallForEach_copy  "b.txt", "src", "dst"
+
+ŠÖ˜A
+ +
+‚È‚é‚ׂ­ACallForEach ‚ðŽg‚킸‚ɁAFor ƒ‹[ƒv‚ðŽg‚Á‚āA‚»‚ꂼ‚ê‚Ì—v‘f‚ɑ΂µ‚Ä
+ˆ—‚µ‚Ä‚­‚¾‚³‚¢B
+ + + + + + + + + + +© +¥ +£ + + +
+(src)
+ +
+Sub  CallForEach_copy( StepPath as string, FromFolderPath as string, ToFolderPath as string )
+
+‚ÉŽg‚¦‚éƒtƒ@ƒCƒ‹ƒRƒs[‚Å‚·B
+
+yˆø”z
+
+StepPath
+
+FromFolderPath
+
+ƒtƒ@ƒCƒ‹‚Ö‚Ì‘Š‘΃pƒXB Šî€‚Í FromFolderPath ‚Æ ToFolderPath
+
+ƒRƒs[Œ³‚̃tƒHƒ‹ƒ_
+
+ƒRƒs[æ‚̃tƒHƒ‹ƒ_
+
+ToFolderPath
+ +
+  CallForEach2  GetRef("CallForEach_copy"), Array( "a.txt", "folder\*" ), "src", "dst"
+
+ã‹LƒR[ƒh‚͉º‹LƒR[ƒh‚Æ“¯‚¶ˆ—“à—e‚Å‚·B
+ +
+  copy  "src\a.txt", "dst"
+  copy  "src\folder\*", "dst\folder"    '// copy "src\folder", "dst" ‚Æ“¯‚¶
+ +
+ƒeƒXƒg
+
+¨ T_EachCopy.vbs # [T_EachCopy1]
+
+ƒtƒHƒ‹ƒ_[‚ðƒRƒs[‚·‚é‚Æ‚«AƒpƒX‚Ì––”ö‚É "\*" ‚ª‚ ‚Á‚Ä‚à‚È‚­‚Ä‚à\‚¢‚Ü‚¹‚ñB
+
ƒTƒ“ƒvƒ‹
- -
-Set diff_ = GetDiffStringCmdLine( "ABC", "AxC" )
-RunProg  diff_, ""
-Pause
-diff_.Remove
-
-Diff ƒc[ƒ‹‚ðŠJ‚«ADiff ƒc[ƒ‹‚ð•Â‚¶‚½‚çˆêŽž“I‚ɍ쐬‚³‚ê‚éƒtƒ@ƒCƒ‹‚ðíœ‚·‚é
- -
+
+ƒƒCƒ‹ƒhƒJ[ƒh‚ðŽg‚Á‚Ä‚àAƒTƒuEƒtƒHƒ‹ƒ_[‚̓Rƒs[‚µ‚Ü‚¹‚ñB
+ +
+‚Æ‘g‚ݍ‡‚킹‚Ä
+
+‚­‚¾‚³‚¢B
+ +
+  Set c = g_VBS_Lib
+
+  ExpandWildcard  "src\*.doc", c.File or c.SubFolder, folder, step_paths
+  CallForEach2  GetRef("CallForEach_copy"), step_paths, "src", "dst"
+ +
ŠÖ˜A
- -
-ƒ\[ƒX
-
-¨ TestScript.vbs
- - - - + + + + - + -© -¥ -£ - - - -
-Default Property Get  DiffCmdLineClass::CmdLine() as string
- -
-Sub  DiffCmdLineClass::Remove()
-
-Diff ƒc[ƒ‹‚ð‹N“®‚µ‚āA•¶Žš—ñ‚ð”äŠr‚·‚éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“B
-
-”äŠr‚·‚镶Žš—ñ‚ª“ü‚Á‚½ƒtƒ@ƒCƒ‹‚ðíœ‚µ‚Ü‚·B
- -
-Dim  DiffCmdLineClass::PathA as string
- -
-Dim  DiffCmdLineClass::PathB as string
- -
-Dim  DiffCmdLineClass::PathC as string
-
-”äŠr‚·‚镶Žš—ñ A ‚ª“ü‚Á‚½ƒtƒ@ƒCƒ‹‚̃pƒXB
-
-”äŠr‚·‚镶Žš—ñ B ‚ª“ü‚Á‚½ƒtƒ@ƒCƒ‹‚̃pƒXB
-
-Empty ‚Ü‚½‚́A”äŠr‚·‚镶Žš—ñ C ‚ª“ü‚Á‚½ƒtƒ@ƒCƒ‹‚̃pƒXB
-
-ƒ\[ƒX
-
-¨ TestScript.vbs
-
+© +¥ +£ + + + +
+Sub  CallForEach_move( FilePath, FromFolderPath, ToFolderPath )
+
+‚ÉŽg‚¦‚éƒtƒ@ƒCƒ‹‚̈ړ®‚Å‚·B
+ +
+(src)
+
ŽQl
- + - - - - + + + + - + -© -¥ -£ - - -
-ƒ\[ƒX
-
-¨ TestScript.vbs
- -
-Function  GetDiffOneLineCmdLine( in_PathAndLineNumA as string, in_PathAndLineNumB as string )
-    as DiffCmdLineClass
-
-Diff ƒc[ƒ‹‚ð‹N“®‚µ‚āAŽw’肵‚½s‚ð 1•¶Žš‚¸‚”äŠr‚·‚éƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚ð•Ô‚µ‚Ü‚·B
-
-yˆø”z
-
-in_PathAndLineNumA
-
-in_PathAndLineNumB
-
-”äŠr‚·‚éƒtƒ@ƒCƒ‹‚̃pƒX‚ƍs”ԍ†A‚Ü‚½‚́A”äŠr‚·‚镶Žš—ñ
-
-”äŠr‚·‚éƒtƒ@ƒCƒ‹‚̃pƒX‚ƍs”ԍ†A‚Ü‚½‚́A”äŠr‚·‚镶Žš—ñ
-
-•Ô‚è’l
- -
-ƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚Ì•¶Žš—ñA‚Ü‚½‚́A
- -
-start  GetDiffOneLineCmdLine( "FileA.txt(3)", "FileB.txt(4)" )
-
-ƒTƒ“ƒvƒ‹
-
-ƒTƒ“ƒvƒ‹
- -
-Set diff_ = GetDiffOneLineCmdLine( "FileA.txt(3)", "FileB.txt(4)" )
-RunProg  diff_, ""
-Pause
-diff_.Remove
-
-Diff ƒc[ƒ‹‚ðŠJ‚«ADiff ƒc[ƒ‹‚ð•Â‚¶‚½‚çˆêŽž“I‚ɍ쐬‚³‚ê‚éƒtƒ@ƒCƒ‹‚ðíœ‚·‚é
-
-ƒeƒXƒg
-
-¨ T_fc.vbs
-
-T_GetDiffOneLineCmdLine
- -
-ŠÖ˜A
-
-ƒtƒ@ƒCƒ‹‚Ì”äŠr‚Å‚Í‚È‚­A•¶Žš—ñ‚ð”äŠr‚·‚é‚Æ‚«‚́A—v‘f”‚P‚Ì”z—ñ‚ð“n‚µ‚Ü‚·B
- -
-start  GetDiffOneLineCmdLine( Array( "Yes, it is." ),  Array( "Yes, it was." ) )
-
+© +¥ +£ + + + +
+Sub  CallForEach_del( FilePath, FolderPath )
+
+‚ÉŽg‚¦‚éƒtƒ@ƒCƒ‹‚Ü‚½‚̓tƒHƒ‹ƒ_‚̍폜‚Å‚·B
+ + +
+    CallForEach1  GetRef("CallForEach_del"), Array( "a.txt", "folder\*" ), "folder"
+
+ã‹LƒR[ƒh‚͉º‹LƒR[ƒh‚Æ“¯‚¶ˆ—“à—e‚Å‚·B
+ +
+    del  "folder\a.txt"
+    del  "folder\folder\*"
+
ƒTƒ“ƒvƒ‹
+
+(src)
- - - - + + + + - + -© -¥ -£ - - - -
-Sub  DiffCUI( FilePaths as array of string, FileLabels as array of string )
-
-Diff ƒc[ƒ‹‚ª‚È‚¢‚Æ‚«‚ɁAƒRƒ}ƒ“ƒhƒ‰ƒCƒ“‚¾‚¯‚ÅŽg‚¦‚é”äŠrƒc[ƒ‹B
-
-yˆø”z
-
-FilePaths
-
-FileLabels
-
-”äŠr‚·‚éƒtƒ@ƒCƒ‹ ƒpƒX‚Ì”z—ñ
-
-”äŠr‚·‚éƒtƒ@ƒCƒ‹‚Ì–ðŠ„–¼‚Ì”z—ñ
-
-ŠÖ˜A
-
-ƒeƒXƒg
-
+© +¥ +£ + + + +
+                                               
+    copy  t_source,  t_destination
+
+        t_source = "C:\From.txt"
+        t_destination = "C:\To.txt"
+
+ƒTƒ“ƒvƒ‹
+
+•¶‚ðŽÀs‚·‚鏇”Ô‚ð“ü‚ê‘Ö‚¦‚Ü‚·B
+‚½‚Æ‚¦‚΁AŠÖ”‚̈ø”‚Ì‘ã“üiÚ×j‚ðŒã‚ŏ‘‚­‚Ù‚¤‚ª‰Â“ǐ«‚ªã‚ª‚é‚Æ‚«‚ÉŽg‚¢‚Ü‚·B
+Transpose ‚́A‡”Ô‚Ì“ü‚ê‘Ö‚¦‚ðŽ¦‚·‚¾‚¯‚ŁA‰½‚à‚µ‚Ü‚¹‚ñB
+
+ã‹L‚̃R[ƒh‚́A‰º‹L‚̃R[ƒh‚Æ“¯‚¶ˆ—‚ðs‚¢‚Ü‚·B
+ +
+    source = "C:\From.txt"
+    destination = "C:\To.txt"
+
+    copy  source, destination
+
+‘O”¼‚ƌ㔼iTranspose : Else ‚Ì‘OŒãj‚ð‚‚Ȃ®•Ï”‚Ì–¼‘O‚̐擪‚́A
+t_ ‚©‚çŽn‚ß‚éƒR[ƒfƒBƒ“ƒO ƒ‹[ƒ‹‚𐄏§‚µ‚Ü‚·B
+ã‹L‚̃R[ƒh‚́Aà–¾‚Ì‚½‚߂Ɍ㔼‚ª’Z‚¢‚½‚߁A•Ï”‚ð‰î‚³‚È‚¢‚Ù‚¤‚ª“Ç‚Ý‚â‚·‚¢‚Å‚·‚ªA
+ˆê”ʂɌ㔼‚ª’·‚¢‚Æ‚«‚Í“Ç‚Ý‚â‚·‚­‚È‚è‚Ü‚·B
+
+        Transpose : For i=0 To 1 : If i=1 Then
+
+        Else ' Transpose
+
+
+        Transpose : End If : Next
+
ƒ\[ƒX
-
+
¨ vbslib.vbs
-
-¨ T_SyncFiles.vbs
- - -
-Diff ƒc[ƒ‹‚ÅŠJ‚­ƒtƒ@ƒCƒ‹‚̃pƒX‚ðƒeƒXƒg‚Ń`ƒFƒbƒN‚·‚é‚Æ‚«
-
-DiffCUI ‚́A”äŠr‚µ‚Ä‚¢‚é‚»‚ꂼ‚ê‚̃tƒ@ƒCƒ‹‚ðŠJ‚­ƒƒjƒ…[‚ª‚ ‚èA
-
-•û–@‚Æ‘g‚ݍ‡‚킹‚ê‚΁ADiff ƒc[ƒ‹‚ÅŠJ‚­ƒtƒ@ƒCƒ‹‚̃pƒX‚ðƒ`ƒFƒbƒN‚Å‚«‚Ü‚·B
- -
-¨ _src\Test\tools\T_SyncFiles\SettingForTest.vbs
-
-ŽQl
- -
- 1. ·•ª‚𒲂ׂāAŒ‹‰Ê‚ðƒeƒLƒXƒgEƒGƒfƒBƒ^[‚ÅŠJ‚­
- 4. 01 ‚̃tƒ@ƒCƒ‹‚ðŠJ‚­
- 5. 02 ‚̃tƒ@ƒCƒ‹‚ðŠJ‚­
- *. 03 ‚̃tƒ@ƒCƒ‹‚́A‘¶Ý‚µ‚Ü‚¹‚ñ
- **. ƒRƒs[‚·‚éiƒRƒs[Œ³(4ˆÈã)~10{ƒRƒs[æ(4ˆÈã)
-     —áF45  01 ¨ 02
- 99. –ß‚é
-‘€ì‚̔ԍ†‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢ >
-
-–{ŠÖ”‚ðŒÄ‚яo‚·‚ƁAˆÈ‰º‚̂悤‚É•\Ž¦‚³‚ê‚Ü‚·B
- - - - + + + + - + -© -¥ -£ - - - - -
-‚É
-
-‚ðŽw’肵‚āA
- -
-‚ðŒÄ‚яo‚·‚½‚ß‚ÉŒo—R‚·‚éŠÖ”B
- -
-Function  DiffCUI_InCurrentProcess( CommandLine as string )
-
-ƒ\[ƒX
-
-¨ PC_setting_default.vbs
- -
->start  \?InCurrentProcessFunc\DiffCUI_InCurrentProcess -i=33 "C:\Folder\01" "C
-:\Folder\02" "C:\Folder\03"
--------------------------------------------------------------------------------
- 1. ·•ª‚𒲂ׂāAŒ‹‰Ê‚ðƒeƒLƒXƒgEƒGƒfƒBƒ^[‚ÅŠJ‚­
- 4. 01 ‚̃tƒ@ƒCƒ‹‚ðŠJ‚­
- 5. 02 ‚̃tƒ@ƒCƒ‹‚ðŠJ‚­
- *. 03 ‚̃tƒ@ƒCƒ‹‚́A‘¶Ý‚µ‚Ü‚¹‚ñ
- **. ƒRƒs[‚·‚éiƒRƒs[Œ³(4ˆÈã)~10{ƒRƒs[æ(4ˆÈã)
-     —áF45  01 ¨ 02
- 99. –ß‚é
-‘€ì‚̔ԍ†‚ð“ü—Í‚µ‚Ä‚­‚¾‚³‚¢ >
-
-start ‚É–{ŠÖ”‚Ì•Ô‚è’l‚ðŽw’è‚·‚é‚ƁAˆÈ‰º‚̂悤‚É•\Ž¦‚³‚ê‚Ü‚·B
+© +¥ +£ + + + +
+Sub  SetTaskStartTime( TaskName as string, StartTime as string )
+
+ƒ^ƒXƒNEƒXƒPƒWƒ…[ƒ‰[‚É“o˜^Ï‚݂́AŽw’è‚̃^ƒXƒN‚ðŠJŽn‚·‚鎞‚ð•ÏX‚µ‚Ü‚·B
+ +
+  echo  "ƒ^ƒXƒN‚ÌŠJŽnŽžŠÔ‚ðÄÝ’肵‚Ü‚·B"
+  Dim  name : name = input( "ƒ^ƒXƒN–¼>" )
+  echo  "—áF 13:00 ... ¡‚ªŒß‘O10Žž‚È‚çA¡“ú‚̌ߌã1Žž‚ÉŽÀs‚·‚é"
+  echo  "—áF  1:00 ... ¡‚ªŒß‘O10Žž‚È‚çA–¾“ú‚̌ߑO1Žž‚ÉŽÀs‚·‚é"
+  echo  "—áF +1:00 ... ¡‚©‚ç1ŽžŠÔŒã‚ÉŽÀs‚·‚é"
+  Dim  after : after = input( "‚¢‚ÂŽÀs‚ðŠJŽn‚µ‚Ü‚·‚©>" )
+  SetTaskStartTime  name, after
+
+SetTaskStartTime
+
+ƒTƒ“ƒvƒ‹
+
+(src)
+
+¨ samples/TaskScheduler ƒtƒHƒ‹ƒ_
+ +
+ŠÖ˜A
+
+¨ schtasks /Create
+
+StartTime ‚̐擪‚ð + ‚É‚·‚é‚ƁAŒ»Ý‚ÌŽž‚©‚ç‚̍·•ª‚ðŽw’è‚Å‚«‚Ü‚·B
+—áj +1:30 c ‚PŽžŠÔ”¼Œã
- - - - + + + + - + -© -¥ -£ - - - -
-Sub  Sleep( msec as integer )
-
-Žw’肵‚½ŽžŠÔ‚¾‚¯‘Ò‚¿‚Ü‚·B
-
-yˆø”z
-
-msec
-
-‘Ò‚ÂŽžŠÔiƒ~ƒŠ•bj
-
+© +¥ +£ + + + +
+Function  GetTaskList( EmptyParam as Empty )
+
+ƒ^ƒXƒNEƒXƒPƒWƒ…[ƒ‰[‚É“o˜^Ï‚݂́Aƒ^ƒXƒN‚ðˆê——‚µ‚Ü‚·B
+
+•Ô‚è’l‚́Aƒ^ƒXƒN‚̏W‡‚Å‚ ‚鎫‘Œ^‚Å‚·B
+ƒ^ƒXƒN‚̏W‡‚Ì Key ‚Í ƒ^ƒXƒN–¼AItem ‚Í‚P‚‚̃^ƒXƒN‚ð•\‚·Ž«‘Œ^‚Å‚·B
+‚P‚‚̃^ƒXƒN‚ð•\‚·Ž«‘Œ^‚Ì Key ‚Í ƒ^ƒXƒN‚Ì‘®«–¼AItem ‚Í‘®«‚Ì’l‚Å‚·B
+ +
+  Set  tasks = GetTaskList( Empty )
+  Set  task = tasks.Item( "\Task1" )
+  start  task.Item( "ŽÀs‚·‚éƒ^ƒXƒN" )
+
+ƒTƒ“ƒvƒ‹
+
(src)
- -
-  Sleep  1000
-
-ƒTƒ“ƒvƒ‹F
- -
-  Dim  n : For n = 5 To 1 Step -1 : echo  n : Sleep  1000 : Next : echo  0
-
-ƒTƒ“ƒvƒ‹F
-
-5•b‚̃JƒEƒ“ƒgƒ_ƒEƒ“
- -
+
+¨ schtasks /Query
+
+ŽQl
+ + + + + + + + + + +© +¥ +£ + + + +
+¨ Makefile
+
+ŽQl
+
+¨ T_MakeRule ƒtƒHƒ‹ƒ_
+
+ƒeƒXƒg
+
+make ƒRƒ}ƒ“ƒh‚̂悤‚ɁAƒtƒ@ƒCƒ‹‚̃^ƒCƒ€ƒXƒ^ƒ“ƒv‚ð”äŠr‚µ‚āA•K—v‚È‚çƒRƒ}ƒ“ƒh‚ðŽÀs‚µ‚Ü‚·B
+
+ˆê”Ê“I‚ȃƒCƒNƒtƒ@ƒCƒ‹‚ƁAMakeFileClass ‚Ƃ̑ΉžŠÖŒW‚ðŽ¦‚µ‚Ü‚·B
+ +
+Target.txt : Source1.txt Source2.txt
+    command
+
+Target.txt ‚ª–³‚¢‚Æ‚«‚©ASource1.txt ‚Ü‚½‚Í Source2.txt ‚æ‚èŒÃ‚¢‚Æ‚«‚ɁA
+command ‚ðŽÀs‚µ‚Ü‚·B ‚½‚¾‚µASource1.txt ‚¨‚æ‚Ñ Source2.txt ‚ɑ΂·‚é
+ƒ‹[ƒ‹‚̃Rƒ}ƒ“ƒh‚ðŽÀs‚µ‚½Œã‚ÅŽÀs‚µ‚Ü‚·B
+
+MakeFileClass ‚ł́AŽŸ‚̂悤‚É‹Lq‚µ‚Ü‚·B
+ +
+Sub  Main()
+    Set mk = new MakeFileClass
+    mk.AddRule  new_Target_txt_Rule()
+    mk.Make
+End Sub
+
+Function  new_Target_txt_Rule()
+    Set o = new MakeRule
+        o.Sources = Array( "Source1.txt", "Source2.txt" )
+        o.Target = "Target.txt"
+        Set o.Command = GetRef("Target_txt_Command")
+    Set new_Target_txt_Rule = o
+End Function
+Sub  Target_txt_Command( Param, Rule )
+    copy_ren  Rule.Sources(0), Rule.Target
+End Sub
+
+Target_txt
+
+Target_txt
+
+Target_txt
+
+Target_txt
+
+Target.txt
+
+Source1.txt
+
+Source2.txt
+
+Target_txt
+ + + + +
+MakeRule ‚Ì source ‚Æ target ‚ÌŠÖŒW
+ + +
+MakeRule ‚ÅŽÀs‚·‚éƒRƒ}ƒ“ƒh
+ +
+File
+
+Å‰‚ɍXV‚·‚éƒtƒ@ƒCƒ‹
+ + +
+ƒTƒ“ƒvƒ‹
+
+Target.txt
+
+Source.txt
+ + + +
+MakeRule ‚ð•Ô‚·ŠÖ”–¼
+
+by new_Target_txt_Rule
+
+¶¬‚·‚é
+
+ˆê”Ê“I‚ȃƒCƒNƒtƒ@ƒCƒ‹ ivbslib‚Å‚Í‚È‚¢j
+
+‚±‚±‚ł́AƒƒCƒNƒtƒ@ƒCƒ‹‚ÅŽw’肳‚ꂽu\¬v‚ð}‚É•\‚·‚Æ‚«‚Ì‹L–@‚ðŽ¦‚µ‚Ü‚·B
+
+–}—á
+
+Command
+ + +
+¨ vbslib.vbs
+
+ƒ\[ƒX
+ +
+‚·‚ê‚΁A
+
+ˆÃ–Ùƒ‹[ƒ‹
+
+‚ðì‚邱‚Æ‚ª‚Å‚«‚Ü‚·B
+ +
+‚ðÝ’肵‚ďڍׂȏî•ñ‚ðŠm”F‚µ‚Ä‚­‚¾‚³‚¢B
+
+‚¤‚Ü‚­“®ì‚µ‚È‚¢‚Æ‚«‚́A
+ + +
ŠÖ˜A
+
+¨ CheckEnglishOnly_src\Test.vbs
+
+ƒ\[ƒX‚ɍXV‚ª‚ ‚Á‚½‚Æ‚«‚¾‚¯ƒRƒs[‚·‚é
- - - - + + + + - + -© -¥ -£ - - - - - - - - - - - - - - - - - - - -
-Function  WaitForFile( Path as string ) as string
-
-Žw’肵‚½ƒtƒ@ƒCƒ‹‚ªì‚ç‚ê‚é‚Ü‚Å‘Ò‚¿‚Ü‚·B
-
-yˆø”z
-
-Path
-
-‘҂ƒtƒ@ƒCƒ‹‚̃pƒX
-
-‰½‚©‚̏ˆ—i‘Oˆ—j‚ªI‚í‚Á‚Ä‚©‚çs‚¤ˆ—‚ª‚ ‚é‚Æ‚«‚ÉŽg‚¢‚Ü‚·B
-‘Oˆ—‚ªI‚í‚é‚Æ‚«‚ɁAI‚í‚Á‚½‚±‚Æ‚ðŽ¦‚·ƒtƒ@ƒCƒ‹‚ðì‚é‚悤‚É‚·‚ê‚΁A
-–{ŠÖ”‚ªŽg‚¦‚é‚悤‚É‚È‚è‚Ü‚·B
- -
+© +¥ +£ + + + +
+ƒƒCƒNƒtƒ@ƒCƒ‹‚Ì–¼‘OB
+ +
+ƒ†[ƒU[’è‹`‚̈Ϗ÷æƒIƒuƒWƒFƒNƒgB
+ + +
+ƒfƒoƒbƒOƒ‚[ƒh
+
+ƒfƒoƒbƒOƒ‚[ƒh‚̃pƒ‰ƒ[ƒ^[
+ +
+’萔‚̏W‚Ü‚è
+ + +
+ƒƒCƒN‚ðŽÀs‚µ‚Ü‚·B
+
+ƒƒCƒNƒtƒ@ƒCƒ‹‚̃‹[ƒ‹‚ð“o˜^‚µ‚Ü‚·B
+
(src)
-
-•Ô‚è’l
-
-ƒtƒ@ƒCƒ‹‚Ì1s–Ú‚Ì“à—ei––”ö‚ɉüs•¶Žš‚È‚µj
-
-–{ŠÖ”‚©‚甲‚¯‚é’¼‘O‚ŁA‘Ώۂ̃tƒ@ƒCƒ‹‚ðíœ‚µ‚Ü‚·B
- -
-  WaitForFile  "Result.txt"
-
-ƒTƒ“ƒvƒ‹F
-
-•¡”‚̃vƒƒZƒX‚ŒʐM‚ð‚·‚é‚Æ‚«‚́A“¯Šú‚ÉŽg—p‚·‚éƒtƒ@ƒCƒ‹‚ðÅI“I‚É
-íœ‚·‚éÓ”C‚ðŽ‚Â
-Œ`‚É‚µ‚Ä‚­‚¾‚³‚¢B ‚»‚¤‚µ‚È‚¢‚ƁA“¯Šú‚ÉŽg—p‚·‚éƒtƒ@ƒCƒ‹‚ð‘ŠŽè‚É’Ê’m‚·‚é
-‘O‚ɍ폜‚µ‚Ä‚µ‚Ü‚¤‰Â”\«‚ª¶‚Ü‚ê‚āAƒTƒuEƒXƒŒƒbƒh‚ª‰i‰“‚É‘Ò‚¿‘±‚¯‚é
-‚±‚Æ‚É‚È‚Á‚Ä‚µ‚Ü‚¢‚Ü‚·B
-
-ŠÖ˜A
- -
-ƒTƒuEƒXƒŒƒbƒh iƒT[ƒo[j
- - - -
-‹N“®
-
-WaitForFile
- - -
-CreateFile
- -
-WaitForFile
-
-CreateFile ‚ŏI‚¦‚é‚Æ
-
-(busy)
-
-delete
-
-‘Ò‚¿‘±‚¯‚é...
-
-I—¹
-
-’ʐM‚Ì’ˆÓ
-
-ƒzƒXƒg‘¤‚ª WaitForFile ‚Å‘Ò‚Á‚ĒʐM‚ðI‚¦‚é
- -
-ƒƒCƒ“EƒXƒŒƒbƒh iƒNƒ‰ƒCƒAƒ“ƒgj
-
-“¯Šú‚ÉŽg‚¤ƒtƒ@ƒCƒ‹‚́A2‚‚̃XƒŒƒbƒhiƒNƒ‰ƒCƒAƒ“ƒg‚ƃT[ƒo[j‚ŕʂ̃tƒ@ƒCƒ‹–¼‚É‚µ‚Ä‚­‚¾‚³‚¢B
-
-‚»‚¤‚µ‚È‚¢‚ƁAŽ©•ª‚ªì¬i‘—Mj‚µ‚½ƒtƒ@ƒCƒ‹‚ð‘҂iŽóM‚·‚éjŒ`‚É‚È‚èA‘Ò‚½‚È‚¢‚±‚Æ‚É
-‚È‚Á‚Ä‚µ‚Ü‚¤‚©‚ç‚Å‚·B
-
-‘—Mƒtƒ@ƒCƒ‹‚ðì¬‚·‚é‘O‚ɁAŽóM‚µ‚½ƒtƒ@ƒCƒ‹‚ðíœ‚µ‚Ä‚­‚¾‚³‚¢B
-
-‚»‚¤‚µ‚È‚¢‚ƁA‘ŠŽè‚ªŽŸ‚ÌŽóMƒtƒ@ƒCƒ‹‚ðæ‚ɍì‚Á‚Ä‚µ‚Ü‚¢A‚»‚̃tƒ@ƒCƒ‹‚ðíœ‚µ‚Ä‚µ‚Ü‚¤
-‚©‚ç‚Å‚·B ‚Ü‚½A‘O‚̒ʐM‚ÌŽc‚肪‚ ‚é‚Æ‚«‚Å‚à³‚µ‚­“®‚­‚悤‚ɁAƒNƒ‰ƒCƒAƒ“ƒg‚́A‘O‚ÌŽóM
-ƒtƒ@ƒCƒ‹‚ðíœ‚µ‚Ä‚©‚çA‘—Mƒtƒ@ƒCƒ‹‚ðì¬‚µ‚Ä‚­‚¾‚³‚¢B
-
-¨ T_Call_Target.vbs # [T_WaitForFile]
-
-ƒeƒXƒg
-
-¨ FileT_wait (clib)
-
-ƒGƒ‰[‚𔭐¶‚³‚¹‚éƒtƒ@ƒCƒ‹‚ðì‚é
-
-WaitForFile ‚Å‘Ò‚Á‚Ä‚¢‚éƒtƒ@ƒCƒ‹‚ªAXML Œ`Ž®‚̃eƒLƒXƒg‚ŁAƒ‹[ƒg‚̃^ƒO‚ª <ERROR>
-‚Ì‚Æ‚«‚́AWaitForFile ‚Ì“à•”‚©‚çƒGƒ‰[‚𔭐¶‚³‚¹‚Ü‚·B
- -
-<?xml version="1.0" encoding="Shift_JIS"?>
-<ERROR num="3" msg="ƒGƒ‰["/>
-
-ì¬‚·‚éƒtƒ@ƒCƒ‹‚Ì—á
-
-ã‹L‚̏ꍇAErr ƒIƒuƒWƒFƒNƒg‚Ì“à—e‚́AŽŸ‚̂悤‚É‚È‚è‚Ü‚·B
- -
-Assert  Err.Number = 3
-Assert  Err.Description = "<ERROR num=""3"" msg=""ƒGƒ‰[""/>"
-
-¨ OnTime (Excel)
+
+ƒTƒ“ƒvƒ‹
+ + +
+ƒ†[ƒU[’è‹`•Ï”‚̏W‚Ü‚èB
+ + + + + + + + + + + +© +¥ +£ + + + +
+Sub  MakeFileClass::AddRule( a_MakeRule as MakeRule )
+
+ƒƒCƒNƒtƒ@ƒCƒ‹‚̃‹[ƒ‹‚ð“o˜^‚µ‚Ü‚·B
+ +
+a_MakeRule ˆø”‚É”z—ñ‚ðŽw’è‚·‚邱‚Æ‚à‚Å‚«‚Ü‚·B
+ + + + + + + + + + +© +¥ +£ + + + +
+Sub  MakeFileClass::Make()
+
+“o˜^‚³‚ê‚Ä‚¢‚郁ƒCƒNƒtƒ@ƒCƒ‹‚̃‹[ƒ‹‚ɏ]‚Á‚āAƒƒCƒN‚ðŽÀs‚µ‚Ü‚·B
- - - - + + + + - -
+ +