$sText = FileRead(@ScriptDir & '\1.txt')
$aText = StringSplit(StringStripCR($sText), @LF)
For $i = 1 To $aText[0]
$sBefore = StringRegExpReplace($aText[$i], ':.*$', '')
$sAfter = StringRegExpReplace($aText[$i], '^.*:', '')
MsgBox(64, 'Info', 'String Num:' & $i & ' (' & $aText[0] & ')' & @TAB & $aText[$i] & @LF & 'Before ":"' & _
@TAB & $sBefore & @LF & 'After ":"' & @TAB & $sAfter)
Next