TranslatorUDG BASin - BAS2TAP

TranslatorBASin es una sencilla utilidad para convertir el formato de los carácteres UDG de BASin "\*" a formato compatible con BAS2TAP "{*}".

Enlace de descarga.(RAR)

Utilización:

- Renombrar el fichero original a convertir como "intro.txt".
- Ejecutar Translator.exe
- La utilidad generará un fichero resultante "output.txt" con todos los carácteres UDG correctamente adaptados a formato compatible BAS2TAP.

Incluye el código fuente que puede ser recompilado con
GLBasic.

LISTADO:

GLOBAL PowerON=1
GLOBAL Check=0
GLOBAL Dato$=""
GLOBAL Linea$=""
GLOBAL Flag_Slash=0

Check=OPENFILE(1,"intro.txt",1)
IF Check=0 THEN END

OPENFILE(2,"output.txt",0)

WHILE PowerON=1

  IF ENDOFFILE(1)=1
    WRITESTR 2,Linea$
    CLOSEFILE 2
    CLOSEFILE 1
    END
  ENDIF

  READSTR 1,Dato$,1

  IF ASC(Dato$)=92 THEN Flag_Slash=1

  IF ASC(Dato$)=13
    IF Flag_Slash=0
      WRITESTR 2,Linea$
      WRITEBYTE 2,13
      WRITEBYTE 2,10
      READSTR 1,Dato$,1
      Linea$=""
      READSTR 1,Dato$,1
      Linea$=Linea$+Dato$
    ELSE
      Flag_Slash=0
      Parser(Linea$)
    ENDIF
  ELSE
    Linea$=Linea$+Dato$
  ENDIF

WEND

FUNCTION Parser: Texto$
  LOCAL Posicion=0
  LOCAL Caracter$=""
  LOCAL Letra$=""
  LOCAL Nueva_Linea$=""
  LOCAL Longitud=LEN(Texto$)
  WHILE Posicion<Longitud
    Caracter$=MID$(Texto$,Posicion,1)
    Posicion=Posicion+1
    IF ASC(Caracter$)=92
      Letra$=MID$(Texto$,Posicion,1)
      Posicion=Posicion+1
      Caracter$="{"+Letra$+"}"
    ENDIF

    Nueva_Linea$=Nueva_Linea$+Caracter$
  WEND

  Linea$=Nueva_Linea$
ENDFUNCTION

No hay comentarios: