DerTod2 U1 #42 18.08.10 14:18:45 edit: 18.08.10 16:47:02 | Quellcode zum AngriffsWarner kann ich gerne zur Verfügung stellen.[br]Bei mir läuft es so, das der Client über ein internes Browser Fenster die Daten an PHP weiterleitet (Server habe ich net) und in einer SQL Datenbank abspeichert.[br]Ausgelesen wird die Flottenansicht. *SUCH* <- ja copy+paste o.O[br][br]So hier in vb.net der Code wie er es mehr oder weniger gut umwandelt:[br]Er ist etwas lang ^^ Aber wer annährend Englisch oder auch eine Sprache kann sollte es verstehen[br][quo][br] Dim tmpRTB As New RichTextBox[br] Dim tmp3 As String = ""[br] tmpRTB.Text = RichTextBox1.Text[br] 'NEU -- Prüfung ^^[br] '#################[br] If tmpRTB.Text.Contains("Feindliche Flotte") = False Then[br] tmpRTB.Text = "Feindliche Flotte" & vbNewLine & tmpRTB.Text[br] End If[br] 'Was muss enthalten sein und wieviele Lines minimum???[br] If tmpRTB.Lines.Length >= 8 Then[br] If tmpRTB.Text.Contains("Eigentümer: ") = True Then[br] If tmpRTB.Text.Contains("ETA Ziel: ") = True Then[br] If tmpRTB.Text.Contains("Genauigkeit: ") = True Then[br] Dim tmp2Str As String = ""[br] For i As Integer = 0 To tmpRTB.Lines.Length - 1[br] If tmpRTB.Lines(i).ToString.Replace(" ", "").Length > 5 Then[br] 'MsgBox(tmpRTB.Lines(i).ToString & vbNewLine & vbNewLine & vbNewLine & tmpRTB.Lines(i).ToString.Length.ToString)[br] tmp2Str = tmp2Str & tmpRTB.Lines(i).ToString & vbNewLine[br] tmp3 = tmpRTB.Lines(i).ToString[br] End If[br] Next[br] tmpRTB.Text = tmp2Str[br] Dim tmpStr As String[br] tmpStr = tmpRTB.Lines(1).ToString.Replace("Eigentümer: ", "") & ","[br] If tmpRTB.Text.Contains("Allianz: ") = True Then[br] tmpStr = tmpStr & tmpRTB.Lines(2).ToString.Replace("Allianz: ", "") & ","[br] Dim tmp2 As String[br] tmp2 = tmpRTB.Lines(3).ToString[br] Dim tmpA1 As Array[br] tmpA1 = tmp2.Split(" ")[br] tmp2 = tmpA1(tmpA1.Length - 1).ToString.Replace("(", "").Replace(")", "")[br] tmpStr = tmpStr & tmp2 & ","[br] 'ETA Ziel: 09.04.10 11:14:26 00:04:00[br] Dim tmp4 As Array[br] tmp4 = tmpRTB.Lines(6).ToString.Replace("ETA Ziel: ", "").Split(" ")[br] tmpStr = tmpStr & tmp4(0).ToString & "," & tmp4(1).ToString & ","[br] 'Hier die Zielkoordinaten (6)[br] tmpStr = tmpStr & tmpRTB.Lines(8).ToString.Replace("Genauigkeit: ", "").Replace("%", "") & ","[br] Dim tmpA2 As Array[br] tmpA2 = tmp3.Split(" ")[br] 'Anzahl Angriff Panzerung Schilde[br] '1 - 2 589.512 - 1.179.024 3.520.800 - 7.041.600 47.500 - 95.000 ! [br] '0 1 2 3 4 5 6 7 8 9 10 11[br] 'Enthält versteckte Leerzeichen, wie unfähr ^^[br] tmpStr = tmpStr & tmpA2(0) & "," & tmpA2(2) & "," ' Anzahl[br] tmpStr = tmpStr & tmpA2(6) & "," ' Angriff[br] tmpStr = tmpStr & tmpA2(9) & "," ' Panzerung[br] tmpStr = tmpStr & tmpA2(11) ' Schilde[br] 'tmpStr = tmpStr.Replace(".", "")[br] Else[br] tmpStr = tmpStr & "-" & ","[br] Dim tmp2 As String[br] tmp2 = tmpRTB.Lines(2).ToString[br] Dim tmpA1 As Array[br] tmpA1 = tmp2.Split(" ")[br] tmp2 = tmpA1(tmpA1.Length - 1).ToString.Replace("(", "").Replace(")", "")[br] tmpStr = tmpStr & tmp2 & ","[br] 'ETA Ziel: 09.04.10 11:14:26 00:04:00[br] Dim tmp4 As Array[br] tmp4 = tmpRTB.Lines(5).ToString.Replace("ETA Ziel: ", "").Split(" ")[br] tmpStr = tmpStr & tmp4(0).ToString & "," & tmp4(1).ToString & ","[br] 'Hier die Zielkoordinaten (6)[br] tmpStr = tmpStr & tmpRTB.Lines(7).ToString.Replace("Genauigkeit: ", "").Replace("%", "") & ","[br] Dim tmpA2 As Array[br] tmpA2 = tmp3.Split(" ")[br] 'Anzahl Angriff Panzerung Schilde[br] '1 - 2 589.512 - 1.179.024 3.520.800 - 7.041.600 47.500 - 95.000 ! [br] '0 1 2 3 4 5 6 7 8 9 10 11[br] 'Enthält versteckte Leerzeichen, wie unfähr ^^[br] tmpStr = tmpStr & tmpA2(0) & "," & tmpA2(2) & "," ' Anzahl[br] tmpStr = tmpStr & tmpA2(6) & "," ' Angriff[br] tmpStr = tmpStr & tmpA2(9) & "," ' Panzerung[br] tmpStr = tmpStr & tmpA2(11) ' Schilde[br] 'tmpStr = tmpStr.Replace(".", "")[br] End If[br] 'Trage tmpStr in WebControl ein[br] 'WebBrowser1.Document.Forms(0).SetAttribute("realm", realm)[br] 'WebBrowser1.Document.Forms(0).SetAttribute("pass", pass)[br] 'WebBrowser1.Document.Forms(0).SetAttribute("value", tmpStr)[br] For Each pElement In WebBrowser1.Document.Forms(0).All[br] If pElement.Name = "realm" Then[br] pElement.InnerText = realm[br] ElseIf pElement.Name = "pass" Then[br] pElement.InnerText = pass[br] ElseIf pElement.Name = "value" Then[br] pElement.InnerText = tmpStr & "," & AName[br] End If[br] Next[br] WebBrowser1.Document.Forms(0).InvokeMember("submit")[br] MsgBox("Gesendet!")[br] program.tmpAnzeige2 = tmpStr & "," & AName[br] Me.Close()[br] Else[br] MsgBox("Der Bericht ist nicht vollständig!")[br] End If[br] Else[br] MsgBox("Der Bericht ist nicht vollständig!")[br] End If[br] Else[br] MsgBox("Der Bericht ist nicht vollständig!")[br] End If[br] Else[br] MsgBox("Der Bericht ist zu kurz")[br] End If[br] '#################[br][/quo] |