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) 
 'Update progressbar Gosub [ProgressUpdate] 'Print 2 blank progress=progress+1 
 Print #main.status, Int(progress*.051); " %" 'calculated by 100/1958 lines in 'front of lesson titles 
 
 Select Case tag$ 
 Case "<lesson-title>" 
 Call printBlankLines blankLines 2 
 End Select 'Print value (code, comments or title) Select Call lessonTitle comment$ 
 Call blankLines 2 
 Case tag$ case "<lesson-code>", "<section-code>", "<example-code>" "<lesson-comment>" 
 Line Input #1, comment$ 
 Gosub [ProgressUpdate] Call printCode comment$ progress=progress+1 
 Print #main.status, Int(progress*.051); " %" 
 Call printComments comment$ 
 Call blankLines 2 
 Case "<lesson-comment>", "<chapter-comment>", "<section-comment>", "<example-comment>" "<lesson-code>" 
 Line Input #1, comment$ 
 Gosub [ProgressUpdate] progress=progress+1 
 Print #main.status, Int(progress*.051); " %" 
 Call printCode comment$ 
 Call blankLines 2 
 Case "<chapter-title>" 
 Call chapterTitle comment$ 
 Call blankLines 2 
 Case "<chapter-comment>" 
 Line Input #1, comment$ 
 progress=progress+1 
 Print #main.status, Int(progress*.051); " %" 
 Call printComments comment$ 
 Call blankLines 2 
 Case "<lesson-title>", "<section-title>", "<chapter-title>", "<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>" 
 startPos=Instr(comment$,">",1)+1 endPos=Instr(comment$,"</",1)-1 comment$=Mid$(comment$,startPos,endPos-(startPos-1)) call printTitle comment$ Call exampleTitle comment$ 
 Call blankLines 2 
 Case Else comment$ = "" "<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 'Print 2 blank lines 'below the value if (comment$ <> "") then call printBlankLines 2 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 printTitle 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, Space$(int(leng/2)-(int(len(title$)/2))); title$ 
 Print #2, 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))); Print #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 code$ If Right$(code$, comment$ 
 If Right$(comment$, 32) = "no code example for this section" Then Exit Sub 
 If Right$(code$, Right$(comment$, 28) = "place your example code here" Then Exit Sub 
 Call ConvHTML2Text code$ Call WordWrapCode code$, 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$ 
 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$) > leng 
 Print #2, code$ End Sub Sub printComments comment$ Call ConvHTML2Text comment$ Call WordWrapCode comment$, 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 Print #2, comment$ End Sub Sub printBlankLines 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 num 
 For x=1 To num 
 Print #2, #main.tb1, "" 
 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) 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$ + Chr$(10) End Sub Sub ReplaceText ByRef Text$, ReplaceFrom$, ReplaceTo$ Pos = InStr(Text$, ReplaceFrom$) Do While (Pos replacement$ + r$ 
 End If 
 End If 
 If instr(original$, toReplace$, 1) > 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) 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 GetFileContents$(Filename$) Open Filename$ For Input As #2 GetFileContents$ = Input$(#2, LOF(#2)) Close #2 
 final$ = replaceStr$(final$, toReplace$, replacement$) 
 End If 
 replaceStr$ = final$ 
 End Function 

 ____________<lesson> 
 | 
 | <lesson-title></lesson-title> 
 | <author></author> 
 | <lesson-comment></lesson-comment> 
 | <lesson-code></lesson-code> 
 | 
 | ____________<chapters> 
 | | 
 | | _______<chapter> 
 | | | 
 | | | <chapter-title></chapter-title> 
 | | | <chapter-comment></chapter-comment> 
 | | | <chapter-code></chapter-code> 
 | | | 
 | | | ____________<sections> 
 | | | | 
 | | | | _______<section> 
 | | | | | 
 | | | | | <section-title></section-title> 
 | | | | | <section-comment></section-comment> 
 | | | | | <section-code></section-code> 
 | | | | | 
 | | | | | ____________<examples> 
 | | | | | | 
 | | | | | | _______<example> 
 | | | | | | | 
 | | | | | | | <example-title></example-title> 
 | | | | | | | <example-comment></example-comment> 
 | | | | | | | <example-code></example-code> 
 | | | | | | | 
 | | | | | | |_______</example> 
 | | | | | | 
 | | | | | |____________</examples> 
 | | | | | 
 | | | | |_________________</section> 
 | | | | 
 | | | |______________________</sections> 
 | | | 
 | | |___________________________</chapter> 
 | | 
 | |________________________________</chapters> 
 | 
 |_____________________________________</lesson>