SPSS拆分字符串变量为2或3个新变量报错，求正确实现方法

• 第一段循环逻辑的核心错误是LOOP语法不符合SPSS规范：SPSS的数值循环语法为loop 变量 = 起始值 to 终止值 by 步长，你之前写的起始值调用了char.substr完全错误，导致循环无法初始化
• 第二段INDEX方法的错误点：
  • 前缀判断顺序错误：ADATE同样以A开头，先判断单字符A会导致ADATE前缀被错误截取为A，需要优先判断更长的前缀
  • 小数位提取逻辑错误：char.substr的起始位参数传入的是小数点的位置，会把小数点也纳入typeD的取值，应该从小数点后1位开始截取
  • 字符串引号不统一：SPSS语法要求字符串字面量统一使用双引号，你使用单引号包裹ADATE也会触发语法报错

* 第一步：声明三个新字符串变量
STRING typeA (a50) typeW (a50) typeD (a50).

* 第二步：提取类型标识typeA，优先匹配长前缀
DO IF CHAR.INDEX(PrintFormat, "ADATE") = 1.
    COMPUTE typeA = "ADATE".
ELSE IF CHAR.INDEX(PrintFormat, "A") = 1.
    COMPUTE typeA = "A".
ELSE IF CHAR.INDEX(PrintFormat, "F") = 1.
    COMPUTE typeA = "F".
END IF.

* 第三步：去掉前缀后提取宽度和小数位
COMPUTE #contentWithoutType = CHAR.SUBSTR(PrintFormat, CHAR.LENGTH(typeA)+1).
COMPUTE #dotPos = CHAR.INDEX(#contentWithoutType, ".").

* 无小数点的情况：所有剩余内容都是宽度
IF #dotPos = 0 typeW = #contentWithoutType.
* 有小数点的情况：小数点前是宽度，小数点后是小数位
IF #dotPos > 0 typeW = CHAR.SUBSTR(#contentWithoutType, 1, #dotPos-1).
IF #dotPos > 0 typeD = CHAR.SUBSTR(#contentWithoutType, #dotPos+1).

EXECUTE.

• 用CHAR.INDEX判断前缀时优先匹配更长的ADATE，避免短前缀抢占匹配
• 先通过CHAR.LENGTH拿到前缀长度，直接截取前缀后面的所有内容，避免用REPLACE可能出现的误替换问题
• 小数点判断逻辑做了分支处理，确保宽度和小数位的截取不会包含小数点符号
• 所有字符串处理都用SPSS官方推荐的CHAR.开头的函数，兼容多字节字符场景，比老式的INDEX、SUBSTR函数兼容性更好

内容的提问来源于stack exchange，提问作者BdR