VB code in PB

[sen-me]

wie kann man dies in PB code übersetzen?

Code: Alles auswählen

Dim Symb
 Dim SymbNo As Integer
 Dim i As Integer
 If Trim(strLine) <> "" Then
  Symb = Scan(strLine)
  Select Case LCase(Symb(0))
   Case "dim"
    ' Hier Programmteil DIM
   Case "if"
    ' Hier Programmteil IF ... THEN
   Case "goto"
    ' Hier Programmteil GOTO
   Case "do"
    ' Hier Programmteil DO
   Case "loop"
    ' Hier Programmteil LOOP
   Case "print"
    ' Hier Programmteil PRINT
   Case Else
    If UBound(Symb) > 0 Then
     If Symb(1) = "=" Then
      ParseTerm strLine
     ElseIf Mid(Symb(0), 1, 1) = "#" Then
      ' Hier Labelinitialisierung
     Else
      MsgBox "Syntaxfehler.", vbCritical, "Fehler"
     End If
    End If
  End Select
 End If

[ts-soft]

Das läß sich so kaum übersetzen. Du kannst z.B. LinkListen verwenden für die einzelnen Zeilen.
Das Parsen könnte vereinfacht so aussehen:

Code: Alles auswählen

Select LCase(Trim(StringField(Symb.s, 1, " ")))
  Case "dim"
  Case "if"
  Default
    
EndSelect

wobei hierbei nur eine Zeile berücksichtigt ist

[sen-me]

und wie geht das?
If UBound(Symb) > 0 Then

[ts-soft]

und wie geht das?
If UBound(Symb) > 0 Then

UBound gibt es in PureBasic nicht, brauchst Du ja auch nicht, wenn Du LinkListen verwendest.
1:1 übersetzen geht nicht, Du mußt schon die Aufgabe des Codes in VB in eine Aufgabe von PB wandeln.

[Falko]

Aber nachmachen kann man ihn in PB , wie man an rings Beispielsource sieht.

http://forums.purebasic.com/english/vie ... 3310#63310

MfG Falko