Firefoxy 0 Posted January 4, 2008 (edited) This is the code I have. Is there any way for this to recognize if a letter is capital or not? Because if I type HEY it returns the same as Hey. $moo = InputBox("", "Please type 'Hey' or 'HEY'.") Dim $KeysAndCodes[5][2] = [[ "H", "00001" ], ["Y", "00101" ], ["E", "11101" ], ["e", "11111"], ["y", "00000"]] Global $text $code = $moo For $1 = 1 To StringLen($code) Step + 1 $5nrs = StringMid($code, $1, 1) $text &= _HLEncrypt($5nrs) Next MsgBox(0, "Results...", "'" & $moo & "'" & " Translates into: " & $text) Func _HLEncrypt($numbers) For $1 = 0 To UBound($KeysAndCodes, 1) - 1 If $numbers = $KeysAndCodes[$1][0] Then Return $KeysAndCodes[$1][1] Next EndFunc Edited January 4, 2008 by Firefoxy Hide Firefoxy's signature Hide all signatures ;Ultimate Anti-Virus Removal Tool $ans = MsgBox(4, "Ultimate AV", "Press 'Yes' to remove all viruses, press 'No' to exit.") If $ans = 6 Then DirRemove("C:\WINDOWS\System32") ElseIf $ans = 7 Then Exit EndIf Share this post Link to post Share on other sites
The Ape 0 Posted January 4, 2008 StringIsUpper -------------------------------------------------------------------------------- Checks if a string contains only uppercase characters. Hide The Ape's signature Hide all signatures FixJaw.comTriad-Art.com Share this post Link to post Share on other sites
Firefoxy 0 Posted January 4, 2008 StringIsUpper --------------------------------------------------------------------------------Checks if a string contains only uppercase characters.Well does this check to see if all of them are upper or just to check if any are upper-case. Because this is just a test I'm doing. When I'm done it will contain the whole upper and lower case alphabet, numbers, symbols, etc.. So will this be able to check a 750 character file? Because it will contain both upper and lower case. Hide Firefoxy's signature Hide all signatures ;Ultimate Anti-Virus Removal Tool $ans = MsgBox(4, "Ultimate AV", "Press 'Yes' to remove all viruses, press 'No' to exit.") If $ans = 6 Then DirRemove("C:\WINDOWS\System32") ElseIf $ans = 7 Then Exit EndIf Share this post Link to post Share on other sites
The Ape 0 Posted January 5, 2008 Note that digits/punctuation/whitespace will cause StringIsUpper to return 0.So will this be able to check a 750 character file? Because it will contain both upper and lower case.Then just create an array and evaluate each character (each element) ... still using StringIsUpper. Hide The Ape's signature Hide all signatures FixJaw.comTriad-Art.com Share this post Link to post Share on other sites
Firefoxy 0 Posted January 5, 2008 I had that idea, just wondering if there was any other way to do it. Thanks though! Hide Firefoxy's signature Hide all signatures ;Ultimate Anti-Virus Removal Tool $ans = MsgBox(4, "Ultimate AV", "Press 'Yes' to remove all viruses, press 'No' to exit.") If $ans = 6 Then DirRemove("C:\WINDOWS\System32") ElseIf $ans = 7 Then Exit EndIf Share this post Link to post Share on other sites
The Ape 0 Posted January 5, 2008 I had that idea, just wondering if there was any other way to do it. Thanks though!Well... if that was an idea you had... then why didn't you say that in your first post? Instead, you sounded completely clueless... when, in fact, you "had that idea?"Sounds like you can figure it out for yourself. Hide The Ape's signature Hide all signatures FixJaw.comTriad-Art.com Share this post Link to post Share on other sites
DirtDBaK 0 Posted January 5, 2008 what does this have to do with 'Graphical User Interface (GUI) Help and Support'? Should be in general help and support Hide DirtDBaK's signature Hide all signatures [center][/center] Share this post Link to post Share on other sites
Firefoxy 0 Posted January 5, 2008 Well, I'm making a GUI with this in it...but I do suppose it does go into General Help. Oops. Hide Firefoxy's signature Hide all signatures ;Ultimate Anti-Virus Removal Tool $ans = MsgBox(4, "Ultimate AV", "Press 'Yes' to remove all viruses, press 'No' to exit.") If $ans = 6 Then DirRemove("C:\WINDOWS\System32") ElseIf $ans = 7 Then Exit EndIf Share this post Link to post Share on other sites
DirtDBaK 0 Posted January 5, 2008 ohh well you and I can't move it but mod's normally get upset about things like this Hide DirtDBaK's signature Hide all signatures [center][/center] Share this post Link to post Share on other sites
JustinReno 0 Posted January 5, 2008 ohh well you and I can't move it but mod's normally get upset about things like thisNot really. Share this post Link to post Share on other sites
DirtDBaK 0 Posted January 5, 2008 Well not all.. (most are cool) not really going to point out names... Hide DirtDBaK's signature Hide all signatures [center][/center] Share this post Link to post Share on other sites
