Personal Pocket PC Wiki

tsteward · #1 (**permalink**) 08-01-2008, 12:53 PM

I have started creating a Personal Wiki.
I decided to post it here under Open Source so all can use this program if they wish, but PLEASE post any improvements you make here.

Goals

Must run on both Desktop and PDA
Must support current BladeWiki syntax (for now)

It is currently only just the beginning and I am no programmer, just a hack. So anyone wishing to correct my coding or show me a better way then I am all ears.

This program is really coming along now. Thanks to Digitaldon37 and Klaus for there help. Thanks to agraham for his Web Browser.

I use this wiki for everything now. I organise my work documentation, instructions sheets, Product pictures and descriptions. Have Birthday lists, XMas card lists, Bank details. It is great for gathering all you info in one place.

I have bucked what seems to be the standard and included all library files in the zip. I just think its easier.

Regards
Tony Steward

Last Updated 6:00pm 5th Jan 2009
Attachment includes both PPC and Desktop versions.
You will need to add "System.Data.SQLite.dll" its not in the zip because its too large

tsteward · #2 (**permalink**) 08-01-2008, 12:54 PM

Version 1 Realeased

Known Bugs:

Only on some PDA's it would seem that only one image is being displayed per page. Note sure why yet.

tsteward · #3 (**permalink**) 08-01-2008, 01:00 PM

Struggling with the interpreter for reading in bladewiki files, but getting there slowly.

Currently I load a line from the file then process that line character by character to find the markup.

+ = <h1> Header Level 1
++ = <h2> Header Level 2
- = <li> list item
[ = Start of link to another file
] = end of link to another file

There is more but that's enough for now.

Here is my interpreter so far.

Code:

Sub GetFile(file)
 file = ProgDir & file
 If FileExist (file) = true Then
  FileOpen (c1,file,cRead ,, cASCII)
   HtmStr = "<html><head><meta http-equiv=" & Chr(34) & "Content-Type" & Chr(34) & " content=" & Chr(34) & "text/html; charset=utf-8" & Chr(34) & ">" & crlf
   HtmStr = HtmStr & "<title>homepage</title>" & crlf
   HtmStr = HtmStr & "<link rel=" & Chr(34) & "stylesheet" & Chr(34) & " href=" & Chr(34) & "file:///" & ProgDir & "wikistyle.css" & Chr(34) & " Type=" & Chr(34) & "text/css" & Chr(34) & ">" & crlf
   HtmStr = HtmStr & "</head><body>" & crlf
   line = FileRead (c1)
   Do Until line = EOF
    If line <> EOF Then                   ' START PROCESSING LINE
                 For i = 0 To StrLength(line)-1
                     If i = 0 AND bullet = True Then     ' CHECK TO SEE IF WE SHOULD END BULLET LIST
                         HtmStr = HtmStr & "</ul>"
                            bullet = False
                        End If
      If i = 0 AND SubString(line, i, 2) = "++" Then ' START HEADER LEVEL 2
                         If header2 = False Then
                          header2 = True
        HtmStr = HtmStr & "<h2><a name=" & Chr(43) & currentpage & Chr(34) & ">"
                            End If
                        Else If i = 0 AND SubString(line, 0, 1) = "+" Then ' START HEADER LEVER 1
                         If header1 = False Then
                          header1 = True
        HtmStr = HtmStr & "<h1><a name=" & Chr(43) & currentpage & Chr(34) & ">"
                            End If
                     Else If i = 0 AND SubString(line, 0, 1) = "-" Then 
                      If bullet = False Then                  ' START BULLET LIST
                          bullet = True
                                HtmStr = HtmStr & "<ul><li>"
                         Else                                    ' CONTINUE BULLET
                          HtmStr = HtmStr & "<li>"
                         End If
                        Else
                         If i = 0 Then
                             HtmStr = HtmStr & "<p>"                ' START PARAGRAPH
                                paragraph = True
                            End If
                         HtmStr = HtmStr & SubString(line, i, 1)
      End If
                    Next                                 ' FINNISHED LINE NOW TIDYUP BEFORE NEXT LINE
    End If
                If header1 = True Then                ' CLOSE HEADER 1
                 header1 = False
                    HtmStr = HtmStr & "</a></h1>" & crlf
                End If
                If header2 = True Then                ' CLOSE HEADER 2
                 header2 = False
                    HtmStr = HtmStr & "</a></h2>" & crlf
                End If
                If paragraph = True Then              ' CLOSE PARAGRAPH
                 paragraph = False
                 HtmStr = HtmStr & "</p>"
    End If
                HtmStr = HtmStr & crlf                ' ADD LINE FEED TO MAKE SOURCE CLEAN
    line = FileRead (c1)
   Loop
  FileClose (c1)
  Return HtmStr
 End If
