无限读取文本关键字

nmglhsky3

.版本 2
.支持库 eDB
.支持库 spec

数据库连接1.连接SQLServer (“127.0.0.1”, “exam33”, “sa”, “sa”)
记录集1.置连接 (数据库连接1)

局_读入 ＝ 编码_Utf8到Ansi (读入文件 (取运行目录 () ＋ “\文本.txt”))

文本位置1 ＝ 寻找文本 (局_读入, “切换阶段”, 位置1, 假)  ' 寻找关键内容

时间 ＝ 取文本中间 (局_读入, 文本位置1 － 43, 18)  ' 时间位置

sql ＝ “INSERT into SystemIni (shijian,note) VALUES ('” ＋ 时间 ＋ “',取文本长度 (“切换阶段”)) ＋ “')”
记录集1.打开 (sql, #SQL语句, )


位置1 ＝ 文本位置1 ＋ 10  ' 开始寻找第二次
文本位置2 ＝ 寻找文本 (局_读入, “切换阶段：1”, 位置1, 假)
sql ＝ “INSERT into SystemIni (shijian,note) VALUES ('” ＋ 取文本中间 (局_读入, 文本位置2 － 43, 18) ＋ “','” ＋ 取文本中间 (局_读入, 文本位置2, 取文本长度 (“切换阶段”)) ＋ “')”

记录集1.打开 (sql, #SQL语句, )
调试输出 (sql)

位置1 ＝ 文本位置2 ＋ 10  ' 开始寻找第三次
文本位置3 ＝ 寻找文本 (局_读入, “切换阶段：1”, 位置1, 假)

sql ＝ “INSERT into SystemIni (shijian,note) VALUES ('” ＋ 取文本中间 (局_读入, 文本位置3 － 43, 18) ＋ “','” ＋ 取文本中间 (局_读入, 文本位置3, 取文本长度 (“切换阶段”)) ＋ “')”

记录集1.打开 (sql, #SQL语句, )
调试输出 (sql)


因为文本里面有很多"切换阶段" 而且有很多新的数据也会自动加入文本  这样找得写很多代码   能不能简化点一直找  一直写入数据库，直到程序关闭为止，  还有就是加个 写入成功了 就不再写入这条信息了！