Click here to Skip to main content
15,884,629 members
Home / Discussions / Visual Basic
   

Visual Basic

 
AnswerRe: tree view Pin
MatrixCoder24-Feb-07 9:12
MatrixCoder24-Feb-07 9:12 
QuestionOleDB error Pin
7prince24-Feb-07 6:31
7prince24-Feb-07 6:31 
AnswerRe: OleDB error Pin
Dave Kreskowiak24-Feb-07 12:12
mveDave Kreskowiak24-Feb-07 12:12 
Questioninsert text data into database (SQL 2005) Pin
lyzaa24-Feb-07 5:22
lyzaa24-Feb-07 5:22 
AnswerRe: insert text data into database (SQL 2005) Pin
TriGiggleMich24-Feb-07 7:48
TriGiggleMich24-Feb-07 7:48 
GeneralRe: insert text data into database (SQL 2005) Pin
lyzaa25-Feb-07 16:37
lyzaa25-Feb-07 16:37 
QuestionRegEx to replace a string [modified] Pin
T John24-Feb-07 3:40
T John24-Feb-07 3:40 
AnswerRe: RegEx to replace a string Pin
The Tigerman24-Feb-07 13:17
The Tigerman24-Feb-07 13:17 
<code>
Public Function Change_Text(ByVal strInText As String, ByVal strOutText As String) As Boolean

Dim strSubText As String
Dim intPos As Integer
Dim bolCode As Boolean = False

'Default as OK
Change_Text = True
'Clear output string
strOutText = ""
'Loop through string
Do Until strInText = ""
'Look for opening '['
If Mid(strInText, 1, 1) = "[" Then
'Find closing tag
intPos = InStr(2, strInText, "]")
'Extract content
strSubText = Mid(strInText, 2, intPos - 2)
'Skip text beyond end tag
strInText = Mid(strInText, intPos + 1)
'Check tag information....
Select Case UCase(strSubText)
Case "/CODE"
'Closing tag
strOutText += "</pre>"
'Flag outside code area
bolCode = False
Case "CODE"
'Opening tag
strOutText += "<pre>"
'Flag inside code area
bolCode = True
Case Else
'Unknown [] tag - Flag as error ...
Change_Text = False
End Select
ElseIf Mid(strInText, 1, 2) = vbCrLf Then
strInText = Mid(strInText, 3)
If bolCode Then
'Inside Code Tags
strOutText += "&ampmp;"
Else
'Outside Code Tags
strOutText += "<br>"
End If
Else
'Write character to output string...
strOutText += Mid(strInText, 1, 1)
End If
Loop
End Function
</code>
Call with ....
<code>
If Not Change_Text(TextBox.Text, strOutput) Then
TextBoxError.Text = "Invalid Information entered"
bolError = True
End If
</code>
Hope this helps....
GeneralRe: RegEx to replace a string Pin
T John25-Feb-07 4:36
T John25-Feb-07 4:36 
QuestionHow do you open an Access Query in Excel using a vb button? Pin
China-Gary24-Feb-07 2:09
China-Gary24-Feb-07 2:09 
QuestionCan a form have a scroll bar? Pin
steve_rm24-Feb-07 1:35
steve_rm24-Feb-07 1:35 
AnswerRe: Can a form have a scroll bar? Pin
JUNEYT24-Feb-07 2:10
JUNEYT24-Feb-07 2:10 
AnswerRe: Can a form have a scroll bar? Pin
manni_n24-Feb-07 2:22
manni_n24-Feb-07 2:22 
AnswerRe: Can a form have a scroll bar? Pin
Guffa24-Feb-07 3:41
Guffa24-Feb-07 3:41 
AnswerRe: Can a form have a scroll bar? Pin
steve_rm24-Feb-07 3:53
steve_rm24-Feb-07 3:53 
Questionbeginner : can somebody help personally Pin
manni_n24-Feb-07 1:19
manni_n24-Feb-07 1:19 
AnswerRe: beginner : can somebody help personally Pin
JUNEYT24-Feb-07 2:05
JUNEYT24-Feb-07 2:05 
GeneralRe: beginner : can somebody help personally Pin
manni_n24-Feb-07 2:09
manni_n24-Feb-07 2:09 
GeneralRe: beginner : can somebody help personally Pin
Kevin McFarlane24-Feb-07 6:11
Kevin McFarlane24-Feb-07 6:11 
QuestionSave Image in SQL database Pin
Vikash Yadav23-Feb-07 23:21
Vikash Yadav23-Feb-07 23:21 
AnswerRe: Save Image in SQL database Pin
Hesham Amin24-Feb-07 8:03
Hesham Amin24-Feb-07 8:03 
QuestionSearch Letter By Letter Pin
ADY00723-Feb-07 22:37
ADY00723-Feb-07 22:37 
AnswerRe: Search Letter By Letter Pin
Christian Graus23-Feb-07 22:56
protectorChristian Graus23-Feb-07 22:56 
GeneralRe: Search Letter By Letter Pin
ADY00723-Feb-07 23:05
ADY00723-Feb-07 23:05 
GeneralRe: Search Letter By Letter Pin
Christian Graus23-Feb-07 23:37
protectorChristian Graus23-Feb-07 23:37 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.