End Sub

digitaldon37 · #4 (**permalink**) 08-01-2008, 06:03 PM

Hi Tony,

I noticed that you are reading the wiki file one line at a time. There are some pros and cons to that, but my opinion is that you may want to read the whole file at once and then parse. The reason is that you don't have to write the wiki text with the closing tags all on one line.

I created two new procedures that you may want to look at

Read File

Code:

Sub ReadWikiFile(file)
    file = ProgDir & file
    If FileExist (file) = true Then
        FileOpen (c1, file, cRead ,, cASCII)
        wiki = FileReadToEnd(c1)
        FileClose (c1)
        
        Return ParseWiki(wiki)

    Else
    ' wiki file doesn't exist - how did that happen?
    End If
End Sub

Parser

Code:

Sub ParseWiki (wiki)
    'HTML Header
    HtmStr = "<html><head><meta http-equiv=" & Chr(34) & "Content-Type" & Chr(34) & " content=" & Chr(34) & "text/html; charset=utf-8" & Chr(34) & ">" & crlf
       HtmStr = HtmStr & "<title>homepage</title>" & crlf
       HtmStr = HtmStr & "<link rel=" & Chr(34) & "stylesheet" & Chr(34) & " href=" & Chr(34) & "file:///" & ProgDir & "wikistyle.css" & Chr(34) & " Type=" & Chr(34) & "text/css" & Chr(34) & ">" & crlf
      HtmStr = HtmStr & "</head><body>" & crlf

    For x=0 To StrLength(wiki)
        
    
        schr=SubString(wiki,x,1)
        ' Msgbox(schr)
        
        ' --- CONVERT SIMPLE SINGLE CHARACTERS ---
        If schr=" " Then
            HtmStr=HtmStr & "&nbsp;"
        End If
        If schr=Chr(13) Then
            HtmStr=Htmstr & "<br>"
        End If
        
        ' --- CONVERT LINK ---
        Select schr
            Case "["
        'If schr="[" Then
            If SubString(wiki,x+1,1)="[" Then ' this is reference with differnt text ie [[wiki][welcome to my wiki!]]
                
            End If
            y=StrIndexOf(wiki, "]", x)
            'Msgbox(x & " " & y)
            HtmStr=Htmstr & "<a href='" & SubString(wiki,x+1,y-x-1) & "'>" & SubString(wiki,x+1,y-x-1) & "</a>"
            ' Msgbox(SubString(wiki,x+1,y-x-1))
            'Msgbox(htmstr)
            x=y
        'End If
        
        Case Else
            HtmStr=HtmStr & schr
        End Select
    Next
    
    'HTML FOOTER
    HtmStr=HtmStr & "</body></html>"
    
    
    Return Htmstr
End Sub

This was tested on your sample wiki text and it creates links out of the "[text]" markups. It still needs a lot of work but it's an example.

tsteward · #5 (**permalink**) 08-02-2008, 12:17 AM

Yes I agree reading the whole file at once would be better and generally speeds up programs and is usually less drain on resources.

Thanks for that code suggestion I'll look at it. It seems less confusing than what I did.

tsteward · #6 (**permalink**) 08-02-2008, 02:57 AM

Damn
Ok we need to work on a way to communicate on who is doing what.
I have a version working beautifully on my desktop but not running on ppc.
I haven't looked at your code above yet but will do so.
Have to go out for the day will do more tonight. about 6 hrs time

Thanks
Tony

This is where I was up to (your changes not included yet)

tsteward · #7 (**permalink**) 08-02-2008, 09:25 AM

Ok the error causing PPPCWiki not to run on ppc is:

Code:

HtmStr = HtmStr & "<link rel=" & Chr(34) & "stylesheet" & Chr(34) & " href=" & Chr(34) & "file:///" & ProgDir & "wikistyle.css" & Chr(34) & " Type=" & Chr(34) & "text/css" & Chr(34) & ">" & crlf

I'm not really sure why

Its around line 56, just comment it out and all is fine but of course the css won't be working.

Cableguy · #8 (**permalink**) 08-02-2008, 01:08 PM

Quote:

Originally Posted by tsteward

Damn
Ok we need to work on a way to communicate on who is doing what.

Tony

I would suggest you to subscrive to an Web based project Share space....
I havent search for one, but i'm sure that they are available, and mos surelly, for free too...

Cableguy · #9 (**permalink**) 08-02-2008, 02:11 PM

Found this one:
Online project management & collaboration - software as a service

digitaldon37 · #10 (**permalink**) 08-02-2008, 09:12 PM

Tony,

I've tried everything I can think of - this works on my PC but I get an "invalid address" on the PDA. I've written and rewritten the web_navigating procedure and get the same results.

Is this working on your PDA?

Don