2003-10-25 08:08

'From: "Bernt Figaro" Sat, 25 Oct 2003 00:04:56 +0200

'I have 2 functions for translate between DOS and WINDOWS and viceversa.
'Here is the fastest one...
     REM msdos2win
     DECLARE FUNCTION OemToChar LIB "user32" ALIAS "OemToCharA" (BYVAL lpszSrc AS STRING, _
      BYVAL lpszDst AS STRING) AS LONG
     DECLARE FUNCTION CharToOem LIB "user32" ALIAS "CharToOemA" (BYVAL lpszSrc AS STRING, _
      BYVAL lpszDst AS STRING) AS LONG

     FUNCTION dos2win(DosText AS STRING) AS STRING
      REM
      REM Task: The functions convert a MsDos text in a Windows text AND viceversa.
      REM Inputs: strings TO convert
      REM Returns:strings converted
      DIM Dos$, Oem$
      Dos$ = DosText
      Oem$ = SPACE$(255)
      OemToChar Dos$, Oem$
      dos2win = Oem$
     END FUNCTION

2003-10-25 08:08