• 新浪微博:
  • 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:03-18

按键精灵安卓版
立即下载

软件版本:3.5.3
软件大小:46.2M
更新时间:03-02

按键精灵iOS版
立即下载

软件版本:1.7.3
软件大小:29.2M
更新时间:12-06

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[分享脚本] 服装量体套号软件 [复制链接]

1#
功能介绍:读取Excel表格里的量体数据自动套号,然后自动汇总,支持自定义套号规则,支持遍历多张表格及分页。

如果一整天对着电脑人工套号,套1000组号眼睛都受不了,而且容易出错。软件套1000组号也就1-2分钟,1万组号也就10几20分钟,设置好软件后点击启动就可以了,等待软件自动完成套号。
软件能节省人工套号的麻烦,只要量体数据正确及格式无错误,套号工具套的号是不存在任何错误的。

补充:可定制Excel表格数据批处理软件,或者有其它什么需求可以联系我详谈。自动化办公软件定制,以及数据批处理。欢迎各位老板打扰QQ:403344658(湖北孝感)

以下是套号规则实例图:
您所在的用户组无法下载或查看附件


以下为套号完成后的截图:
您所在的用户组无法下载或查看附件


  1. Dim 信息数组(9)
  2. For xxsz = 0 To 9
  3. 信息数组(xxsz) = ""
  4. Next
  5. Sub 写入状态数组(内容)
  6. For xxsz = 0 To 8
  7. 信息数组(9 - xxsz) = 信息数组(9 - xxsz - 1)
  8. Next
  9. 信息数组(0) = 内容
  10. ZTA = ""
  11. For xxsz = 0 To 9
  12. ZTA = ZTA & 信息数组(xxsz) & Chr(13) & Chr(10)
  13. Next
  14. Form1.状态.Text = ZTA
  15. End Sub
  16. sTime1 = Plugin.Sys.GetTime()
  17. 初始路径 = Form1.路径.Path
  18. If 初始路径 = "" Then
  19. MessageBox "路径不能为空"
  20. ExitScript
  21. End If
  22. If Form1.全部表格.Value = 1 Then
  23. 套全部表格 = 1
  24. Else
  25. 套全部表格 = 0
  26. End If
  27. If Form1.自动汇总.Value = 1 Then
  28. 自动汇总 = 1
  29. Else
  30. 自动汇总 = 0
  31. End If
  32. If Form1.以表名命名.Value = 1 Then
  33. 以表名命名 = 1
  34. Else
  35. 以表名命名 = 0
  36. End If
  37. If Form1.固定表名长度.Value = 1 Then
  38. 固定表名长度 = 1
  39. Else
  40. 固定表名长度 = 0
  41. End If
  42. If Form1.尾列添加.Value = 1 Then
  43. 尾列添加 = 1
  44. Else
  45. 尾列添加 = 0
  46. End If
  47. If Form1.表格可视.Value = 1 Then
  48. 表格可视 = 1
  49. Else
  50. 表格可视 = 0
  51. End If
  52. 统计_总行数 = 0
  53. 统计_有效行数 = 0
  54. 统计_表数 = 0
  55. 统计_页数 = 0
  56. //
  57. 男上衣初始升高 = Form1.男上衣初始升高.Text
  58. 男上衣升高跳度 = Form1.男上衣升高跳度.Text
  59. 男上衣初始胸围 = Form1.男上衣初始胸围.Text
  60. 男上衣胸围跳度 = Form1.男上衣胸围跳度.Text
  61. 男下衣初始升高 = Form1.男下衣初始升高.Text
  62. 男下衣升高跳度 = Form1.男下衣升高跳度.Text
  63. 男下衣初始腰围 = Form1.男下衣初始腰围.Text
  64. 男下衣腰围跳度 = Form1.男下衣腰围跳度.Text
  65. 男定值上衣升高 = Form1.男定值上衣升高.Text
  66. 男定值上衣升高跳度 = Form1.男定值上衣升高跳度.Text
  67. 男定值上衣胸围 = Form1.男定值上衣胸围.Text
  68. 男定值上衣胸围跳度 = Form1.男定值上衣胸围跳度.Text
  69. 男定值下衣升高 = Form1.男定值下衣升高.Text
  70. 男定值下衣升高跳度 = Form1.男定值下衣升高跳度.Text
  71. 男定值下衣腰围 = Form1.男定值下衣腰围.Text
  72. 男定值下衣腰围跳度 = Form1.男定值下衣腰围跳度.Text
  73. //
  74. 女上衣初始升高 = Form1.女上衣初始升高.Text
  75. 女上衣升高跳度 = Form1.女上衣升高跳度.Text
  76. 女上衣初始胸围 = Form1.女上衣初始胸围.Text
  77. 女上衣胸围跳度 = Form1.女上衣胸围跳度.Text
  78. 女下衣初始升高 = Form1.女下衣初始升高.Text
  79. 女下衣升高跳度 = Form1.女下衣升高跳度.Text
  80. 女下衣初始腰围 = Form1.女下衣初始腰围.Text
  81. 女下衣腰围跳度 = Form1.女下衣腰围跳度.Text
  82. 女定值上衣升高 = Form1.女定值上衣升高.Text
  83. 女定值上衣升高跳度 = Form1.女定值上衣升高跳度.Text
  84. 女定值上衣胸围 = Form1.女定值上衣胸围.Text
  85. 女定值上衣胸围跳度 = Form1.女定值上衣胸围跳度.Text
  86. 女定值下衣升高 = Form1.女定值下衣升高.Text
  87. 女定值下衣升高跳度 = Form1.女定值下衣升高跳度.Text
  88. 女定值下衣腰围 = Form1.女定值下衣腰围.Text
  89. 女定值下衣腰围跳度 = Form1.女定值下衣腰围跳度.Text
  90. //
  91. 读取_姓名栏 = Form1.读取_姓名栏.Text
  92. 读取_身高栏 = Form1.读取_身高栏.Text
  93. 读取_性别栏 = Form1.读取_性别栏.Text
  94. 读取_胸围栏 = Form1.读取_胸围栏.Text
  95. 读取_腰围栏 = Form1.读取_腰围栏.Text
  96. 写入_上衣栏 = Form1.写入_上衣栏.Text
  97. 写入_下衣栏 = Form1.写入_下衣栏.Text
  98. //
  99. 固定长度 = Int(Form1.固定长度.Text)
  100. //C:\Documents and Settings\Administrator\桌面\武汉局第\1.exe
  101. F初始路径 = Split(初始路径, "\")
  102. A初始路径 = ""
  103. For cslj = 0 To UBound(F初始路径) - 1
  104. A初始路径 = A初始路径 & F初始路径(cslj) & "\"
  105. Next
  106. 数组ik = Lib.文件.遍历指定目录下所有文件名(A初始路径)
  107. If 自动汇总 = 1 Then
  108. 汇总_行 = 1
  109. 统计行 = 1
  110. Call Plugin.File.DeleteFile(A初始路径 & "【汇总】.xlsx")
  111. PutAttachment A初始路径 & "【汇总】", "【汇总】.xlsx"
  112. Call Plugin.File.DeleteFile(A初始路径 & "【统计】.xlsx")
  113. PutAttachment A初始路径 & "【汇总】", "【统计】.xlsx"
  114. Delay 500
  115. If 表格可视 = 1 Then
  116. 汇总表句柄 = Plugin.lxj_Office.lxj_ExcelOpen(A初始路径 & "【汇总】\【汇总】.xlsx", 1)
  117. Else
  118. 汇总表句柄 = Plugin.lxj_Office.lxj_ExcelOpen(A初始路径 & "【汇总】\【汇总】.xlsx", 0)
  119. End If
  120. 统计表句柄 = Plugin.lxj_Office.lxj_ExcelOpen(A初始路径 & "【汇总】\【统计】.xlsx", 0)
  121. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 1, "单位", 汇总表句柄
  122. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 2, "姓名", 汇总表句柄
  123. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 3, "性别", 汇总表句柄
  124. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 4, "身高", 汇总表句柄
  125. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 5, "胸围", 汇总表句柄
  126. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 6, "腰围", 汇总表句柄
  127. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 7, "上衣归并", 汇总表句柄
  128. // Plugin.lxj_Office.lxj_ExcelWrite 1, 1, 8, "下衣归并", 汇总表句柄
  129. End If
  130. 信息表格行 = 1
  131. 统计_表数 = UBound(数组ik)
  132. For iiik = 0 To UBound(数组ik) - 1
  133. Form1.ProgressBar1.Value = Int(((iiik + 1) / (UBound(数组ik) + 1)) * 100)
  134. Form1.Grid1.SetItemText 信息表格行, 0, 数组ik(iiik)
  135. 路径 = A初始路径 & 数组ik(iiik)
  136. If 套全部表格 = 0 Then
  137. 路径 = 初始路径
  138. End If
  139. //下面这句是打开Excel文档工作表
  140. index = Plugin.lxj_Office.lxj_ExcelOpen(路径, 0)
  141. TracePrint "打开Excel表格"
  142. Call 写入状态数组("打开Excel表格")
  143. 总页数 = Plugin.lxj_Office.lxj_SheetCount(index)
  144. TracePrint "路径:" & 路径
  145. TracePrint "表格总页数:" & 总页数
  146. Call 写入状态数组("路径:" & 路径)
  147. Call 写入状态数组("表格总页数:" & 总页数)
  148. 统计_页数 = 统计_页数 + 总页数
  149. For 表页 = 1 To 总页数
  150. 人数_男 = 0
  151. 人数_女 = 0
  152. If 以表名命名 <> 1 Then
  153. For ooo1 = 2 To 5
  154. For ooo2 = 1 To 3
  155. 客户单位 = Plugin.lxj_Office.lxj_ExcelRead(表页, ooo1, ooo2, index)
  156. If InStr(客户单位, ":") > 0 And InStr(客户单位, "单位") > 0 Then
  157. 客户单位 = Split(客户单位, ":")(1)
  158. Else
  159. If InStr(客户单位, ":") > 0 And InStr(客户单位, "单位") > 0 Then
  160. 客户单位 = Split(客户单位, ":")(1)
  161. Else
  162. 客户单位 = ""
  163. End If
  164. End If
  165. If 客户单位 = "" Then
  166. 客户单位 = Plugin.lxj_Office.lxj_ExcelRead(表页, ooo1, ooo2, index)
  167. If InStr(客户单位, ":") > 0 And InStr(客户单位, "单位") > 0 Then
  168. 客户单位 = Split(客户单位, ":")(1)
  169. Else
  170. If InStr(客户单位, ":") > 0 And InStr(客户单位, "单位") > 0 Then
  171. 客户单位 = Split(客户单位, ":")(1)
  172. Else
  173. 客户单位 = ""
  174. End If
  175. End If    
  176. End If
  177. If 客户单位 <> "" Then
  178.     Exit For
  179. End If
  180. Next
  181. If 客户单位 <> "" Then
  182.     Exit For
  183. End If
  184. Next
  185. End If
  186. Form1.ProgressBar2.Value = Int((表页 / 总页数) * 100)
  187. 表页名称 = Plugin.lxj_Office.lxj_SheetName(表页, index)
  188. 列总数 = Plugin.lxj_Office.lxj_ExcelLastC(表页, index)
  189. If 以表名命名 = 1 Then
  190. 客户单位 = 表页名称
  191. End If
  192. Form1.Grid1.SetItemText 信息表格行, 1, 表页名称
  193. TracePrint "正在获取表格第" & CStr(表页) & "页格式"
  194. Call 写入状态数组("正在获取表格第" & CStr(表页) & "页格式")
  195. Call 自动取列(表页)
  196. If 参数数 = 7 Then
  197. TracePrint "获取成功"
  198. Call 写入状态数组("获取成功")
  199. Else
  200. TracePrint "格式错误:" & 缺失
  201. Call 写入状态数组("格式错误:" & 缺失)
  202. End If
  203. If 尾列添加 = 1 Then
  204. lsz = 5
  205. Else
  206. lsz = 7
  207. End If
  208. If 参数数 = lsz Then
  209. 有效行数 = 0
  210. 连续空行 = 0
  211. 行 = 0
  212. 表页总行数 = Plugin.lxj_Office.lxj_ExcelLastR(表页, index)
  213. TracePrint "当前页共有:" & CStr(表页总行数) & "行"
  214. TracePrint "开始套号"
  215. Call 写入状态数组("当前页共有:" & CStr(表页总行数) & "行")
  216. Call 写入状态数组("开始套号")
  217. 统计_总行数 = 统计_总行数 + 表页总行数
  218. 有效行 = 0
  219. For 行 = 1 To 表页总行数
  220. Form1.ProgressBar3.Value = Int((行 / 表页总行数) * 100)
  221. 身高 = Plugin.lxj_Office.lxj_ExcelRead(表页, 行, 列_身高, index)
  222. If 身高 <> "" Then
  223. 姓名 = Plugin.lxj_Office.lxj_ExcelRead(表页, 行, 列_姓名, index)
  224. 性别 = Plugin.lxj_Office.lxj_ExcelRead(表页, 行, 列_性别, index)
  225. 胸围 = Plugin.lxj_Office.lxj_ExcelRead(表页, 行, 列_胸围, index)
  226. 腰围 = Plugin.lxj_Office.lxj_ExcelRead(表页, 行, 列_腰围, index)
  227. If 性别 <> "" And 胸围 <> "" And 腰围 <> "" Then
  228. 有效行 = 有效行 + 1
  229. If InStr(身高, "+") > 0 Then
  230. 分割 = Split(身高, "+")
  231. 身高 = CStr(Int(分割(0)) + Int(分割(1)))
  232. ElseIf InStr(身高, "-") > 0 Then
  233. 分割 = Split(身高, "-")
  234. 身高 = CStr(Int(分割(0)) - Int(分割(1)))
  235. End If
  236. If InStr(胸围, "+") > 0 Then
  237. 分割 = Split(胸围, "+")
  238. 胸围 = CStr(Int(分割(0)) + Int(分割(1)))
  239. ElseIf InStr(胸围, "-") > 0 Then
  240. 分割 = Split(胸围, "-")
  241. 胸围 = CStr(Int(分割(0)) - Int(分割(1)))
  242. End If
  243. If InStr(腰围, "+") > 0 Then
  244. 分割 = Split(腰围, "+")
  245. 腰围 = CStr(Int(分割(0)) + Int(分割(1)))
  246. ElseIf InStr(腰围, "-") > 0 Then
  247. 分割 = Split(腰围, "-")
  248. 腰围 = CStr(Int(分割(0)) - Int(分割(1)))
  249. End If
  250. //
  251. If 性别 = "男" Then
  252. 人数_男 = 人数_男 + 1
  253. 返回1 = Int((Int(身高) - Int(男上衣初始升高)) / Int(男上衣升高跳度)) * Int(男定值上衣升高跳度) + Int(男定值上衣升高)
  254. 返回2 = Int((Int(胸围) - Int(男上衣初始胸围)) / Int(男上衣胸围跳度)) * Int(男定值上衣胸围跳度) + Int(男定值上衣胸围)
  255. 返回3 = Int((Int(身高) - Int(男下衣初始升高)) / Int(男下衣升高跳度)) * Int(男定值下衣升高跳度) + Int(男定值下衣升高)
  256. 返回4 = Int((Int(腰围) - Int(男下衣初始腰围)) / Int(男下衣腰围跳度)) * Int(男定值下衣腰围跳度) + Int(男定值下衣腰围)
  257. 上衣尺码 = CStr(返回1) & "/" & CStr(返回2)
  258. 下衣尺码 = CStr(返回3) & "/" & CStr(返回4)
  259. //下面这句是向Excel文档工作表
  260. If 尾列添加 = 1 Then
  261. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列总数 + 1, 上衣尺码, index
  262. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列总数 + 2, 下衣尺码, index
  263. Else
  264. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列_上衣型号, 上衣尺码, index
  265. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列_裤子型号, 下衣尺码, index
  266. End If
  267. If 自动汇总 = 1 Then
  268. 汇总_行 = 汇总_行 + 1
  269. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 1, 客户单位, 汇总表句柄
  270. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 2, 姓名, 汇总表句柄
  271. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 3, 性别, 汇总表句柄
  272. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 4, 身高, 汇总表句柄
  273. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 5, 胸围, 汇总表句柄
  274. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 6, 腰围, 汇总表句柄
  275. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 7, 上衣尺码, 汇总表句柄
  276. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 8, 下衣尺码, 汇总表句柄
  277. If 固定表名长度 <> 1 Then
  278. 表格名称 = 数组ik(iiik)
  279. Else
  280. If 固定长度 > 0 And Len(数组ik(iiik)) >= 固定长度 Then
  281. 表格名称 = Mid(数组ik(iiik), 1, 固定长度)
  282. Else
  283. 表格名称 = 数组ik(iiik)
  284. End If
  285. End If
  286. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 9, 表格名称, 汇总表句柄
  287. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 10, 表页名称, 汇总表句柄
  288. End If
  289. //TracePrint "男---" & 上衣尺码 & "---" & 下衣尺码
  290. ElseIf 性别 = "女" Then
  291. 人数_女 = 人数_女 + 1
  292. 返回1 = Int((Int(身高) - Int(女上衣初始升高)) / Int(女上衣升高跳度)) * Int(女定值上衣升高跳度) + Int(女定值上衣升高)
  293. 返回2 = Int((Int(胸围) - Int(女上衣初始胸围)) / Int(女上衣胸围跳度)) * Int(女定值上衣胸围跳度) + Int(女定值上衣胸围)
  294. 返回3 = Int((Int(身高) - Int(女下衣初始升高)) / Int(女下衣升高跳度)) * Int(女定值下衣升高跳度) + Int(女定值下衣升高)
  295. 返回4 = Int((Int(腰围) - Int(女下衣初始腰围)) / Int(女下衣腰围跳度)) * Int(女定值下衣腰围跳度) + Int(女定值下衣腰围)
  296. 上衣尺码 = CStr(返回1) & "/" & CStr(返回2)
  297. 下衣尺码 = CStr(返回3) & "/" & CStr(返回4)
  298. //下面这句是向Excel文档工作表
  299. If 尾列添加 = 1 Then
  300. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列总数 + 1, 上衣尺码, index
  301. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列总数 + 2, 下衣尺码, index
  302. Else
  303. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列_上衣型号, 上衣尺码, index
  304. Plugin.lxj_Office.lxj_ExcelWrite 表页, 行, 列_裤子型号, 下衣尺码, index
  305. End If
  306. If 自动汇总 = 1 Then
  307. 汇总_行 = 汇总_行 + 1
  308. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 1, 客户单位, 汇总表句柄
  309. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 2, 姓名, 汇总表句柄
  310. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 3, 性别, 汇总表句柄
  311. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 4, 身高, 汇总表句柄
  312. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 5, 胸围, 汇总表句柄
  313. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 6, 腰围, 汇总表句柄
  314. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 7, 上衣尺码, 汇总表句柄
  315. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 8, 下衣尺码, 汇总表句柄
  316. If 固定表名长度 <> 1 Then
  317. 表格名称 = 数组ik(iiik)
  318. Else
  319. If 固定长度 > 0 And Len(数组ik(iiik)) >= 固定长度 Then
  320. 表格名称 = Mid(数组ik(iiik), 1, 固定长度)
  321. Else
  322. 表格名称 = 数组ik(iiik)
  323. End If
  324. End If
  325. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 9, 表格名称, 汇总表句柄
  326. Plugin.lxj_Office.lxj_ExcelWrite 1, 汇总_行, 10, 表页名称, 汇总表句柄
  327. End If
  328. End If
  329. End If
  330. End If
  331. Next
  332. 统计_有效行数 = 统计_有效行数 + 有效行
  333. Call 写入状态数组("套号完成 有效行数:" & CStr(有效行) & "/" & CStr(表页总行数))
  334. TracePrint "套号完成 有效行数:" & CStr(有效行) & "/" & CStr(表页总行数)
  335. Form1.Grid1.SetItemText 信息表格行, 2, CStr(有效行) & "/" & CStr(表页总行数)
  336. Form1.Grid1.SetItemText 信息表格行, 3, "完成"
  337. 信息表格行 = 信息表格行 + 1
  338. Else
  339. Form1.Grid1.SetItemText 信息表格行, 3, "格式不匹配"
  340. 信息表格行 = 信息表格行 + 1
  341. End If
  342. If 自动汇总 = 1 Then
  343. If 人数_男 > 0 or 人数_女 > 0 Then
  344. 统计行 = 统计行 + 1
  345. Plugin.lxj_Office.lxj_ExcelWrite 1, 统计行, 1, 客户单位, 统计表句柄
  346. Plugin.lxj_Office.lxj_ExcelWrite 1, 统计行, 2, "男", 统计表句柄
  347. Plugin.lxj_Office.lxj_ExcelWrite 1, 统计行, 3, CStr(人数_男), 统计表句柄
  348. 统计行 = 统计行 + 1
  349. Plugin.lxj_Office.lxj_ExcelWrite 1, 统计行, 1, 客户单位, 统计表句柄
  350. Plugin.lxj_Office.lxj_ExcelWrite 1, 统计行, 2, "女", 统计表句柄
  351. Plugin.lxj_Office.lxj_ExcelWrite 1, 统计行, 3, CStr(人数_女), 统计表句柄
  352. End If
  353. End If
  354. Next
  355. //下面这句是关闭Excel文档工作表
  356. TracePrint "正在保存..."
  357. Call 写入状态数组("正在保存...")
  358. Plugin.lxj_Office.lxj_ExcelSave index
  359. Delay 1000
  360. TracePrint "已保存:关闭表格"
  361. Call 写入状态数组("已保存:关闭表格")
  362. Plugin.lxj_Office.lxj_ExcelClose index
  363. Delay 500
  364. If 套全部表格 = 0 Then
  365. Exit For
  366. End If
  367. Next
复制代码

最后编辑403344658 最后编辑于 2017-03-12 20:22:54
2#

好东西看看

3#

看看有用吗

4#

好东西看看

5#

不错的好东西!!

6#

好东西

7#

阿斯顿发生地方

8#

excel做的东东吗? 我喜欢

9#

学习看看

10#

看看能适用不!谢谢LZ

11#

人体热太热

12#

学习一下

13#

学习一下

14#


15#

11


16#

好像很不多,看下

发新话题 回复该主题