AA='040506'
最后实现第一个字符串组合，输出：04#05#06#04+05#04+06#05+06#04+05+06
输出第二个:04*05#04*06#05*06#04*05*06
记得使用For  ENdfor是不是可以容易实现？

是分别选1、2、3的组合

ksxkkmzhdm='040506'
kmyq_OR=''
kmyq_AND=''
For IIkms=1 To 3
    kmyq_OR=kmyq_OR+Substr(ksxkkmzhdm,(IIKMS-1)*2+1,2)+'+'
    kmyq_AND=kmyq_AND+Substr(ksxkkmzhdm,(IIKMS-1)*2+1,2)+'*'
        For IIkmss=IIkms+1 To 3
        kmyq_OR=kmyq_OR+Substr(ksxkkmzhdm,(IIKMSS-1)*2+1,2)+'#'
        kmyq_and=kmyq_and+Substr(ksxkkmzhdm,(IIKMSS-1)*2+1,2)+'#'
    Endfor
Endfor
Messagebox(kmyq_OR,kmyq_and)

问题在哪？

硬来的
s='040506'
a = SUBSTR(s,1,2)
b = SUBSTR(s,3,2)
c = SUBSTR(s,5,2)
? a+"#"+b+"#"+c+"#"+a+"+"+b+"#"+a+"+"+c+"#"+b+"+"+c+"#"+a+"+"+b+"+"+c

[此贴子已经被作者于2021-6-23 22:10编辑过]

CLEAR
AA = '040506'
LOCAL la[3]
FOR lnj = 1 TO 3
    la[lnj] = SUBSTR(aa, lnj*2 - 1, 2)
ENDFOR
STORE "" TO c1, c2, c3, c4, c5
FOR lnj = 1 TO 3
    IF BETWEEN(lnj, 1, 3)
        c1 = c1 + "#" + la[lnj]
        c5 = c5 + "+" + la[lnj]
    ENDIF 
    IF INLIST(lnj, 1, 2)
        c2 = c2 + "+" + la[lnj]
    ENDIF 
    IF INLIST(lnj, 1, 3)
        c3 = c3 + "+" + la[lnj]
    ENDIF 
    IF INLIST(lnj, 2, 3)
        c4 = c4 + "+" + la[lnj]
    ENDIF    
ENDFOR

? "第一个字符串组合＝" + SUBSTR(c1, 2) + "#" + SUBSTR(c2, 2) + "#" + SUBSTR(c3, 2) + "#" + SUBSTR(c4, 2) + "#" + SUBSTR(c5, 2)

STORE "" TO c1, c2, c3, c4
FOR lnj = 1 TO 3
    IF BETWEEN(lnj, 1, 3)
        c4 = c4 + "*" + la[lnj]
    ENDIF 
    IF INLIST(lnj, 1, 2)
        c1 = c1 + "*" + la[lnj]
    ENDIF 
    IF INLIST(lnj, 1, 3)
        c2 = c2 + "*" + la[lnj]
    ENDIF 
    IF INLIST(lnj, 2, 3)
        c3 = c3 + "*" + la[lnj]
    ENDIF    
ENDFOR
? "第二个字符串组合＝" + SUBSTR(c1, 2) + "#" + SUBSTR(c2, 2) + "#" + SUBSTR(c3, 2) + "#" + SUBSTR(c4, 2)

收到的鲜花

• ytahdou 于 2021-06-24 06:40 送鲜花  1朵  

感谢，但都不是很合适。

如何不合适？
与你的结果不符？

他好像要排列组合