Here is a little program I came up with because Open Office didn't have an option to do a random sort, which is what I needed.
It will take any plain text list file, jumble the list, 1 million times (less than a second!), then write the new file to text.
It's pretty simple and kinda dirty but, I did it to familiarize myself a bit with types, data reading, and file reading/writing, which are some of my weak points.
the text prompts are in there because, i was having program errors and I was trying to isolate the problem.
It will take any plain text list file, jumble the list, 1 million times (less than a second!), then write the new file to text.
It's pretty simple and kinda dirty but, I did it to familiarize myself a bit with types, data reading, and file reading/writing, which are some of my weak points.
the text prompts are in there because, i was having program errors and I was trying to isolate the problem.
;Random Name Sort Program ;by Richard Colletta 2-3-2005 ;COPYRIGHT (C) 2005 ;Get your own code!! ;Copy and Paste Last Name Column from Spreadsheet into notepad/plain text ;One name per line ;the last line must read STOP ;Save file as names.txt Graphics 800, 600, 32, 2 SeedRnd (MilliSecs()) ;randomize the timer with the internal clock ;variable for checking end of file rdata = True ;Create Type for data sorting Type Pnames Field Name$ End Type ;Input file name to open Print "Random Name Sort" Print "by Richard Colletta 2-3-2005" Print "richard.colletta@..." fname$ = Input$("File to Open?") ;open the file for reading filein = ReadFile (fname$) Print "File Loaded! press any key.": WaitKey() ;Read the names from the file While rdata name$ = ReadLine (filein) If name$ = "STOP";read this line for end of file rdata = False Else people.pnames = New pnames If people.pnames <> Null people\name$ = name$ rng = Rand(4) ; return random integer 1 - 4 If rng = 1 Then Insert people Before First pnames If rng = 2 Then Insert people After First pnames If rng = 3 Then Insert people Before Last pnames If rng = 4 Then Insert people After Last pnames Print "DATA: " + name$ Else Text 0,0, "Program Error!" ;error checking, type instance could not be created rdata = False EndIf EndIf Wend Print "randomizing! press any key." WaitKey() Print "RANDOMIZING VARIABLES --> 1 MILLION ITERATIONS" For x = 1 To 1000000 For people.pnames = Each pnames rng = Rand(4) ; return random integer 1 - 4 If rng = 1 Then Insert people Before First pnames If rng = 2 Then Insert people After First pnames If rng = 3 Then Insert people Before Last pnames If rng = 4 Then Insert people After Last pnames ;Print "RANDOM SORTING " + people\name$ Next Next Print "done! press any key.": WaitKey() CloseFile (fname$) Print "Checking Data. press any key.": WaitKey() For people.pnames = Each pnames Print people\name$ Next Print "Writing Random Sort List to File. press any key.": WaitKey() fileout = WriteFile ("randomsort.txt") For people.pnames = Each pnames WriteString ( fileout, people\name$ + Chr$(13) ) Next CloseFile (fileout) Print "Random List written to file randomsort.txt!!" Print "Colletta definitely deserves a promotion for this. press any key to end." WaitKey() End