Renderer Posted June 2, 2016 Share Posted June 2, 2016 Hello there ! Is there any posibility to convert a letter into a number? For example A into 1. Thanks in advance Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted June 2, 2016 Moderators Share Posted June 2, 2016 Renderer, Perhaps Asc() will do what you want? M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Moderators JLogan3o13 Posted June 2, 2016 Moderators Share Posted June 2, 2016 Or, if you're looking for a 1-26 conversion, something like this perhaps: $abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" MsgBox(0, "", convert(9)) Func convert($n) return StringMid($abc, $n, 1) EndFunc Skysnake 1 "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum! Link to comment Share on other sites More sharing options...
water Posted June 2, 2016 Share Posted June 2, 2016 If you need to translate Excel column letters to numbers (or vice versa) then there is a function available in the Excel UDF. My UDFs and Tutorials: Spoiler UDFs: Active Directory (NEW 2024-07-28 - Version 1.6.3.0) - Download - General Help & Support - Example Scripts - Wiki ExcelChart (2017-07-21 - Version 0.4.0.1) - Download - General Help & Support - Example Scripts OutlookEX (2021-11-16 - Version 1.7.0.0) - Download - General Help & Support - Example Scripts - Wiki OutlookEX_GUI (2021-04-13 - Version 1.4.0.0) - Download Outlook Tools (2019-07-22 - Version 0.6.0.0) - Download - General Help & Support - Wiki PowerPoint (2021-08-31 - Version 1.5.0.0) - Download - General Help & Support - Example Scripts - Wiki Task Scheduler (2022-07-28 - Version 1.6.0.1) - Download - General Help & Support - Wiki Standard UDFs: Excel - Example Scripts - Wiki Word - Wiki Tutorials: ADO - Wiki WebDriver - Wiki Link to comment Share on other sites More sharing options...
mikell Posted June 2, 2016 Share Posted June 2, 2016 Wasn't it letter into a number ? $abc = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" MsgBox(0, "", convert("I") ) Func convert($n) return StringInStr($abc, $n) EndFunc Link to comment Share on other sites More sharing options...
Renderer Posted June 2, 2016 Author Share Posted June 2, 2016 Sorry for the mistake in the title ! I meant 'number' ! Link to comment Share on other sites More sharing options...
Trong Posted June 2, 2016 Share Posted June 2, 2016 Like this? ConsoleWrite("FA = " & _HexToDecimal("Fa") & @CRLF) MsgBox(0, "Str2Num", "FA = " & _HexToDecimal("Fa")) Func _HexToDecimal($HxD, $xSN = 1) $HxD = StringStripWS($HxD, 8) If StringLeft($HxD, 2) = "0x" Then $HxD = StringMid($HxD, 3) If StringIsXDigit($HxD) = 0 Then If $xSN = 1 Then Return Number($HxD) Return SetError(1, 0, "") EndIf Local $x, $HxD_TMP, $xOutput, $HxD_Count = 0, $HxD_Array = StringSplit($HxD, "") For $x = $HxD_Array[0] To 1 Step -1 $HxD_TMP = StringInStr("0123456789ABCDEF", $HxD_Array[$x]) - 1 $xOutput += $HxD_TMP * 16 ^ $HxD_Count $HxD_Count += 1 Next Return $xOutput EndFunc ;==>_HexToDecimal Regards, Link to comment Share on other sites More sharing options...
jguinch Posted June 2, 2016 Share Posted June 2, 2016 (edited) strange way MsgBox(0, "", convert("A")) Func convert($n) Return StringRegExp($n, "(?i)^[a-z]$") ? Number(StringToBinary (StringLower($n))) - 96 : 0 EndFunc MsgBox(0, "", convert("b")) Func convert($n) Return StringRegExp($n, "(?i)^[a-z]$") ? Asc($n) - 96 : 0 EndFunc Edited June 2, 2016 by jguinch Spoiler Network configuration UDF, _DirGetSizeByExtension, _UninstallList Firefox ConfigurationArray multi-dimensions, Printer Management UDF Link to comment Share on other sites More sharing options...
MilesAhead Posted June 2, 2016 Share Posted June 2, 2016 4 hours ago, Renderer said: Sorry for the mistake in the title ! I meant 'number' ! Well you know what they say about computers. Mubers in, mubers out. My Freeware Page Link to comment Share on other sites More sharing options...
Moderators JLogan3o13 Posted June 2, 2016 Moderators Share Posted June 2, 2016 And @Trong wins the Rube Goldberg machine award yet again... "Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball How to get your question answered on this forum! Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now