"xy"を "x"と "y"に変換する

Question

私はvbで文字列を分割する方法について多くの例を見てきましたが、それらを私のために働かせることはできませんでした。

私が解決しようとしている問題は、座席番号が「A1」で、2つの変数が「A」、次に「1」になりたいということです。 Aの値を1にすることもできます。ASCII変換を知っていると非常に便利ですが、 "B"を2とすることも覚えておいてください。

If currentShowingID = BookingDetails(y).ShowingID Then 
    tempSeat = BookingDetails(y).SeatNO 
    Dim seat As String() = Split(tempSeat, "") 
    Dim down As String = seat(0) 
    Dim across As Integer = seat(1) 
End If 

Answer 1

ASCIIテーブルが...それが表すことができるすべての文字のコードを持っているので、

• A => 65
• B => 66
• C => 67
• ...
• Z => 90

...つまり、1から始まる各文字を表す数値を取得するには、その文字のASCIIコードから64を引く必要があります。以下のコードは、あなたが手紙を持っている場合、あなたの席は常に、一方では... ...

Dim location As String 
    location = "B1" 

    Dim row As Char 
    Dim rowId As Int32 
    Dim number As Char 

    row = location.Chars(0) 
    rowId = Asc(row) - 64 
    number = location.Chars(1) 

    Console.WriteLine($"Location: {location} | Row: {row}({rowId}) | Number: {number} |") 
    Console.ReadKey() 

を2つの文字（例：A1、C5 D9）を持っているだろうと仮定して、あなたのために正常に動作する必要がありますAZと9（例：A20、K15）よりも大きくすることができる数字から、私はそれをテストし、私たちが知っている...など

Dim number As Int32 

    [...] 

    row = location.Chars(0) 
    rowId = Asc(row) - 64 

    number = 0 
    Int32.TryParse(location.Substring(1), number) 

...として、別のパスを取るためにあなたをお勧めします！