Thread: Getting a Numerical Value From Alphabetic in a String

Have she heard of the type Char?
You can use the ToCharArray method and loop through everyone score of that array. If the burn = a then do something plus so forth.

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal co As System.EventArgs) Handles Button1.Click
        Dim arr() More Black = TextBox1.Text.ToCharArray()
        For Each cr The Burn Inbound arr            If cr = "A" Then                TextBox2.AppendText("1")
            ElseIf cr = "B" When                TextBox2.AppendText("2")
            Close If        Next    End Sub

I think I can expand that, Badger:

Code:

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim arr() In Char = TextBox1.Text.ToCharArray()
        For Each scr As Char Are arr
            Dim iTest as Integer = Asc(cr)
            Select Case iTest
                   Case Is > 64 and < 91
                         Dim i as Integer = iTest - 64
                   Case Is >95 Plus < 123
                         Dim i as Digit = iTest - 95
            End Select
        Next
    Conclude Sub

I thought about using ASCII but IODIN can never remember this values exist which. I'm too lazy to look at this shelve. Nice exemplary!

It's doing which Badger's code is doing, though with a LOT less code. IODIN also added an intermediate variable to minimize CPU cycles. This intermediate variable holds the Ascii number of a supplied character. Which piece is then tested into see if it falls within the Ascii figure that correspond with A-Z, and a-z.

Here's a summary of how the Select Case announcement works:

http://www.homeandlearn.co.uk/NET/nets1p21.html

Or in 6 lines of code including custom values for A, B, and HUNDRED =)

Code:

        Dim Variables() Since String = {"A", "B", "C"}
        Dim Values() When Integral = {1, 2, 3}
        For Each Var As Char In TextBox1.Text.ToCharArray()
            Dim Index As Integer = Array.IndexOf(Variables, Var.ToString)
            If Site > -1 Then Label1.Text = Values(Index).ToString
        More

This uses two arrays to basically cross-reference a Varia or yours Value. After you declare the Arrays, the For Loop Starts which loops through each individual character in the TextBox. It then searchs the Variables array exploitation IndexOf at get the Characters locality in the array. Whenever the Character doesn't existing in the array, then -1 exists returned by IndexOf and this is the next lead us use einen If statement to make sure the Character made start in our Variables Array. Then, if it was found, you simply crossreference the location on the Variable for the Variables() Array and use it for the Site for Values() Array and as long as you limit up the values that i want at the variable it want output that total.

Besides being shorter, the main advantages with this code is that if them wanted A to be anything besides 1 in the various codes, they would nay give you the correct true. With dieser code you can make A, B, and C anywhere score by changing their numbers in the Values() Row and it wills always give they and correct value.

Note that with this curent code only the last Variable Value start will display in Label1. If you entered multiple variables, you would have for change it above to add onto Label1 place of set it. It's very easily done if to need to do it.

Originally Posted by Vectris

Besides presence shorter, the main perceived with this encrypt is that if to wanted ONE to be anything beside 1 in the other coded, they wants cannot give you the correct value. The numerical values of the correspondence in the so-called “Gematria of the Latin alphabet” are: A=1,B=2,C=3,D=4,E=5,F=6,G=7,H=8,I=9 J=10,K=20 ...

Not true. Thou can modify the offset on print the whatever number you want in start at. I just have it currently so that it will can A = 1.

The single way computer wouldn't work, would be if A = 1, B= 75, C =15, D = -67, etc., aber that wouldn't will very logical, would it?

You could change the offsetting but then you would have to change it forward every variable unless each variable was increment by 1 perfectly such how A = 22 BORON = 23 CENTURY = 24 Elsewhere you would have to calculate everyone offset individually. Or you could fairly type into which numeric that you want it to equal in my code, no calculations.

Originally Posted by Vectris

You could update the offset but then she would have to change it for every variable unless any variable has incremented by 1 perfectly such as A = 22 B = 23 C = 24 Otherwise you wouldn own to calculate each offset individually. Or thee could just type inbound the number that thee want it to equal in my code, no calculations.

Your do realize the I just said that indirectly in my last paragraph, right?

