- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书",……}怎么逐一递增呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=159062)
-- 发布时间：2020/12/12 12:29:00
-- Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书",……}怎么逐一递增呢？
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次","培养教育第四次","半年考察第二次","入党积极分子所在党小组研究提出意见","支委会听取意见研究确定","列为发展对象前公示","发展对象上报备案材料","发展对象上级审查并提出意见","确定入党介绍人","政治审查","集中培训","预备党员支委会研究审查","上报预审材料","上级党委预审","填写入党志愿书","支部大会讨论接收预备党员","预备党员支委会研究审查","预备党员支部大会决议","预备党员上报上级党委","上级党委派人谈话","预备党员上级审批","预备党员支部大会宣布","编入党支部和党小组","入党宣誓","继续教育","继续考察","提出转正申请","预备党员转正所在党小组提出意见","预备党员转正上级党委审批与意见","党支部征求党员和群众的意见","预备党员转正支委会审查","预备党员转正支部大会讨论表决通过","转正前公示","预备党员转正报上级党委","预备党员转正上级党委审批与意见","预备党员转正谈话并宣布"}
上述代码怎么可以批量生成如下递增的模式呢？
Dim sre() As String = {"接收入党申请书"}
Dim sre() As String = {"接收入党申请书","审看入党申请书"}
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书"}
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案"}
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间"}
……
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次","培养教育第四次","半年考察第二次","入党积极分子所在党小组研究提出意见","支委会听取意见研究确定","列为发展对象前公示","发展对象上报备案材料","发展对象上级审查并提出意见","确定入党介绍人","政治审查","集中培训","预备党员支委会研究审查","上报预审材料","上级党委预审","填写入党志愿书","支部大会讨论接收预备党员","预备党员支委会研究审查","预备党员支部大会决议","预备党员上报上级党委","上级党委派人谈话","预备党员上级审批","预备党员支部大会宣布","编入党支部和党小组","入党宣誓","继续教育","继续考察","提出转正申请","预备党员转正所在党小组提出意见","预备党员转正上级党委审批与意见","党支部征求党员和群众的意见","预备党员转正支委会审查","预备党员转正支部大会讨论表决通过","转正前公示","预备党员转正报上级党委","预备党员转正上级党委审批与意见","预备党员转正谈话并宣布"}
-- 发布时间：2020/12/12 13:14:00
--
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次","培养教育第四次","半年考察第二次","入党积极分子所在党小组研究提出意见","支委会听取意见研究确定","列为发展对象前公示","发展对象上报备案材料","发展对象上级审查并提出意见","确定入党介绍人","政治审查","集中培训","预备党员支委会研究审查","上报预审材料","上级党委预审","填写入党志愿书","支部大会讨论接收预备党员","预备党员支委会研究审查","预备党员支部大会决议","预备党员上报上级党委","上级党委派人谈话","预备党员上级审批","预备党员支部大会宣布","编入党支部和党小组","入党宣誓","继续教育","继续考察","提出转正申请","预备党员转正所在党小组提出意见","预备党员转正上级党委审批与意见","党支部征求党员和群众的意见","预备党员转正支委会审查","预备党员转正支部大会讨论表决通过","转正前公示","预备党员转正报上级党委","预备党员转正上级党委审批与意见","预备党员转正谈话并宣布"}
For i As Integer = 1 To sre.Length
Dim sre1(i) As String
array.Copy(sre,sre1,i)
Output.Show( String.Join(",",sre1))
Next
-- 发布时间：2020/12/12 14:50:00
-- 回复：（逛逛）Dim sre() As String = {"接收入党申请...
逛逛老师 有没有办法实现：和一楼一样的效果呢？ 麻烦指导一下 谢谢
{“”}号 我总是无法直接标注
Dim sre() As String = {"接收入党申请书"}
Dim sre() As String = {"接收入党申请书","审看入党申请书"}
……
末尾字符不要，号
Dim sre() As String = {接收入党申请书,}
Dim sre() As String = {接收入党申请书,审看入党申请书,}
……
代码如下：
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次","培养教育第四次","半年考察第二次","入党积极分子所在党小组研究提出意见","支委会听取意见研究确定","列为发展对象前公示","发展对象上报备案材料","发展对象上级审查并提出意见","确定入党介绍人","政治审查","集中培训","预备党员支委会研究审查","上报预审材料","上级党委预审","填写入党志愿书","支部大会讨论接收预备党员","预备党员支委会研究审查","预备党员支部大会决议","预备党员上报上级党委","上级党委派人谈话","预备党员上级审批","预备党员支部大会宣布","编入党支部和党小组","入党宣誓","继续教育","继续考察","提出转正申请","预备党员转正所在党小组提出意见","预备党员转正上级党委审批与意见","党支部征求党员和群众的意见","预备党员转正支委会审查","预备党员转正支部大会讨论表决通过","转正前公示","预备党员转正报上级党委","预备党员转正上级党委审批与意见","预备党员转正谈话并宣布"}
For i As Integer = 1 To sre.Length
Dim sre1(i) As String
array.Copy(sre,sre1,i)
Output.Show( "Dim sre() As String = {" & String.Join(",",sre1) & "}")
Next
当前运行效果如下：
此主题相关图片如下：微信图片_20201212144621.png
-- 发布时间：2020/12/12 15:01:00
--
是要生成一系列数组使用？还是要生成一个字符串？
如果是前者，去掉Output.Show即可
-- 发布时间：2020/12/12 15:36:00
--
Output.Show("""" & String.Join(""",""",sre1).TrimEnd("""").TrimEnd(","))
输出和定义有啥关系？不明白
-- 发布时间：2020/12/13 0:37:00
-- 回复：（逛逛） Output.Show("""" &...
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次"}
For i As Integer = 1 To sre.Length
Dim sre1(i) As String
array.Co py(sre,sr e1,i)
Output.Show("Dim sre() As String = {" & """" & Str ing.Join(""",""",sre1).TrimEnd("""").TrimEnd(",") & "}")
output.Show("For Each s As Str ing In sre")
output.Show("Forms(" & "发展流程" & ").Co ntrol s(s).Image=zhuangtai1")
output.Show("Next")
output.Show(" ")
output.Show(" ")
Next
-- 发布时间：2020/12/13 0:51:00
-- 回复：（逛逛） Output.Show("""" &...
谢谢老师指导
-- 发布时间：2020/12/13 0:53:00
-- 回复：（有点蓝）是要生成一系列数组使用？还是要生成...
谢谢有点蓝老师 我是想实现如下：在你和逛逛老师的指导下 实现了
此主题相关图片如下：捕获.png