以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书",……}怎么逐一递增呢? (http://foxtable.com/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 当前运行效果如下: |
-- 作者:有点蓝 -- 发布时间: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 -- 回复:(有点蓝)是要生成一系列数组使用?还是要生成... 谢谢有点蓝老师 我是想实现如下:在你和逛逛老师的指导下 实现了 |