[VB6] T-List Request Generator

[Splizes]

http://www.mediafire.com/?mzdyej543nm

 

Now this is mainly for use by me (it uses my formatting at least) however, you are welcome to use it. This honestly took no skills to make but I think it is useful.

 

The steam chat parser is able to take both the status type line as well as the one pictured above, the player disconnect.

 

Code (redundant in places but it works):

Private Sub Command1_Click()
Clipboard.SetText Text6.Text
End Sub

Private Sub Command2_Click()
Dim tmpStr As Variant
Dim tmpName As String
Dim tmpSID As String
tmpStr = Split(Text7.Text, " ")
If UBound(tmpStr) >= 0 Then
If tmpStr(0) = "#" Then
   tmpName = Replace(Text7.Text, Left(Text7.Text, InStr(Text7.Text, Chr(34)) - 1), "")
   tmpName = Left(tmpName, InStrRev(tmpName, Chr(34)))
   For i = 0 To UBound(tmpStr)
       If InStr(tmpStr(i), "STEAM_") <> 0 Then
           tmpSID = tmpStr(i)
       End If
   Next i
   Text1.Text = tmpName
   Text2.Text = tmpSID
ElseIf tmpStr(0) = "Player" Then
   tmpName = Replace(Text7.Text, Left(Text7.Text, InStr(Text7.Text, " ")), "")
   tmpName = Left(tmpName, InStr(tmpName, " disconnected with") - 1)
   tmpName = Chr(34) & tmpName & Chr(34)
   For i = 0 To UBound(tmpStr)
       If InStr(tmpStr(i), "STEAM_") <> 0 Then
           tmpSID = tmpStr(i)
       End If
   Next i
   Text1.Text = tmpName
   Text2.Text = tmpSID
End If
End If
End Sub

Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
End Sub

Private Sub Command4_Click()
Dim tmpText As String
Text6.Text = ""
tmpText = "[b][u]1. Name:[/u][/b]" & vbNewLine
tmpText = tmpText & "
[indent]" & Text1.Text & "[/indent]
" & vbNewLine
tmpText = tmpText & "[b][u]2. Steam Id:[/u][/b]" & vbNewLine
tmpText = tmpText & "
[indent]" & Replace(Text2.Text, vbNewLine, "") & "[/indent]
" & vbNewLine
tmpText = tmpText & "[b][u]3. Reason:[/u][/b]" & vbNewLine
tmpText = tmpText & "
[indent]" & Text3.Text & "[/indent]
" & vbNewLine
tmpText = tmpText & "[b][u]4. Proof:[/u][/b]" & vbNewLine
tmpText = tmpText & "
[indent]" & Text4.Text & "[/indent]
" & vbNewLine
tmpText = tmpText & "[b][u]5. Comments:[/u][/b]" & vbNewLine
tmpText = tmpText & "
[indent]" & Text5.Text & "[/indent]
" 
Text6.Text = tmpText
End Sub

Private Sub Command5_Click()
Text4.Text = Replace(Text4.Text, Text4.SelText, "[img=" & Text4.SelText & "]")
End Sub

Private Sub Command6_Click()
Text4.Text = Replace(Text4.Text, Text4.SelText, "[b]" & Text4.SelText & "[/b]")
End Sub

Private Sub Command7_Click()
Text4.Text = Replace(Text4.Text, Text4.SelText, "[u]" & Text4.SelText & "[/u]")
End Sub

Private Sub Command8_Click()
Text4.Text = Replace(Text4.Text, Text4.SelText, "[i]" & Text4.SelText & "[/i]")
End Sub

Private Sub Text7_Change()
If InStr(Text7.Text, Chr(4)) <> 0 Then Text7.Text = Replace(Text7.Text, Chr(4), "")
If InStr(Text7.Text, vbNewLine) <> 0 Then Text7.Text = Replace(Text7.Text, vbNewLine, "")
End Sub

 

Example output:

[b][u]1. Name:[/u][/b]

[indent]"Credit to Splizes!!!"[/indent]

[b][u]2. Steam Id:[/u][/b]

[indent]STEAM_0:0:13333337[/indent]

[b][u]3. Reason:[/u][/b]

[indent]Racist[/indent]

[b][u]4. Proof:[/u][/b]

[indent]Link to image:
[img=Image]
[/indent]

[b][u]5. Comments:[/u][/b]

[indent]This dude is a doucher!
[/indent]

Edited January 22, 2010 by Splizes

[CubanCarlos]

wow Splize. thank you so much for this. im sure alot of people will be using it and it will be a bigger competition to get the first T-list in >

[Darkplanner]

Nice tool, however:

 

My Format > Your Format.

[n1ckkkkk]

So what does it do exactly

[Darkplanner]

So what does it do exactly

 

It makes it easier to put in all the info then copy all the text onto the forums.

[Splizes]

So what does it do exactly

Umm the vb6 source I was referring for you was https://hellsgamers.com/forums/showthread.php?t=16756&page=2&p=94215

[Slazenger]

That's nice. =]