| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1794/ExampleFiles/2007.04.11/ |
Upload File : |
' parseData2
' The purpose of this program will be to parse
' [title][first][middle][last][generationalQualifier][academicLetters]
debug = 1
' Setup to handle titles
' Count number of titles
open "title.txt" for input as #title
global titleLen
titleLen = 0
while eof(#title) = 0
input #title, thisTitle$
if thisTitle$ <> "" then titleLen = titleLen + 1
'if debug = 1 then print titleLen, thisTitle$
wend
close #title
'if debug = 1 then print
' Put title list into an array
dim titleList$(titleLen)
open "title.txt" for input as #title
titleLen = 0
while eof(#title) = 0
input #title, thisTitle$
titleLen = titleLen +1
titleList$(titleLen) = thisTitle$
wend
close #title
' Setup to handle generationalQualifiers
' Count number of generationalQualifiers
open "generationalQualifier.txt" for input as #generationalQualifier
global generationalQualifierLen
generationalQualifierLen = 0
while eof(#generationalQualifier) = 0
input #generationalQualifier, thisGenerationalQualifier$
if thisGenerationalQualifier$ <> "" then generationalQualifierLen = generationalQualifierLen + 1
'if debug = 1 then print generationalQualifierLen, thisGenerationalQualifier$
wend
close #generationalQualifier
'if debug = 1 then print
' Put generationalQualifier list into an array
dim generationalQualifierList$(generationalQualifierLen)
open "generationalQualifier.txt" for input as #generationalQualifier
generationalQualifierLen = 0
while eof(#generationalQualifier) = 0
input #generationalQualifier, thisGenerationalQualifier$
generationalQualifierLen = generationalQualifierLen +1
generationalQualifierList$(generationalQualifierLen) = thisGenerationalQualifier$
wend
close #generationalQualifier
if debug = 1 then
for i = 1 to generationalQualifierLen
print i;": ";generationalQualifierList$(i)
next i
end if
' Setup to handle academicLetters
' Count number of academicLetters
open "academicLetters.txt" for input as #academicLetters
global academicLettersLen
academicLettersLen = 0
while eof(#academicLetters) = 0
input #academicLetters, thisacademicLetters$
if thisacademicLetters$ <> "" then academicLettersLen = academicLettersLen + 1
'if debug = 1 then print academicLettersLen, thisacademicLetters$
wend
close #academicLetters
'if debug = 1 then print
' Put academicLetters list into an array
dim academicLettersList$(academicLettersLen)
open "academicLetters.txt" for input as #academicLetters
academicLettersLen = 0
while eof(#academicLetters) = 0
input #academicLetters, thisacademicLetters$
academicLettersLen = academicLettersLen +1
academicLettersList$(academicLettersLen) = thisacademicLetters$
wend
close #academicLetters
if debug = 1 then
for i = 1 to academicLettersLen
print i;": ";academicLettersList$(i)
next i
end if
' Parse data file
open "parseData2.txt" for input as #parseData
while eof(#parseData) = 0
line input #parseData, dataLine$
dataLine$ = trim$(dataLine$)
if dataLine$ <> "" then ' Skip blank lines.
tt$ = ""
fn$ = ""
mn$ = ""
ln$ = ""
gq$ = ""
al$ = ""
' Normalize names with comma
fc = findComma(dataLine$)
'if debug = 1 then print fc,dataLine$
if fc <> 0 then
dataLine$ = trim$(mid$(dataLine$,fc+1,len(dataLine$)-fc) + " " + mid$(dataLine$,1,fc-1))
end if
'if debug = 1 then print fc,dataLine$
' Remove ascii 127 characters
dataLine$ = removeCharacter$("",dataLine$)
fn$ = word$(dataLine$,1)
titleFound = isTitle(fn$)
if titleFound > 0 then
' Save title and normalize name w/o title
tt$ = titleList$(titleFound)
dataLine$ = trim$(mid$(dataLine$,len(fn$)+1,len(dataLine$)-len(fn$)))
fn$ = word$(dataLine$,1)
end if
dataLine$ = trim$(mid$(dataLine$,len(fn$)+1,len(dataLine$)-len(fn$)))
ln$ = word$(dataLine$,1)
dataLine$ = trim$(mid$(dataLine$,len(ln$)+1,len(dataLine$)-len(ln$)))
while dataLine$ <> ""
nextWord$ = word$(dataLine$,1)
isGQ = isGenerationalQualifier(nextWord$)
if isGQ > 0 then
' Save generational qualifier and normalize name w/o title
gq$ = generationalQualifierList$(isGQ)
dataLine$ = trim$(mid$(dataLine$,len(nextWord$)+1,len(dataLine$)-len(nextWord$)))
nextWord$ = word$(dataLine$,1)
else
mn$ = trim$(mn$ + " " + ln$)
ln$ = word$(dataLine$,1)
dataLine$ = trim$(mid$(dataLine$,len(ln$)+1,len(dataLine$)-len(ln$)))
end if
wend
if debug = 1 then
print "[";tt$;"]";
print "[";fn$;"]";
print "[";mn$;"]";
print "[";ln$;"]";
print "[";gq$;"]";
print "[";al$;"]";
print " {";dataLine$;"}"
end if
end if
'print
wend
close #parseData
function findComma(string$)
foundAt = 0
for i = 1 to len(string$)
'print i,mid$(string$,i,1),asc(mid$(string$,i,1))
if foundAt = 0 and mid$(string$,i,1) = "," then
foundAt = i
i = len(string$) 'break out of loop
end if
next i
findComma = foundAt
end function
function removeCharacter$(character$,string$)
newString$ = ""
for i = 1 to len(string$)
if mid$(string$,i,1) <> character$ then newString$ = newString$ + mid$(string$,i,1)
next i
removeCharacter$ = newString$
end function
function isTitle(string$)
foundString = 0
for i = 1 to titleLen
if upper$(removeCharacter$(".",string$)) = upper$(removeCharacter$(".",titleList$(i))) then foundString = i
next i
isTitle = foundString
end function
function isGenerationalQualifier(string$)
foundString = 0
for i = 1 to generationalQualifierLen
if upper$(removeCharacter$(".",string$)) = upper$(removeCharacter$(".",generationalQualifierList$(i))) then foundString = i
next i
isGenerationalQualifier = foundString
end function