Извлечение номеров из БОЛЬШОГО номера vb

-1

Я в беде по этой проблеме !! Мне нужно извлечь отдельные числа из строки чисел, но с ними все еще в строке. Например ...Извлечение номеров из БОЛЬШОГО номера vb

У меня есть две строки чисел, позволяет сказать, что они оба 1216819, и они должны быть разделены, чтобы сделать

1,2,16,8 и 19.

Тогда мне нужно будет добавить эти отдельные цифры вместе, что должно сделать ...

2,4,32,16 и 38.

Кроме того, я сделал это до сих пор ...

Label2.Text = "Encryption:" 

     Dim Letter() As String = {"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", "a", "b", "c", "d", "e"} 
     Dim Number() As String = {"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", "1", "2", "3", "4", "5"} 
     Dim str As String 


     str = TextBox1.Text 
     TextBox2.Clear() 
     For i = 0 To str.Length - 1 
      For j = 0 To 51 
       If str(i) = Letter(j) Then 
        TextBox2.Text = TextBox2.Text + Number(j) 
        GoTo Line1 
       End If 
      Next 
      TextBox2.Text = TextBox2.Text + str(i) 
     Next 

     Dim Number2() As String = {"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", "1", "2", "3", "4", "5"} 

     str = TextBox3.Text 
     TextBox4.Clear() 
     For i = 0 To str.Length - 1 
      For j = 0 To 51 
       If str(i) = Letter(j) Then 
        TextBox4.Text = TextBox4.Text + Number2(j) 
        GoTo Line2 
       End If 
      Next 
      TextBox4.Text = TextBox4.Text + str(i) 
     Next

Есть ли способ, который может быть более эффективным? Это будет отличная помощь! Thanks

источник

2016-02-11 g head

Может быть, я что-то пропустил ... Вы можете только отделить эту строку в равные «группы» целых чисел (1 или более) .... как вы должны знать, что 16 и 19 в 1216819 должны быть сгруппированы вместе ... вы можете иметь 1,2,1,6,8,1,9 ИЛИ у вас может быть 12,16,81,9, но вы не можете есть 1,2,16,8,19 ... нет ничего (что я вижу), чтобы идентифицировать 16 и 19 в этой строке – Monty

Напиши мне код, чтобы сделать кезер-шифр, используя ключевое слово, пожалуйста, –

Если вы хотите, например, Cesar Cipher, это довольно простой проект.

http://www.codeproject.com/Articles/15202/Implementing-Caesar-Cipher-in-VB-NET

Надежда, что помогает ....

источник

2016-02-12 10:24:32 Monty

good lad cheers –

Есть ли в любом случае вы можете извлечь 3 цифры из строки чисел, вы знаете ??? –

Примите мой ответ как решение сперва ... – Monty

Извлечение номеров из БОЛЬШОГО номера vb

ответ

Смежные вопросы