58同城微聊房源自动打招呼引流工具

.如果真 (信息框 (“是否导入数据，将会覆盖”, #是否钮, , ) ＝ #是钮)
超级列表框3.全部删除 ()
文本 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\写出.TXT”))
' 信息框 (文本, 0, , )
文本X ＝ 分割文本 (文本, #换行符, )
.计次循环首 (取数组成员数 (文本X), I)
索引 ＝ 超级列表框3.插入表项 (, , , , , )
' 超级列表框3.置标题 (索引, 0, 到文本 (I))
超级列表框3.置标题 (索引, 0, 到文本 (I))
超级列表框3.置标题 (索引, 1, 文本X [I])
超级列表框3.置标题 (索引, 2, “等待使用”)
.计次循环尾 ()