Chars in msgbox

[dimava]

lets say the user enters this into a textbox:

chr(43)

now how do I get a message box come up with that character?

I tried MsgBox text1.text

please dont make it so that it takes that letter, and translates it into a letter, then sends the letter to the msgbox

I would like it so that it send chr(43) to the message box.

thanks in advance

[xstopx81]

this is kinda weird way of doing it but might work...

  msgbox chr(cint(left(right(text1.text, 3), 2)))

let me know how it works

[dimava]

it works for one thing but lets say, I put this in:

chr(71) & chr(71) & chr(71) & chr(71) & chr(71) & chr(71) & chr(72) & chr(72) & chr(72) & chr(72) & chr(72)

then a message box will come up saying G instead of the whole thing

[HeSaidJoe]

'remove the spaces and it will work

Option Explicit

Private Sub Command1_Click()
    Dim myString As Variant
    Dim myVar As String
    Dim myChr As String
    myVar = "Chr(71 Chr(71)&Chr(71)&Chr(71)&Chr(71)&Chr(71)&Chr(72)&Chr(72)&Chr(72)&Chr(72)&Chr(72)"
    
    myString = Split(myVar, "&")
    Dim i As Integer, myHolder As String

    For i = 0 To UBound(myString)    
        myChr = Chr(CInt(Left(Right(myString(i), 3), 2)))
        myChr = Trim(myChr)
        myHolder = myHolder & myChr
    Next i
        MsgBox myHolder

End Sub

[dimava]

an error 13 comes up to this line:

        myChr = Chr(CInt(Left(Right(myString(i), 3), 2)))

[HeSaidJoe]

cut and paste the whole of it for testing
I tested it and no errors.

[gwdash]

look into this:

'------------------------------------------
'   (c) 1999 Trigeminal Software, Inc.  All Rights Reserved
'------------------------------------------
'Thanks to ----------michka - Michael Kaplan
'Rest of code by Sergio Perciballi -oigres P (Aug-6-2000)
'Email: [email protected]
'Uses the function used by the immediate window
'to execute a line of code.
Option Compare Text
Option Explicit

