求最后数字+1 导出文本

聚友发发

         求大佬指点怎么循环，怎么加数

xiang316367725

支持开源。学习一下

钥匙key

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型
c	整数型
aa	文本型
n	整数型

c = 到整数 (编辑框3.内容)
计次循环首 (98, n)
a ＝ “SW” ＋ 文本_自动补零 (到文本 (n+c-1), 10) ＋ #换行符
aa ＝ 选择 (aa ＝ “”, a, aa ＋ a)
计次循环尾 ()
写到文件 (取特定目录 (3) ＋ “\test.txt”, 到字节集 (aa))

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型<br /> .局部变量 c, 整数型<br /> .局部变量 aa, 文本型<br /> .局部变量 n, 整数型<br /> c = 到整数(编辑框3.内容)<br /> .计次循环首 (98, n)<br />     a ＝ “SW” ＋ 文本_自动补零 (到文本 (n+c-1), 10) ＋ #换行符<br />     aa ＝ 选择 (aa ＝ “”, a, aa ＋ a)<br /> .计次循环尾 ()<br /> 写到文件 (取特定目录 (3) ＋ “\test.txt”, 到字节集 (aa))

在加一个自定义开始的吧。
其实也可以用变量循环首。懒得写了。。

Suky

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
a	文本型
aa	文本型
n	整数型

计次循环首 (98, n)
a ＝ “SW” ＋ 文本_自动补零 (到文本 (n), 10) ＋ #换行符
aa ＝ 选择 (aa ＝ “”, a, aa ＋ a)
计次循环尾 ()
写到文件 (取特定目录 (3) ＋ “\test.txt”, 到字节集 (aa))

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 a, 文本型<br /> .局部变量 aa, 文本型<br /> .局部变量 n, 整数型<br /> <br /> .计次循环首 (98, n)<br />     a ＝ “SW” ＋ 文本_自动补零 (到文本 (n), 10) ＋ #换行符<br />     aa ＝ 选择 (aa ＝ “”, a, aa ＋ a)<br /> .计次循环尾 ()<br /> 写到文件 (取特定目录 (3) ＋ “\test.txt”, 到字节集 (aa))

wjswzj0

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
str	文本型

计次循环首 (200, i)
str ＝ “SW” ＋ 文本_自动补零 (到文本 (i), 10)
调试输出 (str)
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 str, 文本型<br /> <br /> .计次循环首 (200, i)<br />     str ＝ “SW” ＋ 文本_自动补零 (到文本 (i), 10)<br />     调试输出 (str)<br /> .计次循环尾 ()

pipicool

[JavaScript] 纯文本查看 复制代码

.版本 2

.子程序 循环处理四位
.局部变量 个, 整数型
.局部变量 十, 整数型
.局部变量 百, 整数型
.局部变量 千, 整数型
.局部变量 万, 整数型
.局部变量 计时, 整数型
.局部变量 text, 文本型
.局部变量 str, 文本型
.局部变量 内存地址1, 整数型
.局部变量 内存地址2
.局部变量 i, 整数型
.局部变量 号码, 文本型, , "0"
.局部变量 str1, 文本型
.局部变量 字母, 文本型, , "0"
.局部变量 字母计次, 整数型

号码 ＝ 分割文本 (“0,1,2,3,4,5,6,7,8,9”, “,”, )
字母 ＝ 分割文本 (“A,B,C,D,E,F,G,H,J,K,L,M,N,P,Q,R,S,T,U,V,W,X,Y,Z”, “,”, )

