求多行文本的输入方法

youaremysky

请问如果我想要让内容是下面的皮卡丘,我除了用chr(10)这个方法,有没有直接写出来的办法啊?

[按键精灵] 纯文本查看 复制代码

内容="第一排" &chr(10)& "第二排" &chr(10)& "第三排"
MessageBox 内容
　 へ　　　　　／|
　　/＼7　　∠＿/
　 /　│　　 ／　／
　│　Z ＿,＜　／　　 /`ヽ
　│　　　　　ヽ　　 /　　〉
　 Y　　　　　`　 /　　/
　?●　?　●　　??〈　　/
　()　 へ　　　　|　＼〈
　　>? ?_　 ィ　 │ ／／
　 / へ　　 /　?＜| ＼＼
　 ヽ_?　　(_／　 │／／
　　7　　　　　　　|／
　　＞―r￣￣`?―＿

冒泡的小猫

你这个怎么看也不像是皮卡丘啊?

youaremysky

冒泡的小猫 发表于 2022-3-24 16:51
你这个怎么看也不像是皮卡丘啊?

我只是打个比方,我想写特别多行的一个字符串,没办法全部用chr(10)转行,想知道按键的语法里有没有办法直接写出来  类似  
内容=
"第一排
第二排
第三排
第四排"
这种写法

紫猫

youaremysky 发表于 2022-3-24 19:21
我只是打个比方,我想写特别多行的一个字符串,没办法全部用chr(10)转行,想知道按键的语法里有没有办法直接 ...

一般不推荐这种写法, 因为容易弄晕, 如果你能理解的话, 请自己模仿

[按键精灵] 纯文本查看 复制代码

a = "你好" & _
       "紫猫" & _
       "老师"

其实我们更加推荐的一种方法是提前把内容写在一个文本文件里, 然后直接通过File插件读取保存到变量中

youaremysky

紫猫 发表于 2022-3-25 10:47
一般不推荐这种写法, 因为容易弄晕, 如果你能理解的话, 请自己模仿

[按键精灵] 纯文本查看 复制代码

a = "你好" ...[/quote]

[mw_shl_code=qscript,true]/*
　 へ　　　　　／|
　　/＼7　　∠＿/
　 /　│　　 ／　／
　│　Z ＿,＜　／　　 /`ヽ
　│　　　　　ヽ　　 /　　〉
　 Y　　　　　`　 /　　/
　?●　?　●　　??〈　　/
　()　 へ　　　　|　＼〈
　　>? ?_　 ィ　 │ ／／
　 / へ　　 /　?＜| ＼＼
　 ヽ_?　　(_／　 │／／
　　7　　　　　　　|／
　　＞―r￣￣`?―＿

把上面的图复制到剪切版 
*/

Clipboard = Plugin.Sys.GetCLB()
Call Plugin.File.WriteFileEx("C:\新建文本文档 (5).txt", Clipboard)
Text = Plugin.File.ReadFileEx("C:\新建文本文档 (5).txt")
MsgBox text

不行,打开文本文档看还是个比卡丘,弹窗出来就不是了

youaremysky

解决了,用懒人插件逐行读取文本,然后组合输出

[按键精灵] 纯文本查看 复制代码

text = Plugin.lxj_Plug.lxj_Txtline("C:\新建文本文档 (5).txt")
a=text(1)
For i=1 to UBound(text)
a = a & chr(10) & text(i+1)
next
msgbox a

紫猫

youaremysky 发表于 2022-3-25 19:28
解决了,用懒人插件逐行读取文本,然后组合输出
[mw_shl_code=qscript,true]
text = Plugin.lxj_Plug.lxj_Txt ...

为啥要分行，而不一次全部读取呢?

youaremysky

紫猫 发表于 2022-3-26 10:35
为啥要分行，而不一次全部读取呢?

可能是比卡丘里面有"|",整段读取出来就乱了,弹窗就不是比卡丘了

紫猫

youaremysky 发表于 2022-3-26 13:57
可能是比卡丘里面有"|",整段读取出来就乱了,弹窗就不是比卡丘了

那你全部读取后，用Replace函数把|替换成回车换行符常量vbcrlf就解决了呀，代码可以少写很多