Пропажа двух символов из стринга:(

[vvs_adm]

Что-то я ну совсем в шоке

Предыстория : через винсок передаю строго строки вида "ХХ" & набор символов с кодом в интервале 33-49 & " " В итоге пробел означает конец команды. Ничего умнее не придумал, чтобы в данной задаче решить проблему разбиения пакетов. Так вот код:

Код: Выделить всё

Private Sub wnsSock_DataArrival(ByVal bytesTotal As Long)
    Dim sBufer As String
    Dim sCommand As String
    Dim sFullBufer As String
    Dim nSpacePos As Long
   
    wnsSock.GetData sBufer
   
    sFullBufer = sFullBufer & sBufer
    nSpacePos = InStr(1, sFullBufer, " ")
'Static bFlag As Boolean
'If Not bFlag Then Me.Caption = sFullBufer: bFlag = True
    Do While nSpacePos > 0
'Static bFlag As Boolean
'If Not bFlag Then Me.Caption = sFullBufer: bFlag = True
        sCommand = Left$(sFullBufer, nSpacePos - 1)
        sFullBufer = Right$(sFullBufer, Len(sFullBufer) - nSpacePos)
        nSpacePos = InStr(1, sFullBufer, " ")
        Select Case Left$(sCommand, 2)
            Case ТипКоманды:
                <CUT>
        End Select
    Loop
End Sub

Так вот, если расскоментировать первый блок, то в каптион вписывается "ТК****************" (ТК - тип команды), а вот если расскоментировать второй блок (без первого ессно), то в каптион вписывается только почему-то "*****************", в итоге в селект не заходит, так как тип команды ("**") неизвестный А куда делись два символа то Что-то никак Попробую утром врубиться... Фокус какой-то.

[GSerg]

Ты это...
Объявление sFullBufer-то вынеси за пределы DataArrival...

[vvs_adm]

P.S.: и всего то две бутылки пива выпил А врубиться ни в какую не мог Еще там остальная строка была циклическая, поэтому визуально пропадало именно два первые символа, хотя на самом деле совсем не два

[Amed]

Static заюзать?