按键精灵：调用TXT文本发布B2B产品信息内容

LeftClick 1
Delay 500
SayString "我公司专业供应"
Delay 500
SayString ""
Delay 500
//1.读取：地址
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-1江西.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//地区
SayString "地区"
//2.型号
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-2型号-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//3.地区
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-3关键词-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//4.读取：匹配语
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-4匹配语-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388

//后缀
SayString "，其广泛应用于"
Delay 388
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\细节\用途.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388

SayString "。"
Delay 388

KeyPress "Enter", 2
Delay 450

//内容正文
//一、企业简介
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\3-1屋面简介.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 350
SayString (Cstr(Var(行数)))
Delay 450
KeyPress "Enter", 2
Delay 450
//二、标题+句子
//1.随机读取TXT内容实现标题随机
SayString "我公司供应"
Delay 388
//读取：型号
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-2型号-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//读取：关键词
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-3关键词-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
//读取：匹配语
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\1-4匹配语-屋面.txt")'
TracePrint Text
Var = Split(Text, "|")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 300
SayString (Cstr(Var(行数)))
Delay 388
SayString "。"
Delay 388
KeyPress "Enter", 1
Delay 388

SayString "我@：专业制作屋顶、屋面、无梁拱。"
Delay 388
//2.调用并输入句子
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\3-2屋面句子.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 350
SayString (Cstr(Var(行数)))
Delay 450
KeyPress "Enter", 2
Delay 450
//三、标题+段落
//2.调用并输入段落
Text = Plugin.File.ReadFileEx("E:\7月份\调用TXT\3-3屋面段落.txt")
TracePrint Text
Var = Split(Text, "|||")
Var1 = UBound(Var)
TracePrint Var1
Randomize
行数 = Int((Var1 + 1) * Rnd)
TracePrint Var(行数)
Delay 350
SayString (Cstr(Var(行数)))
Delay 450

脚本使用“内容+提取本地磁盘中事先保存的TXT文档”的发布模式，因为本人自备TXT文档中字段有限，个别B2B网站发布35条信息就会体提示内容相似度过高。但实际上自备TXT文档字段过度，调用时反应慢影响效率，也没有办法。