关于文本替换

wzj2015

R2301~R2304,R2407,R2425~R2426,R2502,R2509~R2510,R2526,R3101,R3108~R3109,R3114~R3115,R3120,R3130,R3134~R3135,R3138~R3139,R3302

怎么把R2301~R2304 替换成R2301，R2302，R2303，R2304  有~ 都要替换 ，替换后都要显示出来，读出个数
手动太累，还有很多这样的，自己写的有问题
最好不要模块，能静态编译
如果可以可以再加分

大司命

  

变量名	类 型	静态	数组	备 注
Str	文本型
Array	文本型		0
StrScr	文本型
ArrayScr	文本型		0
n	整数型
i	整数型

Str ＝ “R2301~R2304,R2407,R2425~R2426,R2502,R2509~R2510,R2526,R3101,R3108~R3109,R3114~R3115,R3120,R3130,R3134~R3135,R3138~R3139,R3302”
Array ＝ 分割文本 (Str, “,”, )
计次循环首 (取数组成员数 (Array), i)
如果 (寻找文本 (Array [ i ], “~”, , 假) ≠ -1)
ArrayScr ＝ 分割文本 (Array [ i ], “~”, )
' StrScr ＝ StrScr ＋ ArrayScr [1] ＋ “,”
n ＝ 到整数 (子文本替换 (ArrayScr [1], “R”, , , , 真))
变量循环首 (n, 到整数 (子文本替换 (ArrayScr [2], “R”, , , , 真)), 1, i)
StrScr ＝ StrScr ＋ “R” ＋ 到文本 (i) ＋ “,”
变量循环尾 ()
StrScr ＝ StrScr ＋ Array [ i ] ＋ “,”

计次循环尾 ()
调试输出 (取文本左边 (StrScr, 取文本长度 (StrScr) － 1))

.局部变量 Str, 文本型<br /> .局部变量 Array, 文本型, , "0"<br /> .局部变量 StrScr, 文本型<br /> .局部变量 ArrayScr, 文本型, , "0"<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> Str ＝ “R2301~R2304,R2407,R2425~R2426,R2502,R2509~R2510,R2526,R3101,R3108~R3109,R3114~R3115,R3120,R3130,R3134~R3135,R3138~R3139,R3302”<br /> Array ＝ 分割文本 (Str, “,”, )<br /> .计次循环首 (取数组成员数 (Array), i)<br />     .如果 (寻找文本 (Array [ i ], “~”, , 假) ≠ -1)<br />         ArrayScr ＝ 分割文本 (Array [ i ], “~”, )<br />         ' StrScr ＝ StrScr ＋ ArrayScr [1] ＋ “,”<br />         n ＝ 到整数 (子文本替换 (ArrayScr [1], “R”, , , , 真))<br />         .变量循环首 (n, 到整数 (子文本替换 (ArrayScr [2], “R”, , , , 真)), 1, i)<br />             StrScr ＝ StrScr ＋ “R” ＋ 到文本 (i) ＋ “,”<br />         .变量循环尾 ()<br />     .否则<br />         StrScr ＝ StrScr ＋ Array [ i ] ＋ “,”<br />     .如果结束<br /> .计次循环尾 ()<br /> 调试输出 (取文本左边 (StrScr, 取文本长度 (StrScr) － 1))

寒潮

  

变量名	类 型	静态	数组	备 注
局_文本	文本型

局_文本 ＝ “R2301~R2304,R2407,R2425~R2426,R2502,R2509~R2510,R2526,R3101,R3108~R3109,R3114~R3115,R3120,R3130,R3134~R3135,R3138~R3139,R3302”
局_文本 ＝ 子文本替换 (局_文本, “~”, “,”, , , 真)
调试输出 (局_文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_文本, 文本型<br /> <br /> 局_文本 ＝ “R2301~R2304,R2407,R2425~R2426,R2502,R2509~R2510,R2526,R3101,R3108~R3109,R3114~R3115,R3120,R3130,R3134~R3135,R3138~R3139,R3302”<br /> 局_文本 ＝ 子文本替换 (局_文本, “~”, “,”, , , 真)<br /> 调试输出 (局_文本)

黑子哟

例子，11111111111111111111111

神马不是黑马

最好不要模块，能静态编译

大侠范儿

应该是行，排列出数字组合，在用用分割文本的方式，倒出来重新排列