删除字符串VBScript中特定位置的数字

作者: 只怕再见是故人
发布时间: 2024-06-12 02:33:34 (1月前)

2 条回复

1#
回复此人
只怕再见是故人 | 2020-08-11 14-48

尝试Split对|，在适当的位置排空值，然后Join回来的一起|。 ``` Option Explicit Dim input Dim lines, ub, i, lineParts Dim output input = "CRS|R|S||3.0|25|W||U||||0||ECN|211|MACROECONOMIC PRINCIPLES" & vbCrLf & _ "CRS|R|S||3.0|25|F||U||||0||CIS|105|SURVEY COMPUTER INFO SYSTEMS" & vbCrLf & _ "CRS|R|S||3.0|25|A||U||||12||CSR|207|AUTOMOBILE POLICY ADJUSTMENT" lines = Split(input, vbCrLf) ub = UBound(lines) For i = 0 To ub lineParts = Split(lines(i), "|") lineParts(12) = "" lines(i) = Join(lineParts, "|") Next output = Join(lines, vbCrLf) ```

编辑

登录后才能参与评论