取文本

a8017343

取当前行光标左边的文本

  

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

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

超级编辑框1.内容 ＝ “取当前行” ＋ #换行符 ＋ “qwe光标左边的文本” ＋ #换行符 ＋ “测试”

子程序名	返回值类型	公开	备 注
_超级编辑框1_内容被改变

' 取当前行 光标左边的文本

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 超级编辑框1.内容 ＝ “取当前行” ＋ #换行符 ＋ “qwe光标左边的文本” ＋ #换行符 ＋ “测试”<br /> <br /> <br /> .子程序 _超级编辑框1_内容被改变<br /> <br /> ' 取当前行 光标左边的文本

长安往事

  

子程序名	返回值类型	公开	备 注
_编辑框1_内容被改变

变量名	类 型	静态	数组	备 注
行号	整数型
列号	整数型
文本数组	文本型		0
行文字	文本型		0
i	整数型
取出文本	文本型

外部编辑框_取光标所在行和列号 (编辑框1.取窗口句柄 (), 行号, 列号)
调试输出 (行号, 列号)
文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )
文本_逐字分割 (文本数组 [行号], 行文字)
变量循环首 (1, 列号 － 1, 1, i)
取出文本 ＝ 取出文本 ＋ 行文字 [i]
变量循环尾 ()
调试输出 (取出文本)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _编辑框1_内容被改变<br /> .局部变量 行号, 整数型<br /> .局部变量 列号, 整数型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 行文字, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 取出文本, 文本型<br /> <br /> 外部编辑框_取光标所在行和列号 (编辑框1.取窗口句柄 (), 行号, 列号)<br /> 调试输出 (行号, 列号)<br /> 文本数组 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> <br /> 文本_逐字分割 (文本数组 [行号], 行文字)<br /> .变量循环首 (1, 列号 － 1, 1, i)<br />     取出文本 ＝ 取出文本 ＋ 行文字 <i><br /> .变量循环尾 ()<br /> <br /> 调试输出 (取出文本)

看看是这个效果吧