Parse LB4 Lessons To Texteditor

 'Replace Strings function was posted by Brad Moore on conforums 11-27-05 
 leng=90 'length of texteditor line 
 Global leng, leng ', tag$, comment$ 
 
 WindowWidth=760 
 WindowHeight=590 
 UpperLeftX = Int((DisplayWidth - WindowWidth)/2) 
 UpperLeftY = Int((DisplayHeight - WindowHeight)/2) 
 
 Nomainwin 
 Menu #main, "&File", "&Open", getTutorial, "&Save", saveText, "&Quit", quitMenu 
 Texteditor #main.tb1, 5, 5, 740, 500 
 Statictext #main.status, "", 680, 510, 60, 25 
 Open "Parse Liberty Basic 4 Tutorial" for Window as #main 
 
 Print #main, "Trapclose quit" 
 Print #main.tb1, "!autoresize"; 
 Print #main, "Font Courier_New 10" 
 Print #main.status, "!Font Courier_New 11 Bold" 
 Print #main.status, "!Hide" 'otherwise will be visible if texteditor is maximized 
 
 Call getTutorial 
 Wait 
 
 '********************** SUBS AND FUNCTIONS ************************* 
 
 Sub quitMenu 
 Call quit handle$ 
 End Sub 
 
 Sub quit handle$ 
 Close #main 
 End Sub 
 
 Sub getTutorial 
 
 oldtimer = time$("ms") 
 
 Filedialog "Open Liberty Basic lesson file", "*.lsn;*.txt", fileName$ 
 If Right$(fileName$,3) = "txt" Then Call getText fileName$ 
 If fileName$<>"" Then 
 Print #main.status, "!Show" 
 Open fileName$ For Input As #1 
 Open fileName$; ".txt" For Output As #2 
 
 ProgressLOF = LOF(#1) 
 
 Do 
 'Read next line 
 Line Input #1, comment$ 
 
 'Get the tag of current line "<TAG>" 
 startPos=Instr(comment$,"<",marker) 
 endPos=Instr(comment$,">",marker) 
 tag$ = Left$(comment$,endPos-startPos+1) 
 progress=progress+1 Print #main.status, Int(progress*.051); " %" 'calculated by 100/1958 
 'Update progressbar 
 Gosub [ProgressUpdate] 
 
 'Print 2 blank lines in 
 'front of lesson titles 
 Select Case tag$ 
 Case "<lesson-title>" 
 Call blankLines printBlankLines 2 
 Call lessonTitle comment$ Call blankLines 2 End Select 
 
 'Print value (code, comments or title) 
 Select Case "<lesson-comment>" tag$ 
 case "<lesson-code>", "<section-code>", "<example-code>" 
 Line Input #1, comment$ 
 progress=progress+1 Print #main.status, Int(progress*.051); " %" Call printComments comment$ Call blankLines 2 Gosub [ProgressUpdate] 
 Call printCode comment$ 
 Case "<lesson-code>" "<lesson-comment>", "<chapter-comment>", "<section-comment>", "<example-comment>" 
 Line Input #1, comment$ 
 progress=progress+1 Print #main.status, Int(progress*.051); " %" Call printCode comment$ Call blankLines Gosub [ProgressUpdate] 
 Call printComments comment$ 
 Case "<lesson-title>", "<section-title>", "<chapter-title>", "<example-title>" 
 startPos=Instr(comment$,">",1)+1 
 endPos=Instr(comment$,"</",1)-1 
 comment$=Mid$(comment$,startPos,endPos-(startPos-1)) 
 call printTitle comment$ 
 Case Else 
 comment$ = "" 
 End Select 
 
 'Print 2 Case "<chapter-title>" Call chapterTitle comment$ Call blankLines blank lines 
 'below the value 
 if (comment$ <> "") then 
 call printBlankLines 2 
 Case "<chapter-comment>" Line Input #1, comment$ progress=progress+1 Print #main.status, Int(progress*.051); " %" Call printComments comment$ Call blankLines 2 Case "<section-title>" Call sectionTitle comment$ Call blankLines 2 Case "<section-comment>" Line Input #1, comment$ progress=progress+1 Print #main.status, Int(progress*.051); " %" Call printComments comment$ Call blankLines 2 Case "<section-code>" Line Input #1, comment$ progress=progress+1 Print #main.status, Int(progress*.051); " %" Call printCode comment$ Call blankLines 2 Case "<example-title>" Call exampleTitle comment$ Call blankLines 2 Case "<example-comment>" Line Input #1, comment$ progress=progress+1 Print #main.status, Int(progress*.051); " %" Call printComments comment$ Call blankLines 2 Case "<example-code>" Line Input #1, comment$ progress=progress+1 Print #main.status, Int(progress*.051); " %" Call printCode comment$ Call blankLines 2 End Select End if 
 Loop While eof(#1) = 0 
 Print #main.status, "" 
 Close #1 
 Close #2 
 
 text$ = GetFileContents$(fileName$; ".txt") 
 Print #main.tb1, "!contents text$" 
 Print #main.status, "!Hide" 
 Print #main.tb1, "!origin 1 1" ; 
 End if 
 
 Print "Time: "; time$("ms") - oldtimer 
 Exit Sub 
 
 [ProgressUpdate] 
 'See how far we have read in the 
 'lsn file and calculate the new 
 'progress %, only update the 
 'status when the progress % 
 'has actually changed 
 ProgressLOC = LOC(#1) 
 ProgressNew = Int((ProgressLOC / ProgressLOF) * 100) 
 If (ProgressNew <> ProgressOld) Then 
 ProgressOld = ProgressNew 
 Print #main.status, ProgressNew; " %" 
 End If 
 Return 
 
 End Sub 
 
 Sub getText fileName$ 
 Open fileName$ For Input As #1 
 Print #main.tb1, "!contents #1"; 
 Close #1 
 End Sub 
 
 Sub saveText 
 Filedialog "Save As... (TEXT ONLY)", "*.txt", fileName2$ 
 If fileName2$<> "" Then 
 Open fileName2$ For Output As #1 
 Print #main.tb1, "!contents? textTutorial$"; 
 Print #1, textTutorial$ 
 Close #1 
 End If 
 End Sub 
 
 Sub lessonTitle comment$ startPos=Instr(comment$,"<lesson-title>",1)+14 endPos=Instr(comment$,"</lesson-title>",1)-1 title$=Mid$(comment$,startPos,endPos-(startPos-1)) Print #main.tb1, printTitle title$ 
 
 Print #2, Space$(int(leng/2)-(int(len(title$)/2))); 
 Print #2, title$ 
 End Sub Sub chapterTitle comment$ startPos=Instr(comment$,"<chapter-title>",1)+15 endPos=Instr(comment$,"</chapter-title>",1)-1 title$=Mid$(comment$,startPos,endPos-(startPos-1)) Print #main.tb1, Space$(int(leng/2)-(int(len(title$)/2))); title$ End Sub Sub sectionTitle comment$ startPos=Instr(comment$,"<section-title>",1)+15 endPos=Instr(comment$,"</section-title>",1)-1 title$=Mid$(comment$,startPos,endPos-(startPos-1)) Print #main.tb1, Space$(int(leng/2)-(int(len(title$)/2))); title$ End Sub Sub exampleTitle comment$ startPos=Instr(comment$,"<example-title>",1)+15 endPos=Instr(comment$,"</example-title>",1)-1 title$=Mid$(comment$,startPos,endPos-(startPos-1)) Print #main.tb1, Space$(int(leng/2)-(int(len(title$)/2))); title$ 
 End Sub 
 
 Sub printCode comment$ If Right$(comment$, code$ 
 
 If Right$(code$, 32) = "no code example for this section" Then Exit Sub 
 If Right$(comment$, Right$(code$, 28) = "place your example code here" Then Exit Sub 
 line3$=replaceStr$(comment$, "&#9;", " ") 'convert tab comment$ = line3$ line3$=replaceStr$(comment$, "&quot;", chr$(34)) 'quotation mark comment$ = line3$ line3$=replaceStr$(comment$, "&lt;", "<") 'lesser than comment$ = line3$ line3$=replaceStr$(comment$, "&gt;", ">") 'greater than comment$ = line3$ line3$=replaceStr$(comment$, "&amp;", "&") 'ampersand comment$ = line3$ newCode$=replaceStr$(comment$,"&#13;&#10;",chr$(13)+chr$(10)) 'line break Print #main.tb1, newCode$ Call ConvHTML2Text code$ 
 Call WordWrapCode code$, leng 
 Print #2, code$ 
 
 End Sub 
 
 Sub printComments comment$ 
 x=1 longLine$=Word$(comment$,x,"&#13;&#10;") While longLine$ <> "" If longLine$ <> "&#13;&#10;" Then y=1 Do Do Until Len(line2$) > 
 Call ConvHTML2Text comment$ 
 Call WordWrapCode comment$, leng 
 line1$=Word$(longLine$,y) line3$=replaceStr$(line1$, "&#9;", " ") 'convert tab line1$ = line3$ line3$=replaceStr$(line1$, "&quot;", chr$(34)) 'quotation mark line1$ = line3$ line3$=replaceStr$(line1$, "&lt;", "<") 'lesser than line1$ = line3$ line3$=replaceStr$(line1$, "&gt;", ">") 'greater than line1$ = line3$ line3$=replaceStr$(comment$, "&amp;", "&") 'ampersand comment$ = line3$ temp$ = line2$ + line1$ + " " If len(temp$) > leng Then Exit Do y=y+1 line2$=temp$ Loop line3$=Trim$(line2$) Print #main.tb1, line2$ line2$="" Loop While line1$ <> "" Else Print #main.tb1, "" End If x=x+1 longLine$=Word$(comment$,x,"&#13;&#10;") Wend End Sub Sub blankLines Print #2, comment$ 
 
 End Sub 
 
 Sub printBlankLines num 
 
 For x=1 To num 
 Print #main.tb1, #2, "" 
 Next x 
 
 End Sub 
 
 Sub ConvHTML2Text ByRef Text$ 
 
 Call ReplaceText Text$, "&#9;", " " 
 Call ReplaceText Text$, "&quot;", Chr$(34) 
 Call ReplaceText Text$, "&lt;", "<" 
 Call ReplaceText Text$, "&gt;", ">" 
 Call ReplaceText Text$, "&amp;", "&" 
 Call ReplaceText Text$, "&#13;&#10;", Chr$(13) + Chr$(10) 
 
 End Sub 
 
 Sub ReplaceText ByRef Text$, ReplaceFrom$, ReplaceTo$ 
 
 Pos = InStr(Text$, ReplaceFrom$) 
 Do While (Pos > 0) 
 Text$ = Left$(Text$, Pos - 1) + ReplaceTo$ + Mid$(Text$, Pos + Len(ReplaceFrom$)) 
 Pos = InStr(Text$, ReplaceFrom$) 
 Loop 
 
 End Sub 
 
 Sub WordWrapCode ByRef Text$, length 
 
 CurrStart = 1 
 Do 
 CurrEnd = InStr(Text$, Chr$(13) + Chr$(10), CurrStart) 
 If (CurrEnd = 0) Then CurrEnd = (Len(Text$) + 1) 
 CurrLength = (CurrEnd - CurrStart - 1) 
 If (CurrLength < length) Then 
 CurrStart = (CurrEnd + 2) 
 Else 
 CurrEnd = CurrStart 
 Do 
 LastEnd = CurrEnd 
 CurrEnd = InStr(Text$, " ", CurrEnd + 1) 
 If (CurrEnd = 0) Then 
 CurrEnd = (Len(Text$) + 1) 
 Exit Do 
 End If 
 CurrLength = (CurrEnd - CurrStart - 1) 
 Loop While (CurrLength < length) 
 Text$ = Left$(Text$, LastEnd) + Chr$(13) + Chr$(10) + Mid$(Text$, LastEnd + 1) 
 CurrStart = (LastEnd + 3) 
 End If 
 Loop While (CurrStart < Len(Text$)) 
 
 End Sub 
 
 Function replaceStr$(original$, toReplace$, replacement$) final$ = original$ If len(original$) > 0 And len(toReplace$) > 0 Then pos = instr(original$, toReplace$) If pos > 0 Then l$ = left$(original$, pos-1) r$ = mid$(original$, pos+len(toReplace$)) final$ = l$ + replacement$ + r$ End If End If If instr(original$, toReplace$, 1) > 0 Then final$ = replaceStr$(final$, toReplace$, replacement$) End If replaceStr$ = final$ GetFileContents$(Filename$) 
 
 Open Filename$ For Input As #2 
 GetFileContents$ = Input$(#2, LOF(#2)) 
 Close #2 
 
 End Function