vbslib

+ +

(for Internet Explorer)

- + + + +

+©

+¥

+£

+ª

+ +

+ +ShakerSort_fromDic

+ +

+Sub ShakerSort_fromDic( dic as Dictionary, out_arr as object array,
+ sign as integer, compare_func as function, param as variant )

+yøz

+dic

+\[g·éf[^ªüÁ½«Bi«Í\[g³êÜ¹ñj

+«ÉüÁÄ¢éf[^ðVF[J[\[gµÜ·B

+\[gµ½ÊÌzñBzñÌvfÍIuWFNgB

+out_arr

+compare_func

+ärÖ

+param

+compare_func Ìæ3ø

+Ql

+sign

+ +¨ ShakerSort

+³Ìdic Ìªx[XAÌdicÌtªx[X(*1)

+sign øÌà¾

+sign < 0 ÌÆ«ÅàAcompare_func ÍAsign > 0 ÌÆ«Ì compare_func ÌÔèlÌ
+}CiXðÔ·æ¤ÉµÄ¾³¢B

+ +(src)

+ + + + + + + + -

-¥

-£

-ª

- -

+¥

+£

+ +

ShakerSort

- -

+ +

Sub ShakerSort( Arr as array of Object, iLeft as integer, iRight as integer,
CompareFunc as function, Param as variant )

yøz

Arr

iLeft

\[g·ézñB

\[g·éÍÍBzñÔÌÅ¬l

zñðVF[J[\[gµÜ·BÀè\[gÅ·B

\[g·éÍÍBzñÔÌÅål

iRight

CompareFunc

ärÖ

Param

compare_func Ìæ3ø

- -

+ +

Option Explicit

Class ClassA : Public id : End Class
@@ -138,17 +210,18 @@ WScript.Echo arr(1).id &","& arr(2).id &","& arr(3).id &am Function CmpFunc1( left, right, param )
CmpFunc1 = left.id - right.id '// ~Èç right.id - left.id
End Function

-(src)

+ +(src)

¨ [T_ShakerSort] ShakerSort ÌeXg

¨ VF[J[\[g (ShakerSort)

- -

+ +

Dim line
ReDim lines(-1)
Set f = OpenForRead( target_result_txt )
@@ -175,179 +248,181 @@ End Function
Class String1
Public s
End Class

¶ñð¸É\[g·éTv

zñÌvfÍIuWFNgÅ é±ÆB

¨ PArray_doShakerSort (clib)

eXg

ÖA

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

CInt2

- -

+ +

Function CInt2( v as string ) as integer

CInt ÅG[ª¶·élð v Éwèµ½Æ«ÍA0 ðÔµÜ·B

¶ñðlÉÏ·µÜ·B

-(src)

+ +(src)

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

MeltQuot

¨ MeltCSV

ÖA

" " ÅÍÜê½ªðæèo·B

- -

+ +

Function MeltQuot( Line as string, in_out_Start as integer ) as string

- -

+ +

i = 1
Do
s = MeltQuot( line, i )
If not IsEmoty( s ) Then is ðgÁ½j
If i = 0 Then Exit Do
Loop

yøz

Line

in_out_Start

¶ñSÌ

iüÍj æèoµðJn·é¶ÌÊuAioÍjÉæèo·`

Ôèl

" " ÅÍÜê½ª¶ñBEmpty=ÚÉlª³¢

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

CreateGuid

- -

+ +

Function CreateGuid() as string

GUID ð¶¬µÜ·B

- -

+ +

2D7E3038-E395-460A-86CC-C8AB3C3D5D54

ÔèlÌáF

-(src)

+ +(src)

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

get_Object

- -

+ +

Function get_Object( Name as string ) as Object

ÃIIuWFNg iÜ½ÍZíIÈIuWFNgj ðæ¾µÜ·B

yøz

Name

æ¾·éIuWFNgÌNX¼

Ôèl

IuWFNg

TvF

- +

+ ¨ get_ClassA, get_Object : ÃIIuWFNgAZív

ÖA

- -

+ +

Dim name : name = "ClassA"
Dim obj : Set obj = get_Object( name )

- -

+ +

Dim g_ClassA

Function get_ClassA() '// has_interface_of ClassI
@@ -355,160 +430,163 @@ Function get_ClassA() '// has_interface_of ClassI
Set g_ClassA = new ClassA : ErrCheck
Set get_ClassA = g_ClassA
End Function

get_Object ÍA@\IÉÍA"get_" + Name ÌÖðÄÑo·¾¯ÈÌÅA
ÊrÖðpÓ·éKvª èÜ·B
½Æ¦ÎAName = "ClassA" ÈçAget_ClassA ÌÖªÄÎêÜ·B

ClassI

ClassA

-(src)

+ +(src)

Name ªÏÅÍÈ¢Æ«ÍA¼Ú get_ClassA ðÄÑo·±ÆªÅ«Ü·B

- -

+ +

Dim obj : Set obj = get_ClassA()

new ÅIuWFNgð¶¬·éÆAget_ClassA Åæ¾Å«éIuWFNgÆÊÌ
CX^XÉÈèÜ·B

-Name ð®IÉÏíé±ÆªÈ¢Æ«ÍAget_ClassA Öð¼ÚÄÑoµÄ
+

+Name ª®IÉÏíé±ÆªÈ¢Æ«ÍAget_ClassA Öð¼ÚÄÑoµÄ
¾³¢B

¨ T_GetObject.vbs [T_IncludeObjs1]

eXg

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

get_ObjectFromFile

- -

+ +

Function get_ObjectFromFile( ModulePath as string, Name as string ) as Object

XNvgt@CðCN[hµÄAÃIIuWFNgðæ¾µÜ·B

yøz

ModulePath

Name

XNvgt@CÌpX

æ¾·éIuWFNgÌNX¼

Ôèl

æ¾µ½IuWFNg

- -

+ +

Dim m : Set m = get_ObjectFromFile( "Lib\SampleLib.vbs", "Sample" )

TvF SampleLib.vbs t@CÅè`³êÄ¢é Sample IuWFNgðæ¾·éB

ãLTvÍAºLÆ¯¶Å·B

- -

+ +

include "Lib\SampleLib.vbs"
Dim m : Set m = get_Sample()

IuWFNgðæ¾·éªÍA@\IÉÍA"get_" + Name ÌÖðÄÑo·¾¯ÈÌÅA
XNvgt@CÌÅAÊrÖðè`·éKvª èÜ·B Ql

¨ get_Object

-(src)

+ +(src)

¨ T_GetObject.vbs get_ObjectFromFile [T_NewModule]

eXg

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

get_ObjectsFromFile

-(src)

- -

+ +(src)

+ +

Sub get_ObjectsFromFile( GetFuncs as string or Array of Function,
InterfaceName as string, out_Objs as Array of Object )

ÃIIuWFNgEXNvgt@Cð·×Äæ¾µÄêÅ«éæ¤ÉµÜ·B

yøz

GetFuncs

InterfaceName

XNvgÌpXAÜ½Í include_objs Ì out_GetFuncs

Empty Ü½ÍAæ¾·éIuWFNgªÂC^[tFCX

out_Objs

æ¾µ½IuWFNgÌzñ

- -

+ +

get_ObjectsFromFile "Lib\*_obj.vbs", "ClassI", m_Objs '// [out] m_Objs

TvF CN[hÆ¯ÉAÃIIuWFNgðæ¾·é

- -

+ +

include_objs "Lib\*_obj.vbs", Empty, m_CreateFuncs '// [out] m_CreateFuncs
get_ObjectsFromFile m_CreateFuncs, "ClassI", m_Objs '// [out] m_Objs

TvF CN[hµ½ãÅAÃIIuWFNgðæ¾·éit@Cð¸µÈ¢j

- -

+ +

Sub get_StaticObjects( InterfaceName, out_Obj )
If IsEmpty( InterfaceName ) or InterfaceName = "ClassI" Then
Set out_Obj = get_ClassA()
@@ -516,206 +594,213 @@ Sub get_StaticObjects( InterfaceName, out_Obj )
out_Obj = Array( get_ClassA(), get_ClassB() )
End If
End Sub

ÃIIuWFNgðêÅ«éæ¤É·éÉÍA»ê¼êÌXNvgÅAget_StaticObjects
Öðè`·éKvª èÜ·B get_ObjectsFromFile â include_objs ÍAÊÌXNvg
t@CÅ êÎA¯¶Ö¼ÅàÙÈéÖCX^XÉÈèÜ·B

- +

+ ¨ get_StaticObjects : ÃIIuWFNg

¨ T_GetObject.vbs [T_IncludeObjs2] [T_IncludeObjs3]

eXg

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

include_objs

- -

+ +

Sub include_objs( Wildcard as string, Flags as Empty, out_GetFuncs as Array of Funcion )

ÃIIuWFNgEXNvgt@CðCN[hµÜ·B

yøz

Wildcard

Flags

XNvgt@CÌpXAÜ½ÍtH_pX

Empty ðwèµÄ¾³¢

out_GetFuncs

EmptyAÜ½ÍAÃIIuWFNgðæ¾·éÖÌW

out_CreateFuncs ª Empty ÅÍÈ¢Æ«ÌTv

include_objs ÍACN[hÌÝs¢Ü·B IuWFNgÌ¶¬ÍAnew Å¶¬·é©A
get_ObjectsFromFile Ås¢Ü·B

-(src)

+ +(src)

TvF Lib tH_ðCN[hµÄA»ÌÅè`³ê½ ClassA IuWFNgð¶¬·éB

- -

+ +

include_objs "Lib\*_obj.vbs", Empty, Empty
Set obj : Set obj = new ClassA : ErrCheck

¨ new_X_array

ÖA

- +

+ ¨ include

out_GetFuncs ÍAÃIIuWFNgðæ¾·éÖÌWÅ·B get_ObjectsFromFile Ìæ1ø
Én·ÆA¶ñðnµ½Æ«æè¬ÉµÜ·B

¨ T_GetObject.vbs [T_IncludeObjs3]

eXg

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

get_DefineInfoObject

- -

+ +

Sub get_DefineInfoObject( in_out_Object as DefineInfoClass, FullPath as string )

PÈ DefineInfo IuWFNgð¶¬µÜ·B

- +

+ ¨ DefineInfo vpeB (vbsool)

-(src)

- -

+ +(src)

+ +

Dim g_SrcPath
Dim g_Sample_vbs : get_DefineInfoObject g_Sample_vbs, g_SrcPath

Class SampleObj
Public Property Get DefineInfo() : Set DefineInfo = g_Sample_vbs : End Property
End Class

TvF

g_SrcPath

- + +

+ +¨ DefineInfo vpeB (vbsool)

- - - - + + + + -

-¥

-£

- -

+¥

+£

+ +

get_NameDelegator

- -

+ +

Function get_NameDelegator( Name as string, TrueName as string,
InterfaceName as string ) as InterfaceName_Delegator

³®¼IuWFNgÉÏ÷·éAêÊ¼IuWFNgðæ¾µÜ·B

yøz

Name

TrueName

êÊ¼

³®¼

InterfaceName

C^[tFCX¼ (*1)

QÆ

-(src)

- +

+ +(src)

+ ¨ ¼OQÆAName Æ TrueName ª½ÎPÌê

êÊ¼IuWFNg (*2)

Ôèl

(*1)

(*2)

NameDelegator C^[tFCX

InterfaceName + "_Delegator" NX(*1)ÌIuWFNgB

InterfaceName + "_Delegator" NXi êÊ¼IuWFNgÌNXjªè`³êÄ¢ÄA
»ÌCX^Xð¶¬·é new_InterfaceName_Delegator Öªè`³êÄ¢é±ÆB
new_InterfaceName_Delegator ÖÉÂ¢ÄÍA

ÆAInterfaceName C^[tFCXðÁ½

NameDelegator C^[tFCX

- -

+ +

Class NameDelegator '// defined_as_interface
Public Name
Public Property Get TrueName() : TrueName = NameDelegator_getTrueName( Me ) : End Property
@@ -728,771 +813,721 @@ Dim g_bNeedValidateDelegate
Function NameDelegator_getTrueName( m )
Sub NameDelegator_validate( m, Flags )
Function NameDelegator_getXML( m )

¨ NameDelegator C^[tFCX

DefineInfo vpeBÍAIvVÅ·B

¨ new_X

Public Property Get DefineInfo() : Set DefineInfo = m_Delegate.DefineInfo : End Property

- +

+ ¨ DefineInfo vpeB

- - - - - -

+ + + + + +

êÊAÌÖ