18 lines
471 B
Plaintext
18 lines
471 B
Plaintext
Dim $Line1 = "apples, pears # and bananas"
|
|
Dim $Line2 = "apples, pears ; and bananas"
|
|
|
|
_StripAtMarker($Line1)
|
|
_StripAtMarker($Line2)
|
|
|
|
Func _StripAtMarker($_Line, $sMarker='# ;')
|
|
Local $aMarker = StringSplit($sMarker, ' ')
|
|
Local $iPos
|
|
For $i = 1 To $aMarker[0]
|
|
$iPos = StringInStr($_Line, $aMarker[$i])
|
|
If $iPos Then
|
|
ConsoleWrite($_Line & @CRLF)
|
|
ConsoleWrite( StringStripWS( StringLeft($_Line, $iPos -1), 2) & @CRLF)
|
|
EndIf
|
|
Next
|
|
EndFunc ;==>_StripAtMarker
|