取编辑框内容

3218181

按钮1被点击后  如果编辑框1.内容 是  123  那么就调试输出313233  如果是999 那么就调试输出393939  也就是在编辑框1.内容的数字前边都加一个3
注意实际操作中编辑框的数字是一直在变动的 所以要实时的输出

林中道士

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
上次内容	文本型  ' 用于内容比对

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

编辑框1.输入方式 ＝ 3  ' 限制数字输入
时钟1.时钟周期 ＝ 200  ' 设置200毫秒检测周期

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

.局部变量 当前内容, 文本型
当前内容 ＝ 删首尾空 (编辑框1.内容)

如果真 (当前内容 ≠ 上次内容)
处理内容 ()
上次内容 ＝ 当前内容

子程序名	返回值类型	公开	备 注
处理内容

变量名	类 型	静态	数组	备 注
原始内容	文本型
转换结果	文本型
i	整数型

原始内容 ＝ 删全部空 (编辑框1.content)  ' 去空格处理
转换结果 ＝ ""
如果真 (原始内容 ＝ "")
调试输出 ("输入内容为空")
返回

计次循环首 (取文本长度 (原始内容), i)
转换结果 ＝ 转换结果 ＋ "3" ＋ 取文本中间 (原始内容, i, 1)
计次循环尾 ()
调试输出 ("转换结果：", 转换结果)
编辑框2.内容 ＝ 转换结果  ' 添加结果展示框

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 上次内容, 文本型  ' 用于内容比对<br /> <br /> .子程序 __启动窗口_创建完毕<br />     编辑框1.输入方式 ＝ 3  ' 限制数字输入<br />     时钟1.时钟周期 ＝ 200  ' 设置200毫秒检测周期<br /> <br /> .子程序 _时钟1_周期事件<br />     .局部变量 当前内容, 文本型<br />     当前内容 ＝ 删首尾空 (编辑框1.内容)<br />     <br />     .如果真 (当前内容 ≠ 上次内容)<br />         处理内容 ()<br />         上次内容 ＝ 当前内容<br />     .如果真结束<br /> <br /> .子程序 处理内容<br /> .局部变量 原始内容, 文本型<br /> .局部变量 转换结果, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 原始内容 ＝ 删全部空 (编辑框1.content)  ' 去空格处理<br /> 转换结果 ＝ ""<br /> <br /> .如果真 (原始内容 ＝ "")<br />     调试输出 ("输入内容为空")<br />     返回<br /> .如果真结束<br /> <br /> .计次循环首 (取文本长度 (原始内容), i)<br />     转换结果 ＝ 转换结果 ＋ "3" ＋ 取文本中间 (原始内容, i, 1)<br /> .计次循环尾 ()<br /> <br /> 调试输出 ("转换结果：", 转换结果)<br /> 编辑框2.内容 ＝ 转换结果  ' 添加结果展示框

是可可吖

  

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

变量名	类 型	静态	数组	备 注
文本组	文本型		0
i	整数型
内容	文本型

文本_逐字分割 (编辑框1.内容, 文本组)
编辑框1.内容 ＝ “”
计次循环首 (取数组成员数 (文本组), i)
内容 ＝ 到文本 (3) ＋ 文本组 [i]
编辑框1.加入文本 (内容)
计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 内容, 文本型<br /> <br /> 文本_逐字分割 (编辑框1.内容, 文本组)<br /> 编辑框1.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (文本组), i)<br />     内容 ＝ 到文本 (3) ＋ 文本组 <i><br />     编辑框1.加入文本 (内容)<br /> .计次循环尾 ()

kel

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

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 s, 文本型, , "2"
.局部变量 l, 整数型
.局部变量 i, 整数型

s [1] ＝ 编辑框1.内容
l ＝ 取文本长度 (s [1])
.计次循环首 (l, i)
    s [2] ＝ s [2] ＋ “3” ＋ 取文本中间 (s [1], i, 1)
.计次循环尾 ()
调试输出 (s [2])

是可可吖

chenboss

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

