IB Statements/InputFile and PrintFile - Revision history

Barb: /* InputFile and PrintFile Statements */

2013-03-06T22:34:27Z

InputFile and PrintFile Statements

← Older revision		Revision as of 22:34, 6 March 2013
Line 1:		Line 1:
	=InputFile and PrintFile Statements=		=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. They both support syntax ~~for~~ either ~~with a statement referencing~~ a LUN for an open Comet file or ~~with a function that specifies~~ the full path to any file.	+	The Comet32 Compiler and Runtime support very long strings. These statements allow you to manipulate a whole text file with one string. They both support syntax using either a LUN for an open Comet file or the full path to any file.

	PrintFile(LUN)string$		PrintFile(LUN)string$

2013-03-06T22:31:56Z

InputFile and PrintFile Statements

← Older revision		Revision as of 22:31, 6 March 2013
Line 1:		Line 1:
	=InputFile and PrintFile Statements=		=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.	+	The Comet32 Compiler and Runtime support very long strings. These statements allow you to manipulate a whole text file with one string. They both support syntax for 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$	+	PrintFile(LUN)string$
		+	PrintFile TheFullPath$ string$
	InputFIle(LUN)string$		InputFIle(LUN)string$
	TheFile$ = InputFile(TheFullPath$, excp=FileErr)		TheFile$ = InputFile(TheFullPath$, excp=FileErr)

2012-06-06T21:03:46Z

← Older revision		Revision as of 21:03, 6 June 2012
Line 56:		Line 56:
	Procreturn a$		Procreturn a$
	end		end
		+
		+	Another example using the function:
		+	length dynamic & local TheFile$,TheFullPath$
		+
		+	clear
		+	TheFullPath$ = "c:\download\FileFromOutsideSource.txt"
		+	TheFile$ = InputFile(TheFullPath$)
		+	! TheFile$ now contains the contents of the entire file

2012-06-06T20:58:07Z

← Older revision		Revision as of 20:58, 6 June 2012
Line 1:		Line 1:
	=InputFile and PrintFile Statements=		=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 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$		PrintFile(LUN)string$
	InputFIle(LUN)string$		InputFIle(LUN)string$
		+	TheFile$ = InputFile(TheFullPath$, excp=FileErr)
	An Example:		An Example:
	! Declare Function		! Declare Function

2010-01-15T00:33:07Z

Minor

← Older revision		Revision as of 00:33, 15 January 2010
Line 1:		Line 1:
-	InputFile and PrintFile Statements	+	=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 Comet32 Compiler and Runtime support very long strings. These statements allow you to manipulate a whole text file with one string.

2010-01-15T00:19:57Z

Minor

← Older revision		Revision as of 00:19, 15 January 2010
Line 12:		Line 12:
	print(et)		print(et)

-	close(1) & open(1)'ebcdic.txt' ! Input file containing Ebcdic	+	close(1) & open(1)'ebcdic.txt' ! Input file containing Ebcdic
-	close(2) & open(2)'ascii.txt' ! Output file for Ascii text	+	close(2) & open(2)'ascii.txt' ! Output file for Ascii text

-	InputFile(1)EbcdicString$ ! Read whole file into the string	+	InputFile(1)EbcdicString$ ! Read whole file into the string
-		+	AsciiString$ = Ebcdic2Ascii(EbcdicString$) ! Translate it
-	~~AsciiFile~~$ = Ebcdic2Ascii(EbcdicString$) ! Translate it	+	printfile(2)AsciiString$ ! Write whole text file with one statement
-	printfile(2)AsciiString$ ! Write whole text file with one statement	+
	done:		done:
	print 'done'		print 'done'

2010-01-15T00:15:26Z

Minor

← Older revision		Revision as of 00:15, 15 January 2010
Line 29:		Line 29:
	length 256 & local table$		length 256 & local table$
	length dynamic & local a$		length dynamic & local a$
