请教 易语言 批量取每行中间的文本。源码。。

Question

由于太多。只列举几个数据。
请教高手发下源码。小弟学习学习！ 感谢！
文本文件 123.txt 内容：
辽宁省大连市联通 ☆218.61.35.164☆1111☆2341313☆
辽宁省沈阳市联通 ☆218.25.54.214☆1111☆2341313☆
吉林省长春市联通 ☆58.245.27.175☆1111☆2341313☆
吉林省长春市长春税务学院☆125.223.213.16☆1111☆2341313☆
吉林省延吉市联通MB☆202.111.173.42☆1111☆2341313☆
黑龙江省牡丹江市联通☆221.206.36.251☆1111☆2341313☆
黑龙江省牡丹江市联通☆221.206.226.44☆1111☆2341313☆
要取 每行中间的IP 自动保存为 文本 456.txt 内容：
218.61.35.164
218.25.54.214
58.245.27.175
125.223.213.16
202.111.173.42
221.206.36.251
221.206.226.44

Answer 1

.版本 2
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 文件号, 整数型
.局部变量 临时文本, 文本型
文件号 ＝ 打开文件 (“123.txt”, , )
移到文件首 (文件号)
.循环判断首 ()
临时文本 ＝ 临时文本 ＋ 取回文本 (读入一行 (文件号), “☆”, “☆”) ＋ #换行符
.循环判断尾 (取反 (是否在文件尾 (文件号, )))
输出调试文本 (临时文本)
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 取回文本, 文本型
.参数 被搜寻的文本, 文本型
.参数 开始标记, 文本型
.参数 结束标记, 文本型
.参数 包含标记文本, 逻辑型, 可空, 默认为真
.局部变量 位置1, 整数型
.局部变量 位置2, 整数型
.局部变量 长度, 整数型
.局部变量 返回文本, 文本型
长度 ＝ 取文本长度 (开始标记)
.如果真 (是否为空 (包含标记文本))
包含标记文本 ＝ 真
.如果真结束
位置1 ＝ 寻找文本 (被搜寻的文本, 开始标记, , 假)
位置2 ＝ 寻找文本 (被搜寻的文本, 结束标记, 位置1 ＋ 长度, 假)
.如果 (包含标记文本 ＝ 真)
返回文本 ＝ 取文本中间 (被搜寻的文本, 位置1 ＋ 长度, 位置2 － 位置1 － 长度)
.否则
返回文本 ＝ 取文本中间 (被搜寻的文本, 位置1, 位置2 － 位置1)
.如果结束
返回 (返回文本)

'----------------------------------
'把上面的内容复制到E程序里,就可以看到结果了
'PS:记得替换123.txt的目录