Subversion Repositories DevTools

    Dim wikiNames

    Dim thisHit

    Dim nHits

    Dim rsPages

    'Bjarne

    'myText = Replace(myText, "ä", "")

    'myText = Replace(myText, "ö", "")

    'myText = Replace(myText, "ü", "")

    'myText = Replace(myText, "æ", "")

    'myText = Replace(myText, "ø", "")

    'myText = Replace(myText, "å", "")

    'myText = Replace(myText, "Ä", "")

    'myText = Replace(myText, "Ö", "")

    'myText = Replace(myText, "Ü", "")

    'myText = Replace(myText, "Æ", "")

    'myText = Replace(myText, "Ø", "")

    'myText = Replace(myText, "Å", "")

    'find wikiNames:

    'gRE.Pattern = "([A-Z][a-z]+)([A-Z][a-z]+)+"

    'Bjarne

    gRE.Pattern = "([A-Z][a-z0-9]+)([A-Z][a-z0-9]+)+"

    Set wikiNames = gRE.Execute(myText)

    nHits = wikiNames.Count

    'find the duplicates:  (dinoch 07 Nov 00)

    Dim i, j

    Dim isDuplicate()

    ReDim isDuplicate(nHits)

    isDuplicate(0)= 0

    For i = 0 To nHits-2

    For j = i+1 To nHits-1

      isDuplicate(j)=0

      If (wikiNames.Item(i) = wikiNames.Item(j)) Then

          isDuplicate(j)=1

          Exit For

      End If

    Next

    Next

    For j = 0 To nHits-1

    If (isDuplicate(j) = 0) Then

        'only process the name if it is not a duplicate

        thisHit = wikiNames.Item(j)  '

        EmitDebug 12, 2, "WalkWiki:thisHit(" & thisHit & ")<br/>"

        ' insert hyperlinks as appropriate

        ' - added & and = to exclude certain URLs (2002/4/12 greinerk@yahoo.com)

        ' - added umlauts (MARKUS)

    'gRE.Pattern = "([^=>?&A-Za-z0-9\/])(" & thisHit & ")([^=A-Za-z])"

    'Bjarne

    gRE.Pattern = "([^=>?&A-Za-z0-9\/])(" & thisHit & ")([^=A-Za-z])"

        EmitDebug 12.1, 2, "WalkWiki:thisHit regexp=" & gRE.Pattern  & "<br/>"

        sqlQuery = "select Title from " & gDbTableName & " where title='" & thisHit & "'"

        EmitDebug 13, 2, "sqlquery: " & sqlquery & "<br/>"

        'Set rsPages = gDataConn.Execute(sqlQuery)

        set rsPages = WrappedQueryExecute( gDataConn, sqlQuery )  ' ERV 3/2007        

        'EmitDebug 14, 2, "rs.recordcount: " & rsPages.recordcount & "<br/>"

        EmitDebug 15, 2, "eof/bof: " & rsPages.eof & "/" & rsPages.bof & "<br/>"

        If rsPages.eof = False Then

        ' found, make a link

        EmitDebug 16, 2, "walkwiki: topic found<br/>"

        'myText = gRE.Replace(myText, "$1<a href=""" & gScript & "?$2"">$2</a>$3")

        'myText = gRE.Replace(myText, "$1<a href=""" & gScriptURL & "&o=$2"">$2</a>$3")

        'Bjarne

        If gSpaceNames = 1 Then

           myText = gRE.Replace(myText, "$1<a href=""" & gScriptURL & "&o=$2"">" & SpaceName(thisHit) & "</a>$3")

        Else

           myText = gRE.Replace(myText, "$1<a href=""" & gScriptURL & "&o=$2"">$2</a>$3")

        End If

        Else

        ' not found, make a ? link

        EmitDebug 17, 2, "walkwiki: topic not found<br/>"

        'myText = gRE.Replace(myText, "$1<span>$2</span><a href=""" & gScript & "?a=edit&o=$2"">?</a>$3")

        'myText = gRE.Replace(myText, "$1<span>" & left(thisHit, len(thisHit)-1) & "</span><a href=""" & gScriptURL & "&a=edit&o=$2"">" & right(thisHit,1) & "</a>$3")

        'Bjarne

        'If gSpaceNames = 1 Then

        '   myText = gRE.Replace(myText, "$1<span>" & left(SpaceName(thisHit), len(SpaceName(thisHit))-1) & "</span><a href=""" & gScriptURL & "&a=edit&o=$2"">" & right(thisHit,1) & "</a>$3")

        'Else

           'myText = gRE.Replace(myText, "$1<span>" & left(thisHit, len(thisHit)-1) & "</span><a title='Click to create this page' href=""" & gScriptURL & "&a=edit&o=$2"">" & right(thisHit,1) & "</a>$3")

        myText = gRE.Replace(myText, "$1<a title='Click to create this page' class='NoWikiYet' href=""" & gScriptURL & "&a=edit&o=$2"">" & thisHit & "</a>$3")

        'End If

        End If

        EmitDebug 18, 3, "WalkWiki:myText(" & myText & ")<br/>"

    End If

    Next

    WalkWiki = myText   ' WalkWiki2 removed by Elrey 3/2006

'ElreyRonald - added to support [[wikiword]] - see above

Function WalkWiki2_old(isTeksten)

    Dim wikiNames

    Dim thisHit

    Dim nHits

    Dim rsPages

    Dim myText

    myText = isTeksten

    gRE.Pattern = "(\[\[[A-Za-z0-9\_\s]+\]\])+"

    Set wikiNames = gRE.Execute(myText)

    nHits = wikiNames.Count

    Dim i, j

    Dim isDuplicate()

    ReDim isDuplicate(nHits)

    isDuplicate(0)= 0

    For i = 0 To nHits-2

      For j = i+1 To nHits-1

        isDuplicate(j)=0

        If (wikiNames.Item(i) = wikiNames.Item(j)) Then

          isDuplicate(j)=1

          Exit For

        End If

      Next

    Next

    For j = 0 To nHits-1

      If (isDuplicate(j) = 0 ) Then

        'only process the name if it is not a duplicate

        thisHit = RemoveBrackets(wikiNames.Item(j))

        gRE.Pattern = "([^=>?&A-Za-z0-9\/\[])(\[\[)(" & thisHit & ")(\]\])([^=A-Za-z0-9\]])"

        sqlQuery = "select Title from " & gDbTableName & " where title='" & RemoveSpaces(thisHit) & "'"

        Set rsPages = gDataConn.Execute(sqlQuery)

        If rsPages.eof = False Then

           myText = gRE.Replace(myText, "$1<a href=""" & gScriptURL & "&o=$3"">$3</a>$5")

        Else

           myText = gRE.Replace(myText, "$1" & left(thisHit, len(thisHit)-1) & _

            "<a href=""" & gScriptURL & "&a=edit&o=$3"">" & right(thisHit,1) & "</a>$5")

        End If

        myText = replace( myText, "&o=" & thisHit , "&o=" & RemoveSpaces(thisHit)  )

     End If

    Next

    WalkWiki2 = myText

End function