Board logo

标题: 批处理面向对象框架2-类库 [打印本页]
作者: wrove    时间: 2012-11-1 12:50     标题: 批处理面向对象框架2-类库

本帖最后由 wrove 于 2012-11-2 01:28 编辑

11.@Array类：提供数组所需的所有功能

   @Array：

        Type                "@Array"

        ====               ==================

        Push                        将一个元素添加到数组开头

        Insert                添加一个元素到数组指定位置

        Remove           删除指定索引位置上的元素

        Append                添加一个元素到数组尾部

        Extend                将另一个数组追加进原来的数组对象

        =====                ============================

        Reserve                反转数组

        ToString           回显数组的字符串表示

        Delete              删除对象数据，解除方法绑定


12.@String类：提供字符串所需的所有功能

   @String：

        Length                返回字符串长度

        ======                ====================================

        Replace                搜索并用某字符串替换当前字符串中搜索到的字符串

        Split                分割字符串，仿效VB的Split函数

        Join                向传入的数组中插入当前字符串对象的字符串，仿效C#的Join

        Reverse                返回反转后的字符串

        ======                ====================================

        PadLeft                左填充字符串

        PadRight        右填充字符串

        ======                ====================================

        Insert                在指定索引位置插入传入的字符串

        Remove                删除此字符串从指定位置起一定数目的字符

        IndexOf                返回传入字符串在当前字符串对象的字符串中的位置，如果没找到，返回-1

        Slice                分片字符串，参数为：起索引、止索引、步长

        StartsWith        判断字符串是否以传入的字符串开头，这个功能只用内部调用IndexOf即可

        EndsWith        判断字符串是否以传入的字符串结尾

        ======                ====================================

        TrimLeft        删除当前字符串左边空白字符串，如果有参数则删除左边参数指定的字符串

        Trim                删除当前字符串两端空白字符串，如果有参数则删除两端参数指定的字符串

        TrimRight        删除当前字符串右边空白字符串，如果有参数则删除右边参数指定的字符串

        ======                ====================================

        Title                返回标题格式的字符串

        ToUpper                返回当前字符串的大写形式

        ToLower                返回当前字符串的小写形式

        ======                ====================================

        ToChars                返回当前字符串的字符数组


13.@Math类：

   @Math：

        Add                加法

        Sub                减法       

        Multiply        乘法       

        Divide                除法

        Power                求幂

14.@File类：

   @File：

        Size                返回文件大小，字节为单位

        CreateTime        返回文件创建时间

        ModifyTime        返回文件上次修改时间

        AccessTime        返回文件上次访问时间

        Attribute        返回文件属性

        Folder                所在目录

        BaseName        文件基本名

        ExtensionName        文件扩展名

        ShortName        文件的短名称       

        ======                ===================================
       
        CopyTo                将文件复制到指定位置，可以附带重命名

        Rename                重命名文件

        Move                将文件移动到指定位置，可以附带重命名

        Delete                删除文件

        Show                简单分屏显示文件内容

        FileInfo        格式良好地回显文件信息

        SetAttribute        设置文件属性，简单传入修改时attrib后面的字符串

15.@Folder类：提供目录相关功能

   @Folder：
       
        Size                返回目录大小，字节为单位

        CreateTime        返回目录创建时间

        ModifyTime        返回目录上次修改时间

        AccessTime        返回目录上次访问时间

        Attribute        返回目录属性

        Folder                所在目录

        BaseName        目录基本名

        ShortName        目录的短名称       

        ======                ===================================
       
        CopyTo                将目录复制到指定位置，可以附带重命名

        Rename                重命名目录

        Move                将目录移动到指定位置，可以附带重命名

        Delete                删除目录

        FileInfo        格式良好地回显目录信息

        SetAttribute        设置目录属性，简单传入修改时attrib后面的字符串
作者: wrove    时间: 2012-11-1 13:01

