0 Replies Latest reply: Feb 8, 2013 4:31 PM by Wayne Howlett RSS

    Why do some scripts from version 9 not run in version 11?

    Wayne Howlett

      I have a very nice pair of functions that run great in version 9, but will only return null value when I run them under version 11?  Does anyone have any ideas?

       

      Here are the scripts.  They are used in the load script to convert RTF Blobs to Text and I call them as:

       

      LOAD

           ....    

           RTF2Text(BLOBTEXT(Blob Field)) as [Text Results]

       

      FUNCTION BLOBTOTEXT(blob)

          txt_str = ""

          FOR c = 1 to (LEN(blob)-4) step 4

              hx = mid(blob,c,2)

              dc = CLng("&H" & hx)

              tc = Chr(dc)

              txt_str = txt_str & tc

          NEXT

          BLOBTOTEXT = txt_str

      END FUNCTION

       

      Function RTF2Text(input)

      Dim out

      Dim rtf

      Set rtf = CreateObject("RICHTEXT.RichtextCtrl.1")

      rtf.TextRTF = input

      out = rtf.Text

      set rtf = nothing

      RTF2Text = out

      End Function