Just testing (no peeking)

just testing my color coding prog

Code:

---

Dim BlueStuff As String, BSC As String
Private Sub cmdconvert_Click()
BlueStuff = "Byte,Currency,Date,String,Object,Single,Double,Integer,Long,Boolean,Variant,While,Wend,With,Step,Do,Loop,If,Then,Else,New,Exit,True,False,Dim,Sub,Function,Property,Let,Get,As,Declare,End,For,To,Next,Public,Private,Global,ReDim,Const,Lib,Alias,Event,Property,Get,Let,On,Error,Resume,Goto,Type,CBool,CStr,CByte,CCur,CDate,CDbl,CDec,CInt,CLng,CSng,CVar,And"
BSC = "[color=" & Chr(34) & "#00007F" & Chr(34) & "]"
'Split all in the text box into separate lines
Dim strList As Variant, strList2 As Variant, tagClosed As Boolean
tagClosed = True
strList = Split(txtVB, vbCrLf)
txtVB = "

       

Code:

       

---

"
For Each varlist In strList
strList2 = Split(varlist, " ")
For Each othervar In strList2
    If InStr(BlueStuff, othervar) <> 0 And othervar <> " " And othervar <> "i" Then
        If tagClosed Then
            txtVB = txtVB & BSC & othervar & " "
 tagClosed = False
        Else
            txtVB = txtVB & othervar & " "
 tagClosed = False
        End If
    Else
        If tagClosed Then
            txtVB = txtVB & othervar & " "
 tagClosed = True
        Else
            txtVB = txtVB & "[/color] " & othervar & " "
 tagClosed = True
        End If
    End If
Next
txtVB = txtVB & vbCrLf
Next
If tagClosed = False Then txtVB = txtVB & "[/color]"
txtVB = txtVB & vbCrLf & "

---

"
End Sub

---

i told you not to peek :eek:

I'm a bad boy i peeked :D

da_silvy, how did you get the chinese text?

Hehe, your late, John has color coding back ;).

VB Code:

Dim  BlueStuff As String,  BSC As String 
Private Sub  cmdconvert_Click() 
BlueStuff = " Byte,Currency,Date,String,Object,Single,Double,Integer,Long,Boolean,Variant,While,Wend,With,Step,Do,
 Loop,If,Then,Else,New,Exit,True,False,Dim,Sub,Function,Property,Let,Get,As,Declare,End,For,To,Next,P
 ublic,Private,Global,ReDim,Const,Lib,Alias,Event,Property,Get,Let,On,Error,Resume,Goto,Type,CBool,CS
tr,CByte,CCur,CDate,CDbl,CDec,CInt,CLng,CSng,CVar,And" 
BSC = "[color=" & Chr(34) & "#00007F" & Chr(34) & "]" 
'Split all in  the text box into separate lines 
Dim  strList As Variant,  strList2 As Variant,  tagClosed As Boolean 
 tagClosed = True 
 strList = Split(txtVB, vbCrLf) 
txtVB = "[code]" 
For  Each varlist In  strList 
strList2 = Split(varlist, " ") 
For  Each othervar In  strList2 
    If  InStr(BlueStuff, othervar) <> 0 And  othervar <> " " And  othervar <> "i" Then 
        If  tagClosed Then 
             txtVB = txtVB & BSC & othervar & " " 
             tagClosed = False 
        Else 
             txtVB = txtVB & othervar & " " 
             tagClosed = False 
        End If 
    Else 
        If  tagClosed Then 
             txtVB = txtVB & othervar & " " 
             tagClosed = True 
        Else 
             txtVB = txtVB & "[/color] " & othervar & " " 
             tagClosed = True 
        End If 
    End If 
Next 
 txtVB = txtVB & vbCrLf 
Next 
If  tagClosed = False Then  txtVB = txtVB & "[/color]" 
txtVB = txtVB & vbCrLf & "

yeah, oh well

i wrote that for converting to html, but only changed it a little for this site...

yeah

i swear i am going insane or these forums are dodgy