本帖最后由 wrove 于 2012-11-2 08:56 编辑 
  1. @Echo off&SetLocal EnableDelayedExpansion&Color a

  2. Echo 0.创建一个数组$days,给它赋予周一到周五的工作日名称

  3. Call :@Array "$days" "Monday" "Tuesday" "Wednesday" "Thursday" "Friday"

  4. Echo.

  5. Call :%$days.ToString%

  6. Echo.

  7. Echo 1.在数组$days开始位置压入一个元素"Sunday"

  8. Call :%$days.Push% "Sunday"

  9. Echo.

  10. Call :%$days.ToString%

  11. Echo.

  12. Echo 2.插入"Hello World"到数组$days的第3索引位置

  13. Call :%$days.Insert% 3 "Hello World"

  14. Echo.

  15. Call :%$days.ToString%

  16. Echo.

  17. Echo 3.删除数组$days的第3索引位置上的元素

  18. Call :%$days.Remove% 3

  19. Echo.

  20. Call :%$days.ToString%

  21. Echo.

  22. Echo 4.在数组$days的末尾位置追加一个元素"Saturday"

  23. Call :%$days.Append% "Saturday"

  24. Echo.

  25. Call :%$days.ToString%

  26. Echo.

  27. Echo 5.在数组$days的末尾追加另一个数组$Signs

  28. Echo.

  29. ECho 5.1创建数组$Signs，给它添加两个元素"+"、"-"

  30. Echo.

  31. Call :@Array "$Signs" "+" "-"

  32. Echo 5.2回显数组$Signs的信息

  33. Echo.

  34. Call :%$Signs.ToString%

  35. Echo.

  36. Echo 5.3将$Signs的所有元素追加到$days末尾

  37. Call :%$days.Extend% "$Signs"

  38. Echo.

  39. Echo 5.4回显追加$Signs数组后$days数组的信息

  40. Echo.

  41. Call :%$days.ToString%

  42. Echo.

  43. Echo 6.反转$days数组的元素

  44. Call :%$days.Reserve%

  45. Echo.

  46. Call :%$days.ToString%

  47. Echo.

  48. Echo 9.删除数组$days的数据与方法

  49. Call :%$days.Delete%

  50. Echo =================All Done==================

  51. Echo Press any key to quit...

  52. Pause>nul

  53. Exit

  54. 

  55. 

  56. Rem =================@Array====================

  57. :@Array

  58. Rem 初始化临时变量

  59. Set __this=%~1

  60. Set __index=-1

  61. :Array_Begin

  62. Rem 第一次调用建立类型固有信息

  63. If not Defined $Array.Methods (

  64. Set $Array.Fields="Type UBound [i]"

  65. Set $Array.Methods="Push Insert Remove Append Extend Reserve ToString Delete"

  66. )

  67. Rem *******************************************

  68. Rem 初始化对象字段

  69. Rem 设置对象的类型信息

  70. Set %__this%.Type="@Array"

  71. Rem 设置数组元素

  72. For %%a In (%*) Do (

  73. Set %__this%[!__index!]=%%a

  74. Set /a __index+=1

  75. )

  76. Rem 删除无用的数组元素，即位于-1索引位置的元素

  77. Set %__this%[-1]=

  78. Rem 设置数组的最大下标

  79. Set /a %__this%.UBound=%__index%-1

  80. Rem *******************************************

  81. Rem 初始化对象方法

  82. For %%a In (%$Array.Methods:"=%) Do (

  83. Set %__this%.%%a=Array.%%a %__this%

  84. )

  85. Rem *******************************************

  86. :Array_End

  87. Rem 销毁临时变量

  88. Set __this=

  89. Set __index=

  90. Goto :Eof

  91. Rem -------------------------------------------

  92. 

  93. Rem -------------------------------------------

  94. :Array.Push

  95. Rem 初始化临时变量

  96. Set __this=%~1

  97. Set /a __index=!%__this%.UBound!+1

  98. :Array.Push_Begin

  99. Rem *******************************************

  100. For /L %%a In (!%__this%.UBound!,-1,0) Do (

  101. Set %__this%[!__index!]=!%__this%[%%a]!

  102. Set /a __index-=1

  103. )

  104. Set /a %__this%.UBound+=1

  105. Set %__this%[0]=%2 

  106. Rem *******************************************

  107. :Array.Push_End

  108. Rem 销毁临时变量

  109. Set __this=

  110. Set __index=

  111. Goto :Eof

  112. Rem -------------------------------------------

  113. 

  114. Rem -------------------------------------------

  115. :Array.Insert

  116. Rem 初始化临时变量

  117. Set __this=%~1

  118. Set /a __index=!%__this%.UBound!+1

  119. :Array.Insert_Begin

  120. Rem *******************************************

  121. For /L %%a In (!%__this%.UBound!,-1,%~2) Do (

  122. Set %__this%[!__index!]=!%__this%[%%a]!

  123. Set /a __index-=1

  124. )

  125. Set %__this%[%~2]=%3

  126. Set /a %__this%.UBound+=1

  127. Rem *******************************************

  128. :Array.Insert_End

  129. Rem 销毁临时变量

  130. Set __this=

  131. Set __index=

  132. Goto :Eof

  133. Rem -------------------------------------------

  134. 

  135. Rem -------------------------------------------

  136. :Array.Remove

  137. Rem 初始化临时变量

  138. Set __this=%~1

  139. Set __index=%~2

  140. Set /a __Start=%~2+1

  141. :Array.Remove_Begin

  142. Rem *******************************************

  143. For /L %%a In (%__Start%,1,!%__this%.UBound!) Do (

  144. Set %__this%[!__index!]=!%__this%[%%a]!

  145. Set /a __index+=1

  146. )

  147. Set /a %__this%.UBound-=1

  148. Rem *******************************************

  149. :Array.Remove_End

  150. Rem 销毁临时变量

  151. Set __this=

  152. Set __index=

  153. Set __Start=

  154. Goto :Eof

  155. Rem -------------------------------------------

  156. 

  157. Rem -------------------------------------------

  158. :Array.Append

  159. Rem 初始化临时变量

  160. Set __this=%~1

  161. :Array.Append_Begin

  162. Rem *******************************************

  163. Set /a %__this%.UBound+=1

  164. Set %__this%[!%__this%.UBound!]=%2

  165. Rem *******************************************

  166. :Array.Append_End

  167. Rem 销毁临时变量

  168. Set __this=

  169. Goto :Eof

  170. Rem -------------------------------------------

  171. 

  172. Rem -------------------------------------------

  173. :Array.Extend

  174. Rem 初始化临时变量

  175. Set __this=%~1

  176. Set __OtherObj=%~2

  177. If not !%__OtherObj%.Type!=="@Array" (

  178. Echo Error:要求参数%__OtherObj%是一个数组

  179. )

  180. Set /a __index=!%__this%.UBound!+1

  181. :Array.Extend_Begin

  182. Rem *******************************************

  183. For /L %%a In (0,1,!%__OtherObj%.UBound!) Do (

  184. Set %__this%[!__index!]=!%__OtherObj%[%%a]!

  185. Set /a __index+=1

  186. )

  187. Set /a %__this%.UBound+=!%__OtherObj%.UBound!+1

  188. Rem *******************************************

  189. :Array.Extend_End

  190. Rem 销毁临时变量

  191. Set __this=

  192. Set __OtherObj=

  193. Set __index=

  194. Goto :Eof

  195. Rem -------------------------------------------

  196. 

  197. Rem -------------------------------------------

  198. :Array.Reserve

  199. Rem 初始化临时变量

  200. Set __this=%~1

  201. Set /a __LEnd=!%__this%.UBound!/2

  202. Set /a __Mod=!%__this%.UBound!%2

  203. If %__Mod% equ 0 (

  204. Set /a __LEnd=%__LEnd%-1

  205. )

  206. Set __RIndex=!%__this%.UBound!

  207. :Array.Reserve_Begin

  208. Rem *******************************************

  209. For /L %%a In (0,1,%__LEnd%) Do (

  210. Set __Temp=!%__this%[%%a]!

  211. Call Set %__this%[%%a]=%%%__this%[!__RIndex!]%%

  212. Set %__this%[!__RIndex!]=!__Temp!

  213. Set /a __RIndex-=1

  214. )

  215. Rem *******************************************

  216. :Array.Reserve_End

  217. Rem 销毁临时变量

  218. Set __this=

  219. Set __LEnd=

  220. Set __Mod=

  221. Set __RIndex=

  222. Set __Temp=

  223. Goto :Eof

  224. Rem -------------------------------------------

  225. 

  226. Rem -------------------------------------------

  227. :Array.ToString

  228. Rem 初始化临时变量

  229. Set __this=%~1

  230. Set __Str=[

  231. :Array.ToString_Begin

  232. Rem *******************************************

  233. For /L %%a In (0,1,!%__this%.UBound!) Do Set __Str=!__Str!!%__this%[%%a]!,

  234. Set __Str=%__Str:~,-1%]

  235. Echo %__Str%

  236. Rem *******************************************

  237. Rem 销毁临时变量

  238. :Array.ToString_End

  239. Set __this=

  240. Set __Str=

  241. Goto :Eof

  242. Rem -------------------------------------------

  243. 

  244. Rem -------------------------------------------

  245. :Array.Delete

  246. Rem 初始化临时变量

  247. Set __this=%~1

  248. :Array.Delete_Begin

  249. Rem *******************************************

  250. Rem 删除对象的数据

  251. Rem 删除对象类型信息

  252. Set %__this%.Type=

  253. Rem 删除数组元素

  254. For /L %%a In (0,1,!%__this%.UBound!) Do (

  255. Set %__this%[%%a]=

  256. )

  257. Set %__this%=

  258. Rem 删除对象的方法

  259. For %%a In (%$Array.Methods:"=%) Do (

  260. Set %__this%.%%a=

  261. )

  262. Rem *******************************************

  263. :Array.Delete_End

  264. Rem 销毁临时变量

  265. Set __this=

  266. Goto :Eof

  267. Rem =================@Array====================
