| 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.03.28/ |
Upload File : |
' parseData
open "parseData.txt" for input as #parseData
while eof(#parseData) = 0
line input #parseData, dataLine$
'This method does not work if no middle name
'print dataLine$
'print left$(word$(dataLine$,2),len(word$(dataLine$,2))-1), word$(dataLine$,3), word$(dataLine$,4)
'So we will trim dataLine$ to remove unecessary characters.
dataLine$ = trim$(mid$(dataLine$,9)) 'Remove before last name
'print findTab(dataLine$),dataLine$
dataLine$ = trim$(mid$(dataLine$,1,findTab(dataLine$))) ' Remove after tab
print left$(word$(dataLine$,1),len(word$(dataLine$,1))-1), word$(dataLine$,2), word$(dataLine$,3)
wend
close #parseData
function findTab(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) = chr$(9) then
foundAt = i
i = len(string$) 'break out of loop
end if
next i
findTab = foundAt
end function