Re: WordPerfect --> AppleWorks

["Laine Houghton" <laine@intergate.com>]

"msean" <msean1941@gmail.com> wrote in message 
1129293197.380388.257040@g49g2000cwa.googlegroups.com">news:1129293197.380388.257040@g49g2000cwa.googlegroups.com...
> "It might be better in the long run to figure out how to generate
> indices in WordPerfect."
>
>     That is the right way for me to do it, but I only know one
> programming language and it only runs on the Apple II. It is possible
> to do some of the formatting of the file using WordPerfect's macros,
> but that is very tedious and time consuming.
>
>
> "From what I understand, the hard part in
> indexing is choosing and organizing your entries, not the mechanical
> part that a computer can do."
>
>     The files come to me containing just the index entries with page
> numbers. What I have to do is arrange everything so that it is laid out
> like a book index. The UltraMacros program that I wrote does all the
> arranging fine. I just need to get the WordPerfect files into
> AppleWorks on the Apple IIGS so I can run them through the program.
>

It would be interesting to see the ultramacro code.

Autoit 3 has some pretty good string handling capabilities.
http://www.autoitscript.com/autoit3/

All my string handling code is in autoit 2.

I had a virus infected computer so I wrote a program to rename all the " 
.VBS, .BAT, .JS" files so I could ignore them as a problem.

While debugging I used Autoit 3 script to create a test floppy that created 
five levels containing five folders and five random ".XXX" files per folder.
The sciTE free editor is color coded and makes writing and reading the code 
easier. It displays prompts as you enter code so less trips to the help 
file.

$handle = 0
$filenum = 0
$foldernum = 0
$levelnum = 0
$path = 'a:'
Dim $type[3]
$type[0]='.VBS'
$type[1]='.JS'
$type[2]='.BAT'

dofiles()
dofolders()

; main loop
Do
$path = 'a:'
$foldernum = $foldernum + 1
$levelnum =0
dofolders()

until $foldernum > 5

func dofiles()
    Do
        $handle = FileOpen ( $path & '\FILE_' & $filenum & '_fold_'& 
$foldernum & '_lev_' & $levelnum & $type[Random(0,2,1)],1 )
  FileClose($handle)
        $filenum = $filenum + 1
    until  $filenum > 5
 $filenum = 0
EndFunc

Func dofolders()
    Do
  $path= $path &'\FOLDER_'  & $foldernum & '_LEVEL_' & $levelnum
  DirCreate ( $path )
  dofiles()
  $levelnum = $levelnum + 1
    until  $levelnum > 5

EndFunc