求一个代码：在文本里面的各种符号的地方换行

达人牛牛

求一个代码：在文本里面的各种符号的地方换行
因为有一个文本，超大的，里面有很多文字和各种符号：▅ ▉ ◆ ◣ □  之类的反正很多符号
要求：在这些符号换行，也就是一行句，只有一个符号和其前面的文字
弄了几个小时，没弄出个所以然，求教！

exit11

[e]
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 a, 文本型
a ＝ “12323 ▉213213 ◆123123 ◣213213”
a ＝ 子文本替换 (a, “▉”, “▉” ＋ #换行符, , , 真)
a ＝ 子文本替换 (a, “◆”, “◆” ＋ #换行符, , , 真)
a ＝ 子文本替换 (a, “◣”, “◣” ＋ #换行符, , , 真)
调试输出 (a)

[/e]

貌似没有更好的方法

达人牛牛

谢谢，还有一点：里面的内容基本上每行都不一样的，那个123123用什么来代替啊？

exit11

达人牛牛 发表于 2011-7-11 16:27
谢谢，还有一点：里面的内容基本上每行都不一样的，那个123123用什么来代替啊？

你只需要用子文本替换()，将符号替换为符号+换行符就行了
123123就是你不需要替换的文字，

达人牛牛

测试成功了，谢谢，那个符号有上百个，有没有一个代码，可以概括所以符号的？

千年

就是你需要的更换的文本，你可以弄成编辑框，
例如 编辑框1.内容=""
这个a就是等于 编辑框1.内容。
编辑框1.内容 ＝ “12323 ▉213213 ◆123123 ◣213213”  
编辑框1.内容 ＝ 子文本替换 编辑框1.内容, “▉”, “▉” ＋ #换行符, , , 真)  
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “◆”, “◆” ＋ #换行符, , , 真)  
编辑框1.内容 ＝ 子文本替换 (编辑框1.内容, “◣”, “◣” ＋ #换行符, , , 真)  


或者你在上面  a=编辑框1.内容，也行。

[e].版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 a, 文本型
a ＝ 编辑框1.内容
a ＝ 子文本替换 (a, “▉”, “▉” ＋ #换行符, , , 真)
a ＝ 子文本替换 (a, “◆”, “◆” ＋ #换行符, , , 真)
a ＝ 子文本替换 (a, “◣”, “◣” ＋ #换行符, , , 真)
调试输出 (a)

[/e]

达人牛牛

是的，我就是按上面的来操作的，现在还有一个是符号太多了，有没有办法一次不用手动一个一个加上去？

exit11

[e]
.版本 2
.支持库 spec
.子程序 __启动窗口_创建完毕
.局部变量 a, 文本型
.局部变量 b, 文本型
.局部变量 计次, 整数型
.局部变量 临时文本, 文本型
.局部变量 x, 整数型
a ＝ “地方官 ▉2福分工会◆123123 ◣213213”
b ＝ “▉◆◣”
b ＝ 到全角 (“▉◆◣”)
计次 ＝ 取文本长度 (b)
.变量循环首 (1, 计次, 2, x)
    临时文本 ＝ 取文本中间 (b, x, 2)
    a ＝ 子文本替换 (a, 临时文本, 临时文本 ＋ #换行符, , , 真)
.变量循环尾 ()
调试输出 (a)

[/e]