IB Statements/InputFile and PrintFile
From CometWiki
InputFile and PrintFile Statements
The Comet32 Compiler and Runtime support very long strings. These statements allow you to manipulate a whole text file with one string. The input of a file may be done either with a statement referencing a LUN for an open Comet file or with a function that specifies the full path to any file.
PrintFile(LUN)string$ InputFIle(LUN)string$ TheFile$ = InputFile(TheFullPath$, excp=FileErr)
An Example:
! Declare Function String Ebcdic2Ascii(Instring$) ! Declare 2 Dynamic strings length Dynamic & local EbcdicString$ AsciiString$ clear print(et) close(1) & open(1)'ebcdic.txt' ! Input file containing Ebcdic close(2) & open(2)'ascii.txt' ! Output file for Ascii text InputFile(1)EbcdicString$ ! Read whole file into the string AsciiString$ = Ebcdic2Ascii(EbcdicString$) ! Translate it printfile(2)AsciiString$ ! Write whole text file with one statement done: print 'done' wait stop end
! This is a user defined string function String Ebcdic2Ascii(Instring$) ! Instring is by reference since it is not declared in the function length 256 & local table$ length dynamic & local a$ length 5.0 & local I L table$ = _ '@000102039C09867F978D8E0B0C0D0E0F@'+_ '@101112139D8508871819928F1C1D1E1F@'+_ '@80818283840A171B88898A8B8C050607@'+_ '@909116939495960498999A9B14159E1A@'+_ '@20A0A1A2A3A4A5A6A7A85B2E3C282B21@'+_ '@26A9AAABACADAEAFB0B15D242A293B5E@'+_ '@2D2FB2B3B4B5B6B7B8B97C2C255F3E3F@'+_ '@BABBBCBDBEBFC0C1C2603A2340273D22@'+_ '@C3616263646566676869C4C5C6C7C8C9@'+_ '@CA6A6B6C6D6E6F707172CBCCCDCECFD0@'+_ '@D17E737475767778797AD2D3D4D5D6D7@'+_ '@D8D9DADBDCDDDEDFE0E1E2E3E4E5E6E7@'+_ '@7B414243444546474849E8E9EAEBECED@'+_ '@7D4A4B4C4D4E4F505152EEEFF0F1F2F3@'+_ '@5C9F535455565758595AF4F5F6F7F8F9@'+_ '@30313233343536373839FAFBFCFDFEFF@' A$ = "" L = len(Instring$) for I = 1 to L A$ = A$ + Sub(table$,asc(sub(Instring$,i,1))+1,1) next I Procreturn a$ end