-	length 5.0 & local ~~i l~~	+	length 5.0 & local I L

	table$ = _		table$ = _
Line 48:		Line 48:
	'@5C9F535455565758595AF4F5F6F7F8F9@'+_		'@5C9F535455565758595AF4F5F6F7F8F9@'+_
	'@30313233343536373839FAFBFCFDFEFF@'		'@30313233343536373839FAFBFCFDFEFF@'
-	A$ = ''	+	A$ = ""
-	l = len(Instring$)	+	L = len(Instring$)
-	for i = 1 to l	+	for I = 1 to L
	A$ = A$ + Sub(table$,asc(sub(Instring$,i,1))+1,1)		A$ = A$ + Sub(table$,asc(sub(Instring$,i,1))+1,1)
-	next i	+	next I
	Procreturn a$		Procreturn a$
	end		end

2010-01-15T00:13:15Z

minor

← Older revision		Revision as of 00:13, 15 January 2010
Line 12:		Line 12:
	print(et)		print(et)

-	close(1) & open(1)'ebcdic.txt' ! Input file containing Ebcdic	+	close(1) & open(1)'ebcdic.txt' ! Input file containing Ebcdic
-	close(2) & open(2)'ascii.txt' ! Output file for Ascii text	+	close(2) & open(2)'ascii.txt' ! Output file for Ascii text

-	InputFile(1)EbcdicString$ ! Read whole file into the string	+	InputFile(1)EbcdicString$ ! Read whole file into the string

-	AsciiFile$ = Ebcdic2Ascii(EbcdicString$) ! Translate it	+	AsciiFile$ = Ebcdic2Ascii(EbcdicString$) ! Translate it
-	printfile(2)AsciiString$	+	printfile(2)AsciiString$ ! Write whole text file with one statement
	done:		done:
	print 'done'		print 'done'
	wait		wait
-	stop ~~! Write whole text file with one statement~~	+	stop
	end		end

	! This is a user defined string function		! This is a user defined string function
-	String Ebcdic2Ascii(Instring$) ! Instring is by reference	+	String Ebcdic2Ascii(Instring$) ! Instring is by reference since it is not declared in the function
	length 256 & local table$		length 256 & local table$
	length dynamic & local a$		length dynamic & local a$

2010-01-15T00:08:05Z

← Older revision		Revision as of 00:08, 15 January 2010
Line 12:		Line 12:
	print(et)		print(et)

-	close(1) & open(1)'ebcdic.txt' ! Input file containing Ebcdic	+	close(1) & open(1)'ebcdic.txt' ! Input file containing Ebcdic
-	close(2) & open(2)'ascii.txt' ! Output file for Ascii text	+	close(2) & open(2)'ascii.txt' ! Output file for Ascii text

-	InputFile(1)EbcdicString$ ! Read whole file into the string	+	InputFile(1)EbcdicString$ ! Read whole file into the string

-	AsciiFile$ = Ebcdic2Ascii(EbcdicString$) ! Translate it	+	AsciiFile$ = Ebcdic2Ascii(EbcdicString$) ! Translate it
	printfile(2)AsciiString$		printfile(2)AsciiString$
	done:		done:
Line 26:		Line 26:

	! This is a user defined string function		! This is a user defined string function
-	String Ebcdic2Ascii(Instring$) ! Instring is by reference	+	String Ebcdic2Ascii(Instring$) ! Instring is by reference
	length 256 & local table$		length 256 & local table$
	length dynamic & local a$		length dynamic & local a$

2010-01-15T00:06:42Z

← Older revision		Revision as of 00:06, 15 January 2010
Line 4:		Line 4:
	PrintFile(LUN)string$		PrintFile(LUN)string$
	InputFIle(LUN)string$		InputFIle(LUN)string$
-	An Example:	+	An Example:
-		+
-		+
	! Declare Function		! Declare Function
	String Ebcdic2Ascii(Instring$)		String Ebcdic2Ascii(Instring$)