火箭宇宙字符串删除一个字符问题

Question

这个让我想知道我是否可能缺少功能或其他东西。

有一个字符串，例如TZ118-AH01

我只是想删除第二个字符，想知道是否有一种简单的方法可以做到这一点，不能使用 CONVERT，因为第二个字符可能在字符串中重复。

目前我认为我必须这样做

VALUE = STRING[1,1]:STRING[3,LEN(STRING)-2]

这似乎有点麻烦。

任何人有一个漂亮的工作？

Answer 1

VALUE = STRING[1,1]:STRING[LEN(STRING)-2] 

如果您确定长度不会小于 2，并且如果出于某种原因您不介意停止整个调用堆栈，则在语法上将是相同的。

如果第一个和第二个字符是已知的商品，您可以使用字段并将第四个变量中的字段计数增加到 1000 之类的高值，但这很笨拙，并且依赖于第一个和第二个字符不相同。

最好的方法是连接一个新的字符串迭代遍历字符数组并跳过第二次迭代的函数或子例程。

SUBROUTINE Remove2ndChar(StringOut,StringIn)
StringOut=""
CC=LEN(StringIn)
FOR C=1 TO CC
   If C NE 2 THEN 
      StringOut:=StringIn[C,1]
   END
NEXT C
RETURN

这不一定是您要寻找的，但它可能会更安全。

祝你好运。