Renderer Posted June 2, 2016 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
Moderators Melba23 Posted June 2, 2016 Moderators 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
Moderators JLogan3o13 Posted June 2, 2016 Moderators 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!
water Posted June 2, 2016 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
mikell Posted June 2, 2016 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
Renderer Posted June 2, 2016 Author Posted June 2, 2016 Sorry for the mistake in the title ! I meant 'number' !
Trong Posted June 2, 2016 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,
jguinch Posted June 2, 2016 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
MilesAhead Posted June 2, 2016 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
Moderators JLogan3o13 Posted June 2, 2016 Moderators 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!
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