11/04/09 13:47
crash outside control
Ultima modifica effettuata da crash outside control 11/04/09 13:48
aaa
For i As Integer = 0 To ProgAnalizzato.Items.Count - 1 Dim re2 As New Regex("(?<Write>write(ln)?)\('.+?'\)", RegexOptions.IgnoreCase) Dim t As String = re2.Replace(ProgAnalizzato.Items.Item(i), "${write}('')") ProgAnalizzato.Items.Item(i) = "" ProgAnalizzato.Items.Item(i) = t Next
For i As Integer = 0 To ProgAnalizzato.Items.Count - 1 Dim write As String write = UCase(Mid(stringa(ProgAnalizzato.Items.Item(i)), 1, 5)) If write.StartsWith("WRITE") = True Then Dim re2 As New Regex("'.+?'", RegexOptions.IgnoreCase) Dim t As String = re2.Replace(ProgAnalizzato.Items.Item(i), "") ProgAnalizzato.Items.Item(i) = "" ProgAnalizzato.Items.Item(i) = t End If Next
For i As Integer = 0 To ProgAnalizzato.Items.Count - 1 Dim re2 As New Regex("(?<Write>write(ln)?)\('.+?'\)", RegexOptions.IgnoreCase) Dim t As String = re2.Replace(ProgAnalizzato.Items.Item(i), "${write}('')") ProgAnalizzato.Items.Item(i) = "" ProgAnalizzato.Items.Item(i) = t Next
write('a'); write('b');
'a); write(' 'a); write('b'