str ＝ 取空白文本 (10 × 10 × 10 × 10 × 10 × 7)
内存地址1 ＝ lstrcpyn_文本 (str, str, 0)
计时 ＝ 取启动时间 ()
.计次循环首 (取数组成员数 (字母), 字母计次)
    .如果 (前字母.选中 ＝ 真)
        首字母.内容 ＝ 字母 [字母计次]

    .否则
        尾字母.内容 ＝ 字母 [字母计次]
    .如果结束
    .计次循环首 (10, 千)
        .计次循环首 (10, 百)
            .计次循环首 (10, 十)
                .计次循环首 (10, 个)
                    .如果真 (取到的文本 ＝ “尾字母”)
                        text ＝ 号码 [千] ＋ 号码 [百] ＋ 号码 [十] ＋ 号码 [个] ＋ 尾字母.内容 ＋ #换行符
                        .如果 (编辑框1.内容 ＝ “”)
                            预写入文本 ＝ 预写入文本 ＋ text
                        .否则
                            预写入文本 ＝ 预写入文本 ＋ text
                        .如果结束

                    .如果真结束
                    .如果真 (取到的文本 ＝ “首字母”)
                        text ＝ 首字母.内容 ＋ 号码 [千] ＋ 号码 [百] ＋ 号码 [十] ＋ 号码 [个] ＋ #换行符
                        .如果 (编辑框1.内容 ＝ “”)
                            预写入文本 ＝ 预写入文本 ＋ text
                        .否则
                            预写入文本 ＝ 预写入文本 ＋ text
                        .如果结束

                    .如果真结束
                    .如果真 (取到的文本 ＝ “字母第二位(无尾)”)
                        text ＝ 号码 [千] ＋ 首字母.内容 ＋ 号码 [百] ＋ 号码 [十] ＋ 号码 [个] ＋ #换行符
                        .如果 (编辑框1.内容 ＝ “”)
                            预写入文本 ＝ 预写入文本 ＋ text
                        .否则
                            预写入文本 ＝ 预写入文本 ＋ text
                        .如果结束


                    .如果真结束
                    .如果真 (取到的文本 ＝ “字母第三位(无尾)”)
                        text ＝ 号码 [千] ＋ 号码 [百] ＋ 首字母.内容 ＋ 号码 [十] ＋ 号码 [个] ＋ #换行符
                        .如果 (编辑框1.内容 ＝ “”)
                            预写入文本 ＝ 预写入文本 ＋ text
                        .否则
                            预写入文本 ＝ 预写入文本 ＋ text
                        .如果结束


                    .如果真结束
                    .如果真 (取到的文本 ＝ “字母第四位(无尾)”)
                        text ＝ 号码 [千] ＋ 号码 [百] ＋ 号码 [十] ＋ 首字母.内容 ＋ 号码 [个] ＋ #换行符
                        .如果 (编辑框1.内容 ＝ “”)
                            预写入文本 ＝ 预写入文本 ＋ text
                        .否则
                            预写入文本 ＝ 预写入文本 ＋ text
                        .如果结束


                    .如果真结束


                    ' text ＝ 号码 [千] ＋ 号码 [百] ＋ 号码 [十] ＋ 号码 [个] ＋ #换行符
                    内存地址2 ＝ lstrcpyn_文本 (text, text, 0)
                    ' copymem (内存地址1 ＋ i, 内存地址2, 6)
                    i ＝ i ＋ 6
                .计次循环尾 ()
            .计次循环尾 ()
        .计次循环尾 ()
    .计次循环尾 ()

.计次循环尾 ()

编辑框1.内容 ＝ 预写入文本
.如果真 (不清空.选中 ＝ 真)
    .如果 (不删除数据变量 ＝ “”)
        不删除数据变量 ＝ 预写入文本
    .否则

        不删除数据变量 ＝ 不删除数据变量 ＋ #换行符 ＋ 预写入文本
    .如果结束
    编辑框1.内容 ＝ 不删除数据变量
.如果真结束
' 标签1.标题 ＝ “易用时：” ＋ 到文本 (取启动时间 () － 计时) ＋ “毫秒”
.如果真 (不清空.选中 ≠ 真)
    .如果真 (取到的文本 ＝ “尾字母”)


        写到文件 (取运行目录 () ＋ “/” ＋ 车牌.内容 ＋ 取到的文本 ＋ 尾字母.内容 ＋ “.txt”, 到字节集 (预写入文本))

    .如果真结束
    .如果真 (取到的文本 ＝ “首字母”)
        写到文件 (取运行目录 () ＋ “/” ＋ 车牌.内容 ＋ 取到的文本 ＋ 首字母.内容 ＋ “.txt”, 到字节集 (预写入文本))
    .如果真结束
    .如果真 (取到的文本 ＝ “字母第二位(无尾)”)
        写到文件 (取运行目录 () ＋ “/” ＋ 车牌.内容 ＋ 取到的文本 ＋ 首字母.内容 ＋ “.txt”, 到字节集 (预写入文本))
    .如果真结束
    .如果真 (取到的文本 ＝ “字母第三位(无尾)”)
        写到文件 (取运行目录 () ＋ “/” ＋ 车牌.内容 ＋ 取到的文本 ＋ 首字母.内容 ＋ “.txt”, 到字节集 (预写入文本))
    .如果真结束
    .如果真 (取到的文本 ＝ “字母第四位(无尾)”)
        写到文件 (取运行目录 () ＋ “/” ＋ 车牌.内容 ＋ 取到的文本 ＋ 首字母.内容 ＋ “.txt”, 到字节集 (预写入文本))
    .如果真结束

之前写过，举一反三

pipicool

学习一下