复制代码
作者: wrove    时间: 2012-11-1 21:54

本帖最后由 wrove 于 2012-11-2 08:37 编辑

以上面这个@Array类为例，对框架作一下简要说明：

1.所有类以@ClassName格式命名，如上

2.所有类在第一个此类的对象被创建之前会创建一个$ClassName.Methods和$ClassName.Fields

   变量，用于保存这个类的方法成员，它们以“.MethodName”的形式连接成一个字符串，如上面的：

   Set $Array.Methods="Push Insert Remove Append Extend Reserve ToString Delete"

3.当创建对象之前，首先给这个对象添加一个Type属性，它简单地保存此对象所属的类型信息，如：

  Set %__this%.Type="@Array"

  可以使用if string1==string2的方法来校验类型，如上面的：

   If not !%__OtherObj%.Type!=="@Array" (
   Echo Error:要求参数%__OtherObj%是一个数组
   )

4.而后是初始化对象数据，上面的这个是个数组类，所以我们用
  
（1）数组$ArrayName.UBound字段保存数组最大下标

（2）$ArrayName[n]保存数组元素，其中n为自然数，索引从0开始

  对象类型不同数据的储存方式也会不同，仅以上面的类为例

5.而后是给对象绑定方法，这时候$ClassName.Methods就用上了，我们从中解析出所有的Method

   并将MethodName与$ObjName绑定，如：

   $days.Push=Array.Push $days

   $days.Insert=Array.Insert $days

   ... ...
   
   $days.Delete=Array.Delete $days

   这样绑定之后，我们就可以按如下方式调用方法：

   Call :%$ObjName.MethodName% arg1 arg2 arg3 ...

   这与面向对象的写法很接近，如果我们想从方法中带回值，可以简单地使用$ObjName.MethodName

   作为结果的载体来返回结果，当然要注意在方法

   开始的地方将上次的调用结果清空，这个很重要

