精易论坛

标题: 无限读取文本关键字 [打印本页]

作者: nmglhsky3 时间: 2025-5-1 11:13
标题: 无限读取文本关键字
.版本 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)

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

文本.txt

955 Bytes, 下载次数: 2

欢迎光临精易论坛 (https://125.confly.eu.org/)