[RESOLVED] Stack

Printable View

[RESOLVED] Stack

Hi All,

I was wondering how i could get the text to stack on top of each other like seen after end select
The text is getting sent to a rich text box

VB Code:

Case "test"
       If coding.SelLength > 0 Then
          coding.SelText = "<html>"
          coding.SelText = "<head>"
       coding.SelText = "<TITLE>" & coding.SelText & "</TITLE>"
       Else
          coding.SelText = "<html>"
          coding.SelText = "<head>"
          coding.SelText = "<TITLE>TITLE</TITLE>"
       End If
 
End Select
 
'<head>
'<title></title>
'</head>
'<body bgcolor="#FFFFFF">
'</body>
'</html>
'Its coming out in a like like this
'<head><title></title></head><body bgcolor="#FFFFFF"></body></html>
'Its coming out like this
'<head><title></title></head><body bgcolor="#FFFFFF"></body></html>

Jan 29th, 2007, 03:27 PM
davidbishton

Re: Stack
add 'vbCRLF' after each line of text i.e.
VB Code:
```
coding.SelText = "<html>" & vbcrlf
```
Jan 29th, 2007, 03:34 PM
Jazza

Re: Stack

Perfect!
Thanks
Jan 29th, 2007, 03:41 PM
Jazza

Re: Stack
VB Code:
```
coding.SelText = "<body bgcolor="#FFFFFF">"
```
Any idea on how to avoid the syntax error caused by # ?

Thanks
Jan 29th, 2007, 04:00 PM
si_the_geek

Re: Stack
It's not caused by the #, it is caused by " (which marks the end of a string)

The simplest way to put the " character into a string is to double-up like this:
VB Code:
```
coding.SelText = "<body bgcolor=[u]""[/u]#FFFFFF[u]""[/u]>"
```
Jan 29th, 2007, 04:04 PM
Jazza

Re: Stack

OH I see what you are saying

Thanks that did the trick
Jan 29th, 2007, 04:35 PM
MartinLiss

Re: Stack
Everybody has their own style but I think that it's easier to understand (later) what's going on if you do
VB Code:
```
Const QUOTE As String = """"
 
MsgBox "<body bgcolor=" & QUOTE & "#FFFFFF" & QUOTE & ">"
```