Maluk Problem

Iskam samo da popitam zаshto dolnia kod ne raboti korеktno.Celta mu e da vzeme dadan tekst(s cheten broi znakove) i da razdeli bukvite po dve posle da napravi nikoi spraviki.Spored men koda triabva da iskara dve съобщения, а той изкарва само едно ("В").

Private Sub Form_Load()



   Dim str As String

   Dim strread As String

   Dim strlen As Integer

   Dim count As Integer

   str = "d80e"

   strlen = Len(str)

   For count = 1 To strlen Step 2

      strread = Left(str, 1 + count)

      Select Case strread

      Case "d8"

         MsgBox ("B")

      Case "0e"

         MsgBox ("C")

      End Select

  Next count



End Sub

---------------------------
(Корекция: Тагове, за да не се размества кода. Щирлиц)

Защото изкарваш от стринга само лявата му страна. А това не пасва със указания Case.

това:
Left(str, 1 + count)

Трябва да го заместиш със:
Mid(str, count, 2)

За повече подробности по отношение на Mid(...), погледни документацията. В краен случай, ще ти опиша тук всичко, което имам за това.

----------------------------------
помислих, хареса ми, помислих пак...

твърдението на щирлиц е правилно - не сработва, защото втория път стринга е "d80e" и бива отхвърлен. но от това ти нищо не печелиш. аз ще се опитам да ти дам идея как да излизаш от подобни ситуации без да питаш по форумите.

та тука алгоритъма е достатъчно прост, за да си го провериш инструкцияпо инструкция как се изпълнява. тъй като ти си го писал, то трябва да имаш идея какъв ще е резултата от всяка инструкция. просто намери тази инструкция, при кохято резултата се отличава от очаквания. в случая ако го беше направил, това щеше да е left

Abe hora vie za dubeger chuvali li ste ???

"dubeger" ???

----------------------------------
помислих, хареса ми, помислих пак...