Question

按键精灵怎么实现插入一个字到TXT第一行的指定字节处，求大婶帮忙

按键精灵里想实现组合一段代码结果如下，其中按键精灵是个变量
<a href="链接" target="_self" title="按键精灵"><img src="链接/7185358_1.png"/></a>
我把这段代码拆分成了3个部分
图片1.txt里的内容是 <a href="链接" target="_self" title="
图片1.txt里的内容是 "><img src="链接/7185358_1.png"/></a>
标题 = 按键精灵

我代码是这样写的
Text = Plugin.File.ReadFileEx("D:\网站\云梦微站\链接\自动发文章\配置文件\图片1.txt")
MyArray = Split(Text, "|")
图片1 = MyArray(Int((UBound(MyArray) * Rnd) + 0))

Text = Plugin.File.ReadFileEx("D:\网站\云梦微站\链接\自动发文章\配置文件\图片2.txt")
MyArray = Split(Text, "|")
图片2 = MyArray(Int((UBound(MyArray) * Rnd) + 0))

标题 = Plugin.File.ReadINI("Command", "valuser" & num, "D:\网站\云梦微站\链接\自动发文章\配置文件\标题.ini")

图片 = 图片1&标题&图片2
SayString 图片

确实可以进行输出 图片1&标题没有问题 问题在于 图片2.txt里是以这个符号开头的">输出后就变成 锘?><img src="链接/7185358_1.png"/></a>

想不通怎么解决 求大神帮下忙 卡在这里好长时间了 换个思路也可以 只要最终可以实现就可以

Answer 1

i = 0

Text = Plugin.File.ReadFileEx("C:\5556.txt")

MessageBox Text

dd = Split(text, "|")

Call Plugin.File.DeleteFile("C:\5556.txt")

Call Plugin.File.MoveFile(".\5556.txt", "C:\")

Call Plugin.File.WriteFileEx("C:\5556.txt", "是不是这样改？")

While dd(i) <> ""

    i = i + 1

    Call Plugin.File.WriteFileEx("C:\5556.txt", Chr(13)&dd(i))

Wend

//附件里面加入空白的文本文档

追问

换了个思路 问题解决了

Text = Plugin.File.ReadFileEx("D:\网站\图片代码.txt")
MyArray = Split(Text, "|")
图片代码 = MyArray(Int((UBound(MyArray) * Rnd) + 0))
图片= Left(图片代码,54)&标题& Mid(图片代码,55,len(图片代码)-2)

//把标题插入到图片代码的第54个字节后