Deleting paragraphs in TextEdit

Question

Hi there,
   I'm having some issues deleting certain paragraphs in a document.  I want to delete every paragraph which doesn't start with '{'.  I have done this so far:
tell application "TextEdit"
  activate
          open "/Users/John/Desktop/map.rtf"
          set this_text to the text of document 1
end tell
set the paragraph_list to every paragraph of this_text
repeat with i from 1 to the count of paragraphs of this_text
          set this_paragraph to item i of the paragraph_list
          try
                    if first character of this_paragraph is not "{" then
  delete item i of paragraph_list
                    end if
          on error  --If there isn't any character
  delete item i of paragraph_list
          end try
end repeat
I don't know what I am doing wrong.  Thanks in advance.

Answer 1

In plain words, I want to delete a paragraph if it contais the words "Water":"0"  That's why I tried to use 'if offset=0', Am I wrong? (again? )
You were nearly right! See below:
set theNewText to ""
tell application "TextEdit"
    set theText to text of front document
    repeat with k from 1 to (count paragraphs of theText)
        set thisParagraph to paragraph k of theText
        if (length of thisParagraph > 0) ¬
            and ((offset of "\"Water\":\"0\"" in thisParagraph) is 0) ¬
            and (character 1 of thisParagraph is "{") then
            set theNewText to theNewText & thisParagraph & return
        end if
    end repeat
    make new document at front with properties {text:theNewText}
    activate
end tell