取光标所在段文本，API操作可操作外部窗口

操作提示:双击编辑框中的文本段,取出光标所在段的文本内容

SendMessageA (h, 176, 取整数型指针 (p), 0)
i ＝ SendMessageA (h, 201, p, 0) ' //行索引
l1 ＝ SendMessageA (h, 193, SendMessageA (h, 187, i, 0), 0) ' 取出当前行长度
t ＝ 取空白文本 (l1 ＋ 20) ' 根据文本行长度设定
SendMessageA_文本 (h, #EM_GETLINE, i, t) ' 从第0行开始 EM_GETLINE=196 (0xC4) 取出当前行文本

l ＝ SendMessageA (h, 14, 0, 0) ' //取文本总长度
t1 ＝ 取空白文本 (l ＋ 1) ' //缓存空间
GetWindowText (h, t1, l) ' //取出全部内容

i ＝ 寻找文本 (t1, t, , 假) ' //取出此段文本的起始索引位置
i2 ＝ 寻找文本 (t1, #换行符, i, 假) ' //在文本起始位后面寻找换行符
.如果真 (i2 ＝ -1) ' //当后面没有换行符时,则是文本总长度
i2 ＝ l
.如果真结束
i1 ＝ 倒找文本 (取文本左边 (t1, i2 － 2), #换行符, , 假) ' //取出此换行符之前最近的一个换行符

返回 (取文本中间 (t1, i1 ＋ 2, i2 － i1 － 1)) ' //取出两个换行符之间的字符串,也就是光标所在段的文本内容