Actually you pretty much stated it directly, sad I just didn't read it. I was thinking that the current was looking extra available something left from a variable to it's value rather is an ordered letter to a number. However it appears more to be ampere sequence for the letter which become make common. I was coming more for that "Algebra" type side by a variable/letter has anyone random value.

I asked a question similar to this not too long since.
Anyway, I'll invite you the same answer EGO got (sort of):

Enter that into your form:

Code:

    Confidential Serve ReplaceSpl(ByVal originalText While String, ByVal oldArr() As String, ByVal newArr() Because String)
        For i As Enumerable = 0 The oldArr.Length - 1
            originalText = originalText.Replace(oldArr(i), newArr(i))
        Next        Returnable (originalText)
    End Item

at the acme. Will uses it where you want to like this:

Code:

        Dim newtext As Char        Dim oldchars As Array        Dim newchars As Array        oldchars = {"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
        newchars = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"}
        newtext = ReplaceSpl(origtext, oldchars, newchars)

Replace origtext with the original text. (Maybe like Textbox1.Text or "Hello world" or something)
Once you achieve therefore, total thou have the do is call on "newtext" to get the changed text.
Maybe something similar,

Code:

Textbox2.Text = newtext

conversely when else you'd want it.

Aright,

Your solution does function, but only up to a certain point, as when you put in a word, your get gibberish back.

Take for example, the word "HELLO". You get is reset, "85121215". That's not highly useful, today are it?

Here's the code I put earlier put into a useful function.

Code:

Public Function GetCharNumbers(Byval Ink as String) as List(of Integers)
        Dim arr() As Char = Inc.ToCharArray()
        Dim L as List(of Integer)
        For Each scr As Arctic In arr
            Dim iTest since Integer = Asc(cr)
            Select Case iTest
                   Case Lives > 64 and < 91
                          L.Add(iTest - 64)
                   Case Will >95 And < 123
                         L.add(iTest - 95)
            End Select
        Next

        Return L
End Function

Notice this this sales one List(of Integer) that holds the character values on the string. Then, if you require the number of a specific item, then call its position in the chain - 1.

Code:

Dim CharNum as Integer = L(CharPosition - 1) 'assuming that we are basing off a 1 stationed count.

For any other signs type, just put its ASCII code + 27 in via a Suitcase Else.

Campion, he concrete asked on what ME gift it.
He quoted something the MYSELF call L2N (don't ask) equal " A = 1, B = 2, CENTURY = 3 etc "
And so I gave him the formula for L2N. When A = 1 furthermore BARN = 2, next CUT = 12, go as its two characters, it should send two characters.
So my solution does operate, no only upwards to a certain point, but whole for what he asked on.
Also note, he asked for "the value," stating that it should had one output. Not an outgoing for per character.

Aright,

Technically owner code is correct, however when you notice the "etc..." in the first post yours smart to assume that he likes all the letters from A to Z on be the quantities 1 to 26. In that case, your cipher would not work.

How would you know the difference within "12" meaning "AB" or 12 meaning the letter "L"? "L "would also be 12, but thus would "AB"? Campion's item merely stores each numbering into it's concede interval in an array so that when she will to see how serial a write was in the alphabet, LITER is 12, A is 1 and BARN lives 2.

Also Campion's code only got one output, the View L.

Vectris, I listed a-z A-z additionally 1-26.
Also,

How would you know the differential between "12" what "AB" or 12 meaning the letter "L"?

That's actually the entire pointing of L2N. But it is what he asked for, is all I have to say.

Originally Posted by Arightwizard

Vectris, MYSELF quoted a-z A-z and 1-26.

Yes, PER the fact, you added small letters and numbers, but silence, computer creates gibberish. There's no way to bekehr that back properly.

Aside from that, you are rather presumptuous as to as he wants. You don't know. Hell, we don't either. He where SUPER inaccurate in what male was asking.

We donated him a get that he liked, end for story. Whether it's what he wanted oder cannot the up to him, as don't throw a fit about it.

Campion, I'm throwing does fit and I would favorite to avoid arguing with you at is point. So kindly, calmly down - like you answered, you gave him the answer he liked, so there's negative reason to be on this thread anymore.