Private Declare Function EbExecuteLine Lib "vba6.dll" _
        (ByVal pStringToExec As Long, ByVal Foo1 As Long, _
        ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' For VB5 IDE
'Declare Function EbExecuteLine Lib "vba5.dll" _
 (ByVal pStringToExec As Long, ByVal Foo1 As Long, _
 ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

' FOR Access 97/VBE.dll clients like Word 97 and Excel 97
'Declare Function EbExecuteLine Lib "vba332.dll" _
 (ByVal pStringToExec As Long, ByVal Foo1 As Long, _
 ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Function FExecuteCode(stCode As String, _
            Optional fCheckOnly As Boolean) As Boolean

    FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

'usage
FExecuteCode(Text1.Text)

[dimava]

thanks for the code gwdash but it seems to complicated for me.. and HeSaidJoe, I'm sorry It does work, but when I replaced the

"Chr(71 Chr(71)&Chr(71)&Chr(71)&Chr(71)&Chr(71)&Chr(72)&Chr(72)&Chr(72)&Chr(72)&Chr(72)"

with

text1.text

it didn't work, is there a way to fix that?

[pro2]

If I understand, ( I dont think .. )
you want to put somme chr in a msgbox...
do this :
msgbox chr(43)

[dimava]

you can but I need the user to enter that stuff into a textbox and the stuff that they enter in a text box to come out in a message box
the stuff in the text box will be like chr(65) & chr(87)

[HeSaidJoe]

'remove the spaces and it will work
[code]

'ok here it is
'just use the replace function to remove the spaces in the text box
'
Option Explicit

Private Sub Command1_Click()

Text1.Text = "chr(71) & chr(71) & chr(71) & chr(71) & chr(71) & chr(71) & chr(72) & chr(72) & chr(72) & chr(72) & chr(72)"
Dim myString As Variant
Dim myVar As String
Dim myChr As String
Dim string1 As String
string1 = Text1.Text
Dim string2 As String
string2 = Replace(string1, " ", "")


myString = Split(string2, "&")

Dim i As Integer, myHolder As String

For i = 0 To UBound(myString)
myChr = Chr(CInt(Left(Right(myString(i), 3), 2)))
myChr = Trim(myChr)
myHolder = myHolder & myChr
Next i
MsgBox myHolder

End Sub
[code]

Try this:

Dim sText As String
Dim I As Integer
Dim iChar As Integer
Dim sResult As String

sText = Text1.Text

For I = 1 To Len(sText)
    DoEvents
    If LCase(Mid(sText, I, 4)) = "chr(" Then
        iChar = Val(Mid(sText, I + 4, 3))
        If iChar < 0 Or iChar > 255 Then MsgBox "Please enter a value between 0 and 255.": Exit Sub
        sResult = sResult & Chr(iChar)
    End If
Next I

MsgBox sResult

[Edited by Sc0rp on 09-07-2000 at 07:53 AM]

[gwdash]

use my code, it works for all functions, and it's not complicated, just try it!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

My code is simpler than HeSaidJoe's and gwdash's, and it works even for stuff like: "Chr(54)+ Chr(43)&&Chr(-78)"

[HeSaidJoe]

na na na na na

my Dads bigger than your dad

Really!

the object is to paste working code and let the user
decide which works better for their purpose.

begging to have your code used?

who cares what is used as long as the questioner gets
the means to her ends.

HeSaidJoe:

I'm not begging.
He can use whatever he wants.
I'm just pointing out some stuff about my code.

And if the problem is the fact that it works even for strings with wrong syntax, my code is easier to modify to fit to the criterias than yours.

[HeSaidJoe]

I really didn't say it wasn't. As a matter of fact I was
going to paste that I thought your code was very slick
and better than mine cause I can see an error in mine the
would come to fruitation sooner than later.

If you hadn't started blowing your own horn I would
have done it for you. (Modesty is a virtue)

Have fun!

Sorry about my last post HeSaidJoe.
I'm just really tired... Haven't slept in 24+ hourzzzzzz...

I didn't mean anything, just to let you both know (HeSaidJoe and gwdash).

BTW, you didn't use your signature in your last post
<?>

[HeSaidJoe]

I'm like you...over tired...your code is good, very good!
Thanks to you I have adjusted mine. No hard feelings, just
like to get along and if we all start critizing other code and bragging up our own we will be in for long days and the only person to suffer will be the person asking the question.

'as most users wouldn't know a chr or you
'wouldn 't want them entering Chr(24) & etc
'you could just use and input box and input the numbers only
'
'thanks to Sc0rp I have corrected the error in my code.
'

Option Explicit

Option Explicit

Private Sub Command1_Click()

    Dim myString As Variant
    Dim myVar As String
    Dim myChr As String
    Dim string1 As String, string2 As String
    Dim sMany As Integer
    
'how many numbers you wish to enter (set at 20)
    sMany = InputBox("Enter a number between 1 and 20")
    
'if greater than 20 quit
    If sMany > 1 And sMany < 21 Then
        
    For sMany = 1 To sMany
    
'enter the number for conversion
        string1 = InputBox("", "Enter A Number")
       
'if within the scope of 0 to 255 proceed
'store in string with : as seperator
    If string1 > 0 And string1 < 255 Then
       string1 = Trim(string1)
       string1 = string1 & ":"
       string2 = string2 & string1
       
'else msg and get out
    Else
       MsgBox "Sorry, must be between 0 and 255"
         Exit Sub
           End If
        
          Next sMany
 Else
    MsgBox "Sorry, 20 is the limit"
    Exit Sub
      End If
         
'split the string
      myString = Split(string2, ":")
'
'after split of string use the chr function
'and message user with assembled string of chr characters

    Dim i As Integer, myHolder As String
   
    For i = 0 To UBound(myString)
        myChr = Val(myString(i))
          myChr = Chr(myChr)
            myHolder = myHolder & myChr
      
    Next i
'message user
  MsgBox myHolder
  
End Sub

In addition to HeSaidJoe's code:
Instead of using an input box for each number you can let the user enter the numbers in Text1. Eg:
"65 69 76 76 79" (HELLO)
And use the Split function to store the numbers in an array.
To check that the user's entered a valid string, do this:

Dim I As Integer
Dim sResult As String
Dim iChar As Integer

If Len(Text1.Text) Then 'check if the textbox is empty, if it is, an error will occur
    For I = 1 To Len(Text1.Text)
        iChar = Asc(Mid(Text1.Text, I, 1))
        If Not ((iChar >= 48 And iChar <= 57) Or iChar = 32) Then
            MsgBox "Syntax error!"
            Text1.SelStart = I - 1
            Text1.SelLength = 1
            Text1.SetFocus
            Exit Sub
        End If
    Next I
Else
    MsgBox "Please enter a string."
    Exit Sub
End If

[Edited by Sc0rp on 09-07-2000 at 09:30 AM]

[dimava]

I tried both of the last 2 posts, and in the first one, infiniaty input boxs were coming up and in the the second, a message box always came up with an message bokx that said "Synax error"

What line does it highlight in the 2nd post?

[dimava]

no, A message box comes up saying that there is a synax error, not in the vb enviorment, I mean you just click OK and it continues


in the code it tells that message box to come up:

MsgBox "Syntax error!"

Make sure Text1.Text only contains numbers and spaces.

[dimava]

it contains letters, "&" signs, paraenthasses () and number

That's the problem, my post is based on the assumption that the user enters in Text1 a list of numbers, eg.: "65 69 76 76 79".
This combination, for example, creates the world 'HELLO'. It's identical to "Chr(65) & Chr(69) & Chr(76) & Chr(76) & Chr(79)". It's better than letting the user input all those CHRs and all those ()s.
So instead of writing Chr(MyNumber), you just write MyNumber.

[dimava]

can you make it so that the user enters chr(34) and stuff like that instead of only numbers?

If this is what you want, this is the code you need:
(It's not the code to check if the syntax is valid, it's a code to turn all the chr()s to an actual string and then msgbox it.)

Dim sText As String
Dim I As Integer
Dim iChar As Integer
Dim sResult As String

sText = Text1.Text
For I = 1 To Len(sText)
    DoEvents
    If LCase(Mid(sText, I, 4)) = "chr(" Then
        iChar = Val(Mid(sText, I + 4, 3))
        If iChar < 0 Or iChar > 255 Then MsgBox "Please enter a value between 0 and 255.": Exit Sub
        sResult = sResult & Chr(iChar)
    End If
Next I

MsgBox sResult

Note that even if the user types stuff like:
"Chr(98) *I lovE mySElF!?!* Chr(65)"
It will still ignore the "*I lovE mySElF!?!*" part, it only reads the Chrs so basically tou can enter stuff like:
"Chr(65) & Chr(87)"
"Chr(65)++Chr(87)"
"Chr(65)Chr(87)"
"CHR(65)(*)chr(87)//ChR(78)"

And it will still work.
If you want me to make a syntax checker just let me know.

[dimava]

thanks.... it works