CNC Fórum

Kód: Vybrat vše

A00.00B00.00\n

Kód: Vybrat vše

Dim str As String = sp.ReadLine()
If Left( str, 1 ) = "A" Then              ' začíná řádek "A"? (pokud ne, pokračujeme dalším řádkem)
  dim bPos as Integer = InsStr( str, "B" )
  if bPos > 1 then                           ' Je tam někde "B"?  (pokud ne, zase pokračujeme dalším řádkem)
    dim strX as string            ' X
    dim strDX as string           ' DeltaX
    strX = Mid( Left( str, bPos-1 ), 2 )       ' první číslo mezi A a B
    strDX = Mid( bPos+1 )                         ' 2. číslo mezi B a koncem 
    try
      dim X as double
      dim DX as double
      X = Convert.ToDouble( strX )      
      DX = Convert.ToDouble( strDX )
      ' teď s tím X a DX něco udělat
      ' polohaXtb....
      ' Invoke.....
      ' **** sem se hodí nějaký Delay( třeba 200 => refresh 5× za vteřinu, to je až-až) následovaný DiscardInBuffer()
    catch e Exception
      ' chyby ignorujeme, zkusíme další řádek
    end try
  End If  ' máme pozici "B"
End If    ' string začíná "A"