6.而后要注意的就是Delete方法，它会按对象数据存储的顺序，将所有的数据清除，包括对象的类型信息，

   对象的所有数据，对象的方法绑定，还有方法的结果载体，因为方法的结果要留着访问的，所以在方法

   退出之时，结果载体应该被设置为此次调用结果，而不是被清除，所以清理工作就得由Delete来做，

   当然，你不做，系统也会做
  
7.总体而言我们的代价是较大的内存花销与一定的效率损失，不过就它会在开发效率（我实在不想这么说，

   因为不觉得什么样的批处理编写能称得上是开发，规模通常太小）上得到补偿
作者: wrove    时间: 2012-11-2 02:18

本帖最后由 wrove 于 2012-11-2 03:01 编辑

一楼除@Array类之外，其他的类接口有很多需要添加元素，比如Type属性、Delete方法、ToString方法，

有兴趣的可以依照2楼的@Array的定义，给予补全，并实现

另外，还有Drive、TextDB（文本数据库）、DataTime、Process、WinRAR

有兴趣的，可以一起探讨探讨一下，呵呵；

这个框架的初衷，只是提供另一种编写批处理的选择：面向对象，让一切更简单（对人而
作者: wrove    时间: 2012-11-2 10:51

  1. Echo ================@Array2测试================

  2. Echo.

  3. Echo @Array2类继承@Array类，添加InsertStr方法

  4. Echo.

  5. Echo 0.创建@Array2类型的新数组$Direction

  6. Call :@Array2 "$Direction" "East" "West" "South" "North"

  7. Echo.

  8. Echo 1.调用继承而来的ToString方法，回显此数组

  9. Echo.

  10. Call :%$Direction.ToString%

  11. Echo.

  12. Echo 2.$Direction.Type=%$Direction.Type%

  13. Echo.

  14. Echo 3.调用添加的方法InsertStr

  15. Call :%$Direction.InsertStr% "+"

  16. Echo.

  17. Echo 4.通过访问$Direction.InsertStr.Return回显调用结果

  18. Echo. 

  19. Echo %$Direction.InsertStr.Return%

  20. Echo.

  21. Echo 5.删除对象$Direction

  22. Call :%$Direction.Delete%

  23. Echo =================All Done==================

  24. Echo Press any key to quit...

  25. Pause>nul

  26. Exit

  27. 

  28. 

  29. Rem =================@Array2====================

  30. :@Array2

  31. Rem 调用基类

  32. Call :@Array %*

  33. Rem 为Array类多提供一个InsertStr功能

  34. Set __this=%~1

  35. :Array2_Begin

  36. Rem 第一次调用建立类型固有信息

  37. If not Defined $Array2.Methods (

  38. Set $Array2.Methods="InsertStr Delete"

  39. )

  40. Rem *******************************************

  41. Rem 初始化对象字段

  42. Rem 设置对象的类型信息

  43. Set %__this%.Type="@Array2"

  44. Rem *******************************************

  45. Rem 初始化对象方法

  46. For %%a In (%$Array2.Methods:"=%) Do (

  47. Set %__this%.%%a=Array2.%%a %__this%

  48. )

  49. Rem *******************************************

  50. :Array2_End

  51. Rem 销毁临时变量

  52. Set __this=

  53. Set __index=

  54. Goto :Eof

  55. Rem -------------------------------------------

  56. 

  57. Rem -------------------------------------------

  58. :Array2.InsertStr

  59. Rem 初始化临时变量

  60. Set __this=%~1

  61. Set __StrToInsert=%2

  62. Set %__this%.InsertStr.Return=

  63. :Array2.InsertStr_Begin

  64. Rem *******************************************

  65. For /L %%a In (0,1,!%__this%.UBound!) Do (

  66. If %%a equ !%__this%.UBound! (

  67. Set %__this%.InsertStr.Return=!%__this%.InsertStr.Return!!%__this%[%%a]:"=!

  68. ) Else (

  69. Set %__this%.InsertStr.Return=!%__this%.InsertStr.Return!!%__this%[%%a]:"=!%__StrToInsert:"=%

  70. )

  71. )

  72. Rem *******************************************

  73. :Array2.InsertStr_End

  74. Rem 销毁临时变量

  75. Set __this=

  76. Set __StrToInsert=

  77. Goto :Eof

  78. Rem -------------------------------------------

  79. 

  80. Rem -------------------------------------------

  81. :Array2.Delete

  82. Call :Array.Delete %*

  83. Set __this=%~1

  84. :Array2.Delete_Begin

  85. For %%a In (%$Array2.Methods:"=%) Do (

  86. Set %__this%.%%a=

  87. )

  88. Rem 删除方法返回值

  89. Set %__this%.InsertStr.Return=

  90. :Array2.Delete_End

  91. Set __this=

  92. Rem =================@Array2====================
复制代码
加上@Array的代码，实现继承
作者: caruko    时间: 2012-11-14 15:26

本帖最后由 caruko 于 2012-11-14 15:27 编辑

每个类，进入的时候调用一次setlocal ，结束时调用endlocal，不就可以销毁变量？
而且也不会修改外部变量，还不会受到外部大量变量带来的速度影响。
唯一麻烦的是修改全局变量。
作者: wrove    时间: 2012-11-15 00:18

嗯，这个机制我还是第一次了解，不过的确，这里创建对象，总要将对象字段方法这些在全局暴露出来

否则那跟什么也不做有什么区别



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2