[已解决]zpl宏字符串识别

adx_183

请问大佬们，ZPL宏命令中有识别字符串的命令吗？如A$="R1.txt"  B$="R1"，能有一个命令识别A$中是否含有B$？

最佳答案

月排行榜 / 总排行榜

RGX

2021-8-1 07:04

adx_183 发表于 2021-7-31 21:46
这个我试了，不行，它的功能说是判断A$ B$是否相等

不好意思，脑子不好搭错线了，请忽视
直接的函数没看到，只能随便写了点代码来实现，如果被包含，N - I + 1返回的就是B$在A$中的位置
希望这个能帮到你


A$ = "R1.TXT"
B$ = "R1"

N = SLEN( A$ )
M = SLEN( B$ )

FORMAT .0
FOR I, N, M, -1
  C$ = $RIGHTSTRING( A$, I )
  D$ = $LEFTSTRING( C$, M )
  IF( B$ $== D$ ) THEN PRINT "<", B$, "> is a substring of <", A$, " > start from character position ", N - I + 1
NEXT
FORMAT .4

跳转到最佳答案楼层

RGX

有啊
SCOM(A$, B$)

adx_183

RGX 发表于 2021-7-31 21:26
有啊
SCOM(A$, B$)

这个我试了，不行，它的功能说是判断A$ B$是否相等

RGX

adx_183 发表于 2021-7-31 21:46
这个我试了，不行，它的功能说是判断A$ B$是否相等

不好意思，脑子不好搭错线了，请忽视
直接的函数没看到，只能随便写了点代码来实现，如果被包含，N - I + 1返回的就是B$在A$中的位置
希望这个能帮到你


A$ = "R1.TXT"
B$ = "R1"

N = SLEN( A$ )
M = SLEN( B$ )

FORMAT .0
FOR I, N, M, -1
  C$ = $RIGHTSTRING( A$, I )
  D$ = $LEFTSTRING( C$, M )
  IF( B$ $== D$ ) THEN PRINT "<", B$, "> is a substring of <", A$, " > start from character position ", N - I + 1
NEXT
FORMAT .4

adx_183

RGX 发表于 2021-8-1 07:04
不好意思，脑子不好搭错线了，请忽视
直接的函数没看到，只能随便写了点代码来实现，如果被包含，N - I  ...

理解了，相当于对字符串切割后做比较，您写的从左边去字符正是我想要的，感谢