IsCharAlphaNumeric

[Skitty 45]

This function is driving me nuts, I can't figure out why it's not working at all, basically it's returning randomized values that are never consistent.

Anyone know what I'm doing wrong? basically I need to know when a character is one of those special characters, you'll see what I mean when you copy/paste it into scite..

$Test = _IsAlphaNumetric("1"); should return 1
MsgBox(64,"test 1","Return: " & $Test & @CR & "@Error: " & @Error)

$Test = _IsAlphaNumetric("A"); should return 1
MsgBox(64,"test 2","Return: " & $Test & @CR & "@Error: " & @Error)

$Test = _IsAlphaNumetric(";"); should return 0
MsgBox(64,"test 3","Return: " & $Test & @CR & "@Error: " & @Error)

$Test = _IsAlphaNumetric("`"); should return 0
MsgBox(64,"test 4","Return: " & $Test & @CR & "@Error: " & @Error)

$Test = _IsAlphaNumetric("*"); should return 0
MsgBox(64,"test 5","Return: " & $Test & @CR & "@Error: " & @Error)

$Test = _IsAlphaNumetric(""); should return 0
MsgBox(64,"test 6","Return: " & $Test & @CR & "@Error: " & @Error)

$Test = _IsAlphaNumetric(""); should return 0
MsgBox(64,"test 7","Return: " & $Test & @CR & "@Error: " & @Error)

Func _IsAlphaNumetric($Value)
    $Char = DllStructCreate("char")
    DllStructSetData($Char,1,$Value)
    local $aReturn = DllCall("User32.dll","int","IsCharAlphaNumericA","ptr",DllStructGetPtr($Char,1))
    If @error Then Return SetError(1,0,0)
    Return SetError(0,0,$aReturn[0])
EndFunc

[guinness 1,459]

Why not StringIsAlpha?

[Skitty 45]

Well.. What I'm really trying to do is determine if a character is a control code character, what can I do to determine if a character is a control code character? preferably without using an array of any sort.

[jchd 1,007]

Note that you were using Char in the struct (implies conversion to ANSI) and the ANSI version of IsCharAlphaNumericA so don't expect it to give consistent result in case your character is outside (your own) ANSI codepage.

Control characters are grouped in ranges: 0x00 .. 0x1F plus 0x7F for the ANSI encoding. For Unicode there are also supplementary control characters 0x80 .. 0x9F (seldom use).

A simple Switch on AscW($char) would tell you.

Edited March 18, 2012 by jchd

[JohnOne 1,589]

Func _blah($c)
    If Asc($c) > 0 And Asc($c) < 32 Then Return True
    Return False
EndFunc

?

EDIT:

That's how slow I am

It took me seven minutes to check the Asc func and type that out

Edited March 18, 2012 by JohnOne

[KaFu 185]

$Test = _IsAlphaNumetric("1"); should return 1
MsgBox(64, "test 1", "Return: " & $Test & @CR & "@Error: " & @error)

$Test = _IsAlphaNumetric("A"); should return 1
MsgBox(64, "test 2", "Return: " & $Test & @CR & "@Error: " & @error)

$Test = _IsAlphaNumetric(";"); should return 0
MsgBox(64, "test 3", "Return: " & $Test & @CR & "@Error: " & @error)

$Test = _IsAlphaNumetric("`"); should return 0
MsgBox(64, "test 4", "Return: " & $Test & @CR & "@Error: " & @error)

$Test = _IsAlphaNumetric("*"); should return 0
MsgBox(64, "test 5", "Return: " & $Test & @CR & "@Error: " & @error)

$Test = _IsAlphaNumetric(""); should return 0
MsgBox(64, "test 6", "Return: " & $Test & @CR & "@Error: " & @error)

$Test = _IsAlphaNumetric(""); should return 0
MsgBox(64, "test 7", "Return: " & $Test & @CR & "@Error: " & @error)

Func _IsAlphaNumetric($Value)
    $iAsc = Asc($Value)
    If ($iAsc > 47 And $iAsc < 58) Or ($iAsc > 64 And $iAsc < 91) Or ($iAsc > 96 And $iAsc < 123) Then Return 1
    Return 0
EndFunc   ;==>_IsAlphaNumetric

[Skitty 45]

@jhcd

Now that you point that out I see how pointless it was what I was doing. Now that I understand the function a little more I see it's not at all what I needed.

@JohnOne

@KaFu

That's more or less what I should be doing I guess, and the reason I mentioned that this should be done preferably without using an array is because that was another method I was thinking about.

Thanks for the help!

[jchd 1,007]

You told us about control chars, so you got it!

Now if you stick to ANSI (your codepage) alphameric chars, I'd do:

StringIsAlNum($s)

If your need is different, then tell us precisely what it is. Maybe the easiest way is simply using a StringRegExp but we need to know which logic to put in the pattern to determine a match.

[Skitty 45]

You told us about control chars, so you got it!

Now if you stick to ANSI (your codepage) alphameric chars, I'd do:

StringIsAlNum($s)

Wow, I can't believe I didn't find that function before...

Now I just feel stupid for trying to use the original one I posted before.

If your need is different, then tell us precisely what it is. Maybe the easiest way is simply using a StringRegExp but we need to know which logic to put in the pattern to determine a match.

No, after everything posted here, I guess we can say I've already got everything sorted

So my thanks to everyone who posted!