Jag vill göra ett litet program för att läsa loggen och sammanställa informationen i denna.

Den ser ut som följer

"You hit MonsterX for PoängX of damage"

Jag vill ta ut MonsterX och PoängX för att använda i variabler men vet inte vart jag skall börja

Hade tänkt mig något väldigt enkelt, ingen API eller något sådant.




Detta är en liten övning jag kom på att jag vill göra för att lära mig hantera filer och strängar eftersom jag fortfarande är väldigt grön på detta.

Vet inte exakt vad du är ute efter...
Vill du hämta ett värde från fil som finns direkt efter ett visst ord eller vad ??

Om man kan skapa RegExp utryck är det säkert lätt som en pankaka. Är man hårdnackad programerare.<br>
<br>
Om nu alla rader är identiska kan du göra så här:<br>
<code>
Sub Test
Dim strText as String
strText = "You hit SvenPon for 1000 of damage"
Msgbox "MonsterX: " & MidPart(strText, "You hit"," for ")
Msgbox "PoängX: " & MidPart(strText, " for "," of damage")

strText = "You hit Andreas Hillqvist for -5000 of damage"
Msgbox "MonsterX: " & MidPart(strText, "You hit"," for ")
Msgbox "PoängX: " & MidPart(strText, " for "," of damage")
End Sub

Public Function MidPart(Text As string, Prefix as String, Suffix as String) as String
Dim lngPrefix as Long
Dim lngSuffix as Long
lngPrefix = InStr(1, Text, Prefix)
If lngPrefix Then
lngPrefix = lngPrefix + Len(Prefix)
lngSuffix = InStr(lngPrefix, Text, Suffix)
If lngSuffix Then
MidPart = Mid$(Text, lngPrefix, lngSuffix - lngPrefix)
End if
End If
End Function
</code>