如何让按键精灵读取文本的内容后,依旧保持换行呢?

更新时间2018-04-19 16:08:59

按键精灵中 文本是这样的

1

22

333

4444

读取后也一样的排版怎么处理

11.txt是目标文档，路径和文件名自己改一下。新建文本文档.txt的是放在桌面的输出文档。

----------------------------------------------------------------------------------------------------------

Delay 100

//根据父窗口句柄(0)查找子窗口匹配类名("Notepad")或者匹配标题("新建文本文档.txt - 记事本"),返回找到匹配的句柄Hwnd

Hwnd = Plugin.Window.FindEx(0, 0, "Notepad", "新建文本文档.txt - 记事本")

iState = Plugin.Window.GetWindowState(Hwnd, 0)

If iState = True Then

    MessageBox "窗口存在，" &chr (10) &"点击关闭后继续执行"

Else

    MessageBox "窗口不存在，脚本停止运行"

    EndScript

End If

Delay 100

//下面这句是向目标文件("d:UserschenDesktop11.txt")读出文本内容到变量(Text)

Text = Plugin.File.ReadFileEx("d:UserschenDesktop11.txt")               //文档路径自己改

dim MyArray   

MyArray = Split(Text, "|")

If UBound(MyArray)>=0 Then

    i=0   

    For UBound(MyArray)

        //向后台窗口句柄(变量：Hwnd)发送一个文本消息(内容：Cstr(MyArray(i)))到客户区

        Call Plugin.Bkgnd.SendString(Hwnd,Cstr(MyArray(i)))

        Call Plugin.Bkgnd.SendString(Hwnd,Chr(10))

        i=i+1

        Delay 100

    Next  

End If  

-------------------------------------------------------------------------------------------------------------------

按tab键来进行换行

相关标签:按键精灵