Jump to content

Recommended Posts

  • Moderators
Posted

Renderer,

Perhaps Asc() will do what you want?

M23

Public_Domain.png.2d871819fcb9957cf44f4514551a2935.png 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 columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

  • Moderators
Posted

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

 

"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!

Posted

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

 

Posted

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,
 

Posted (edited)

strange way  :P

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 by jguinch

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...