文本到Html列表(Text to Html list)

 如果“ - ”是输入数据的一部分，您可以使用RegExp替换，如： 
 
>> Set r1 = New RegExp
>> r1.Pattern = "^[^-]+(-[^-]+-).*"
>> WScript.Echo r1.Replace("L2-A-1234", "$1")
>>
-A-
 
 要么： 
 
>> Set r1 = New RegExp
>> r1.Pattern = "^[^-]+-([^-]+).*"
>> WScript.Echo r1.Replace("L2-B-123", "$1")
>>
B
 
 您也可以使用子匹配代替.Replace： 
 
>> WScript.Echo r1.Execute("Don't care-wanted-")(0).SubMatches(0)
>>
wanted
 
 如果需要函数，请将Regexp传递给函数; 并记住必须将返回值赋给函数名称（removeData <> ExtractSDI）。 
 
 第二个规范的另一种可能性（“ - ”不是所需输出的一部分）： 
 
>> WScript.Echo Split("Whatever-Wanted-Ignore", "-")(1)
>>
Wanted
 
 更新： 
 
 处理嵌入在所需输出中的“ - ”并显示如何在/作为公式使用此方法： 
 
Option Explicit

' needs Ref to RegExp

Dim rX As RegExp

Function cleanSDI(s)
  If rX Is Nothing Then
    Set rX = New RegExp
    rX.Pattern = "^([^-]*-)(.+)(-.*)$"
  End If
  cleanSDI = rX.Replace(s, "$2")
End Function
 
 根据您的数据，您可能需要将.Pattern更改为 
 
rX.Pattern = "^([^-]+-)(.+)(-.+)$"
 
 允许（*）/禁止（+）空头或尾巴。 使用文档通过/了解模式。 

If the "-" are part of the input data, you could use a RegExp Replace like:
 
>> Set r1 = New RegExp
>> r1.Pattern = "^[^-]+(-[^-]+-).*"
>> WScript.Echo r1.Replace("L2-A-1234", "$1")
>>
-A-
 
or:
 
>> Set r1 = New RegExp
>> r1.Pattern = "^[^-]+-([^-]+).*"
>> WScript.Echo r1.Replace("L2-B-123", "$1")
>>
B
 
Instead of .Replace, you can use Submatches too:
 
>> WScript.Echo r1.Execute("Don't care-wanted-")(0).SubMatches(0)
>>
wanted
 
If you need a function, pass the Regexp into the the function; and remember the return value must be assigned to the function name (removeData <> ExtractSDI).
 
Another possibility for the second spec ("-" not part of desired output):
 
>> WScript.Echo Split("Whatever-Wanted-Ignore", "-")(1)
>>
Wanted
 
UPDATE:
 
To deal with "-" embedded in the desired output and to show how this approach can be used in/as a formula:
 
Option Explicit

' needs Ref to RegExp

Dim rX As RegExp

Function cleanSDI(s)
  If rX Is Nothing Then
    Set rX = New RegExp
    rX.Pattern = "^([^-]*-)(.+)(-.*)$"
  End If
  cleanSDI = rX.Replace(s, "$2")
End Function
 
Depending on your data, you may have to change the .Pattern to
 
rX.Pattern = "^([^-]+-)(.+)(-.+)$"
 
to allow (*) / forbid (+) empty heads or tails. Use the Docs to work thru/understand the patterns.