Get char between "[" and "]" [Resolved]

[g-mie]

Hello Gurus..

How to get any char between "[" and "]" in TextBox1.Text?
Then transfer it into TextBox2.Text.

Thank You









Added green "resolved" checkmark - Hack

[cssriraman]

Hi,

Insert a new form with two text box control and a command button and paste the following code in the code window:

Private Sub Command1_Click()
Dim intStart As Integer
Dim intEnd As Integer
intStart = InStr(1, Text1.Text, "[", vbTextCompare)
intEnd = InStr(1, Text1.Text, "]", vbTextCompare)
Text2.Text = Mid$(Text1.Text, intStart + 1, intEnd - intStart - 1)
End Sub

[MartinLiss]

Dim intLeft As Integer
Dim intRight As Integer
 
intLeft = InStr(Text1.Text, "[")
intRight = InStrRev(Text1.Text, "]")
Text2.Text = Mid$(Text1.Text, intLeft + 1, intRight - intLeft - 1)

[dglienna]

Is there only one sequence of [ ] in the textbox, or might there be more than one?

[g-mie]

There is only one set of [ and ]
Let say xxxxxx[yyyyyyyyy]zzzzzzzz
x,y and z is not fix count.

[g-mie]

oopsss....both code can running well.
Thanks guys.