This generates an exact duplicate of the desired output - for regular exp ression Buffs. Expand collapse popup #include #include Global $TTLarray, $TTLvarArray Global $varTmp, $aCounter = 0, $replace = 0 $myTTLfile = & "\script.ttl" $myTXTfile = & "\script.txt" _FileReadToArray ( $myTTLfile, $TTLarray ) For $i = 1 To $TTLarray If StringInStr ( StringStripWS ( $TTLarray, 8 ), "='" ) Then $varTmp = StringSplit ( $TTLarray, "=" ) $TTLvarArray = StringStripWS ( $varTmp, 3 ) $TTLvarArray = StringReplace ( $varTmp, "'", "" ) $aCounter += 1 EndIf Next ReDim $TTLvarArray For $i = 1 To $TTLarray If StringInStr ( $TTLarray, "sendln" ) Then $replace = 0 For $j = 0 To UBound ( $TTLvarArray ) - 1 If StringInStr ( $TTLarray, "'" & $TTLvarArray & "'" ) Then $TTLarray = StringReplace ( $TTLarray, "'" & $TTLvarArray & "'", $TTLvarArray ) $replace += 1 EndIf Next If $replace = 0 Then $TTLarray = "" Else $TTLarray = StringReplace ( $TTLarray, "sendln", "" ) $TTLarray = StringReplace ( $TTLarray, "'", "" ) EndIf Else $TTLarray = "" ContinueLoop EndIf Next If Not FileExists ( $myTXTfile ) Then FileClose ( FileOpen ( $myTXTfile, 2 ) ) EndIf _FileWriteFromArray ( $myTXTfile, $TTLarray, 1 ) ShellExecute ( $myTXTfile )
0 kommentar(er)
