PB9 + FSO

[Димитрий]

1. Нет ли у кого-нибудь хорошего примера, не могу найти.
2. viewtopic.php?f=23&t=43435 к сожалению прога не работает под Windows2000. Хотел сделать читалку файла powerbasic.gbs. Файл текстовый 3Мб. Думаю FSO будет шустро читать, или воспользоваться чем-то другим?
3. Код читает 1 символ вместо сроки, не пойму почему?

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

LOCAL str AS STRING
  LOCAL oFso AS DISPATCH, oFiles AS DISPATCH, oTS AS DISPATCH
  LOCAL vF AS VARIANT, vFiles AS VARIANT, vTS AS VARIANT

    SET oFso = NEW DISPATCH IN "Scripting.FileSystemObject"
    IF ISFALSE ISOBJECT(oFso) THEN
        MSGBOX "NO FSO"
        EXIT FUNCTION
    END IF
 
    vF = sF
    OBJECT CALL oFso.GetFile(vF) TO vFiles
    SET oFiles = vFiles
   
    OBJECT CALL oFiles.OpenAsTextStream TO vTS
    SET oTS = vTS
   
    OBJECT CALL oTS.SkipLine
    OBJECT CALL oTS.ReadLine TO str

    MSGBOX str
   
'  ts.Close

    SET oFso = NOTHING

[Димитрий]

1 примеры - http://www.jose.it-berater.org/smfforum/index.php?board=321.0
2 scrrun.inc - подключите для работы с FSO
3 корректный код для чтения всего файла:

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

FUNCTION OpenFileFSO (sF AS ASCIIZ) AS STRING
  'LOCAL str AS STRING
  LOCAL fso   AS IFileSystem
  LOCAL pFile AS IFile
  LOCAL pStm  AS ITextStream
 
    fso = NEWCOM "Scripting.FileSystemObject"
    pFile = fso.GetFile(UCODE$(sF))
    pStm = pFile.OpenAsTextStream(%IOMode_ForReading, %TristateUseDefault)

    'pStm.SkipLine
    FUNCTION = ACODE$(pStm.ReadAll)
    'str = ACODE$(pStm.ReadLine)
    pStm.Close

    SET fso = NOTHING
END FUNCTION

[sh2ezo]

А где взять этот scrrun.inc? В папке с инклюдами нет, а на www.jose.it-berater.org рега закрыта.

[Димитрий]

http://bbs.vbstreets.ru/viewtopic.php?f=23&t=37951
файл winAPI_115, там много чего полезного

[sh2ezo]

благодарю xD)))