Sorry your browser is not supported!

Niche International Limited,SOFTWARE,RETAIL SALES,MiniPOS Pro,,100084,"MiniPOS Pro Stock Control, Purchasing,",Management Reporting Software,199,1194,,,,Standard,,,,,0,0,-40,,,CHRIS,,,HEAD,34.27
Niche International Limited,SOFTWARE,RETAIL SALES,MiniPOS Pro,,100085,MiniPOS Pro Purchasing Module,,50,300,,,,Standard,,,,,0,0,-3,,,CHRIS,,,HEAD,7.34
Niche International Limited,SOFTWARE,RETAIL SALES,MiniPOS Pro,,100086,MiniPOS Pro Customer Database,with Loyalty and A/c Sales Ledger,50,300,,,,Standard,,,,,0,0,-11,,,CHRIS,,,HEAD,7.34

REM Read a CSV
REM Lost Dragon
REM July 6, 2012
REM Anyone can use this however they want.  It's just an example given in the spirit of learning.


mainloop:

IF GetFileExists("examplecsv.csv") = 0	: REM If the file doesn't exist, display a message and shut the program down.
	Text$="examplecsv.csv file does not exist!"
    MESSAGE(Text$)
    END
ENDIF

OPENTOREAD(1,"examplecsv.csv")

IF FILEISOPEN(1)=1

	WHILE FileEOF(1) = 0					: REM Loop until the file is empty.

	line$=READLINE(1)						: REM Read the next line in the file.

		IF LEFT(line$,2) = "**" OR line$ = ""		: REM ** and blank lines denote comment lines (if you have any in your csv)..

					ELSE

                    rem If the line isn't a comment then....

                    rem Read the records from the csv using getstringtoken.  Feed getstringtoken line$ for a known
                    rem number of records (13 in this case) and put the result into different string variables to
                    rem be printed out later.

					recnum$ = GetStringToken( line$, ",", 1 )
					desc$ = GetStringToken( line$, ",", 2 )
					numb1$ = GetStringToken( line$, ",", 3 )
					numb2$ = GetStringToken( line$, ",", 4 )
					numb3$ = GetStringToken( line$, ",", 5 )
					numb4$ = GetStringToken( line$, ",", 6 )
					numb5$ = GetStringToken( line$, ",", 7 )
					numb6$ = GetStringToken( line$, ",", 8 )
					numb7$ = GetStringToken( line$, ",", 9 )
					numb8$ = GetStringToken( line$, ",", 10 )
					numb9$ = GetStringToken( line$, ",", 11 )
					numb10$ = GetStringToken( line$, ",", 12 )
					numb11$ = GetStringToken( line$, ",", 13 )

print(recnum$)
print(desc$)
print(numb1$)
print(numb2$)
print(numb3$)
print(numb4$)
print(numb5$)
print(numb6$)
print(numb7$)
print(numb8$)
print(numb9$)
print(numb10$)
print(numb11$)

sleep(600)
sync()

		ENDIF

	ENDWHILE

CLOSEFILE(1)

gosub mainloop  : rem for the example, make this run an infinite number of times.

ENDIF