第1个回答 2012-04-04
.版本 2
.程序集 窗口程序集1
.子程序 _读取文本_按钮_被单击
.局部变量 文本前面, 整数型
.局部变量 文本中间, 文本型
.局部变量 文本后面, 整数型
文本前面 = 寻找文本 (被查找文本_编辑框.内容, “<”, , 假) + 1
文本后面 = 寻找文本 (被查找文本_编辑框.内容, “>”, , 假)
文本中间 = 取文本中间 (被查找文本_编辑框.内容, 文本前面, 文本后面 - 文本前面)
.如果 (文本中间 ≠ “”)
信息框 (“文本已找到:” + 文本中间, 0, )
.否则
信息框 (“文本未找到:”, 0, )
第2个回答 2012-04-05
i = 寻找文本 (源内容, “<”, , 假) + 1
信息框 (取文本中间 (源内容, i, 寻找文本 (源内容, “>”, , 假) - i))