Just testing (no peeking)

[da_silvy]

just testing my color coding prog

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 = "

	
	
" 
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

[Bjwbell]

I'm a bad boy i peeked

[ChimpFace9000]

da_silvy, how did you get the chinese text?

[Matthew Gates]

Hehe, your late, John has color coding back .

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 & "

[da_silvy]

yeah, oh well

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

[da_silvy]

yeah

i swear i am going insane or these forums are dodgy