Guten Tag liebe Com
Und zwar verwende ich die Replace "Funktion" um mehrere Vorkommnisse
ersetzen zu können, ist ja alles kein Problem. Jetzt frage ich mich aber ob
es nicht eventuell eine bessere Methode gibt um mehrere Vorkommnisse
in einem String bearbeiten zu können, da mir der Code schlichtweg zu
unsauber aussieht, und ich mir nicht vorstellen kann das dies so gewollt ist.
Ich würde mich riesig über neuen Input Freuen.
/Setting.Bind01 ist ein Wert(String) der zuvor von einem User aus einer Textbox resultiert.
Und zwar verwende ich die Replace "Funktion" um mehrere Vorkommnisse
ersetzen zu können, ist ja alles kein Problem. Jetzt frage ich mich aber ob
es nicht eventuell eine bessere Methode gibt um mehrere Vorkommnisse
in einem String bearbeiten zu können, da mir der Code schlichtweg zu
unsauber aussieht, und ich mir nicht vorstellen kann das dies so gewollt ist.
Ich würde mich riesig über neuen Input Freuen.
/Setting.Bind01 ist ein Wert(String) der zuvor von einem User aus einer Textbox resultiert.
VB.NET-Quellcode
-
- Dim i As Boolean = Regex.IsMatch(Setting.Bind01, "(%HP|%CarDL|%ID|%FPS|%Day|%Week|%Hour|%Minute|%Second|%City|%Money|%Zone|%Medic|%ReNumber|%Kmh|%VLock|%VEngine)", RegexOptions.IgnoreCase)
- If i Then
- Dim OutString As String = Bind01.Replace("%HP", shadowAPI2.Player.GetHealth.ToString).Replace("%CarDL", shadowAPI2.Vehicle.GetHealth.ToString).Replace("%ID", shadowAPI2.Player.GetId.ToString) _
- .Replace("%Day", DayZone).Replace("%Week", Weekday).Replace("%Hour", DateTime.Now.ToString("HH")).Replace("%Minute", DateTime.Now.ToString("mm")).Replace("%Second", DateTime.Now.ToString("ss")) _
- .Replace("%City", shadowAPI2.Player.GetCity).Replace("%Money", CStr(shadowAPI2.Player.GetMoney)).Replace("%Zone", shadowAPI2.Player.GetZone).Replace("%Medic", Setting.Name_Medic) _
- .Replace("%ReNumber", Setting.Lastnumber).Replace("%FPS", shadowAPI2.Game.GetFPS.ToString).Replace("%Kmh", shadowAPI2.Vehicle.GetSpeed.ToString).Replace("%VLock", shadowAPI2.Vehicle.IsLocked.ToString) _
- .Replace("%VEngine", shadowAPI2.Vehicle.IsEngineEnabled.ToString)
- shadowAPI2.Chat.Send(OutString)
- Else
- shadowAPI2.Chat.Send(Bind01)
- End If