[Gambas-user] [Gambas Bug Tracker] Bug #708: Commented code is being run

[bugtracker at ...3416...]

Comment #7 by Moviga TECHNOLOGIES:

Well, one of the latest I've been working on is this:

Public Sub FormatPost(Post As String) As String



  Dim sNewPost As String

  Dim sSplitPost As String[]

  Dim iLastPos As Integer = 1

  Dim iStart As Integer

  Dim iEnd As Integer



  If InStr(Post, "[code=gambas]", iLastPos) > 0 Then

    While InStr(Post, "[code=gambas]", iLastPos) > 0



      sSplitPost = New String[]

      iStart = InStr(Post, "[code=gambas]", iLastPos)

      sSplitPost.Add(Html(Mid(Post, IIf(iEnd > 0, iEnd + 7, 1), iStart - IIf(iEnd > 0, iEnd + 7, 1))))

      iEnd = InStr(Post, "[/code]", iLastPos)

      iLastPos = iEnd + 6

      sSplitPost.Add("<code>" & GambasCode.Higlight(Trim(Mid(Post, iStart + 13, iEnd - iStart - 13))) & "</code>")

      sNewPost &= sSplitPost.Join("")

      'Break

    Wend

    sNewPost &= Html(Right(Post, Len(Post) - iEnd - 6))

  Else

    sNewPost = Post

    sNewPost = Html(sNewPost)

  Endif

  sNewPost = Markdown.ToHTML(sNewPost)



  Return sNewPost



End



Commenting out the sSpilPost.Add( ... lines has failed many times



The most resent was just simply



'Session.Abandon()



I removed the ', but it was not run until I moved it to a different line...