_按钮1_被单击 ()

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

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

计次循环首 (取文本长度 (编辑框1.内容), i)
wb ＝ wb ＋ “3” ＋ 取文本中间 (编辑框1.内容, i, 1)
计次循环尾 ()
调试输出 (wb)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> _按钮1_被单击 ()<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 wb, 文本型<br /> <br /> .计次循环首 (取文本长度 (编辑框1.内容), i)<br />     wb ＝ wb ＋ “3” ＋ 取文本中间 (编辑框1.内容, i, 1)<br /> .计次循环尾 ()<br /> 调试输出 (wb)

黑咖啡

  

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

编辑框1.内容 ＝ 文本_取随机字符 (3, 1)

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

变量名	类 型	静态	数组	备 注
i	整数型
文本a	快速文本对象

判断 (编辑框1.内容 ≠ “”)
调试输出 (编辑框1.内容)
文本a.添加 (编辑框1.内容)
计次循环首 (文本a.取长度 (), i)
文本a.插入 (i × 2 － 1, “3”)
计次循环尾 ()
调试输出 (文本a.取文本 (, ))

i支持库列表	支持库注释
commobj	通用对象支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 commobj<br /> .支持库 spec<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 编辑框1.内容 ＝ 文本_取随机字符 (3, 1)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 文本a, 快速文本对象<br /> <br /> .判断开始 (编辑框1.内容 ≠ “”)<br />     调试输出 (编辑框1.内容)<br />     文本a.添加 (编辑框1.内容)<br />     .计次循环首 (文本a.取长度 (), i)<br />         文本a.插入 (i × 2 － 1, “3”)<br />     .计次循环尾 ()<br />     调试输出 (文本a.取文本 (, ))<br /> .默认<br /> <br /> .判断结束

qq977352880

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
ls	文本型
lsarr	文本型		0
i	整数型
ls2	文本型

ls ＝ 编辑框1.内容
文本_逐字分割 (ls, lsarr)
调试输出 (lsarr)
编辑框1.内容 ＝ “”
计次循环首 (取数组成员数 (lsarr), i)
ls2 ＝ 到文本 (8) ＋ lsarr [i]
编辑框1.加入文本 (ls2)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 ls, 文本型<br /> .局部变量 lsarr, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 ls2, 文本型<br /> <br /> ls ＝ 编辑框1.内容<br /> 文本_逐字分割 (ls, lsarr)<br /> 调试输出 (lsarr)<br /> 编辑框1.内容 ＝ “”<br /> .计次循环首 (取数组成员数 (lsarr), i)<br /> <br />     ls2 ＝ 到文本 (8) ＋ lsarr <i><br />     编辑框1.加入文本 (ls2)<br /> <br /> .计次循环尾 ()

林中道士

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 上次内容, 文本型  ' 用于内容比对

.子程序 __启动窗口_创建完毕
    编辑框1.输入方式 ＝ 3  ' 限制数字输入
    时钟1.时钟周期 ＝ 200  ' 设置200毫秒检测周期

.子程序 _时钟1_周期事件
    .局部变量 当前内容, 文本型
    当前内容 ＝ 删首尾空 (编辑框1.内容)

    .如果真 (当前内容 ≠ 上次内容)
        处理内容 ()
        上次内容 ＝ 当前内容
    .如果真结束

.子程序 处理内容
.局部变量 原始内容, 文本型
.局部变量 转换结果, 文本型
.局部变量 i, 整数型

原始内容 ＝ 删全部空 (编辑框1.content)  ' 去空格处理
转换结果 ＝ ""

.如果真 (原始内容 ＝ "")
    调试输出 ("输入内容为空")
    返回
.如果真结束

.计次循环首 (取文本长度 (原始内容), i)
    转换结果 ＝ 转换结果 ＋ "3" ＋ 取文本中间 (原始内容, i, 1)
.计次循环尾 ()

调试输出 ("转换结果：", 转换结果)
编辑框2.内容 ＝ 转换结果  ' 添加结果展示框

编程阿狸

顺路来看看，感谢分享。