Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- On Error Resume Next
- 'Textbox3
- 'Deaths (0)
- 'Kills (1)
- 'Killed (22)
- 'Suicides (23)
- 'KtoD (2)
- 'MostMoneyMade (4)
- 'MostMoneyLost (3)
- 'IdleTime (21)
- TextBox3.Clear()
- Dim fName = "D:\Westwood\RenegadeFDS\Server\data\Roleplay2\Rp2PlayerRecords.txt"
- Dim fileContents As String
- fileContents = My.Computer.FileSystem.ReadAllText(fName)
- TextBox4.Text = fileContents
- For i As Integer = 0 To TextBox4.Lines.GetUpperBound(0)
- Dim textline = TextBox4.Lines(i)
- Dim players = (i)
- If textline = Nothing Then
- Else
- Dim ts As TimeSpan = Now.AddSeconds((wordquest(" ", TextBox4.Lines(players + 1), 5))).Subtract(Now)
- Dim time = ts.Hours & ":" & ts.Minutes & ":" & ts.Seconds
- Dim name = textline
- Dim deaths As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 0))
- Dim defences_destroyed = Nothing
- Dim Hailfire_turrents_killed As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 24))
- Dim Ceiling_Guns_Killed As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 25))
- Dim DestroyedSams As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 26))
- Dim mostmoney = (wordquest(" ", TextBox4.Lines(players + 1), 4)).Replace(".00", Nothing)
- Dim mostmoneylost = (wordquest(" ", TextBox4.Lines(players + 1), 3)).Replace(".00", Nothing)
- Dim kills = (wordquest(" ", TextBox4.Lines(players + 1), 1))
- Dim KtoD = (wordquest(" ", TextBox4.Lines(players + 1), 2))
- Dim sucides As Integer = (wordquest(" ", TextBox4.Lines(players + 1), 23))
- Dim playtime = time
- kills = CDbl(kills)
- deaths = CDbl(deaths)
- sucides = CDbl(sucides)
- defences_destroyed = Hailfire_turrents_killed + Ceiling_Guns_Killed + DestroyedSams
- deaths = (wordquest(" ", TextBox4.Lines(players + 1), 22)) + deaths + sucides
- Dim rofl = _
- playtime & _
- "," & kills & _
- "," & deaths & _
- "," & sucides & _
- "," & KtoD & _
- "," & defences_destroyed & _
- "," & mostmoney & _
- "," & mostmoneylost
- TextBox3.Text += name & "," & rofl & vbNewLine
- i = i + 1
- End If
- Next i
- Dim lol = 0
- My.Computer.FileSystem.WriteAllText("C:\Program Files (x86)\Apache Software Foundation\Apache2.2\htdocs\rofl\ConvertedStats.txt", TextBox3.Text, False)
- On Error Resume Next
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement