Ventura 8 Script: Select / Highlight Multiple Lines

Hi,

Just want to ask if there's a script command or syntax in Ventura 8 to highlight and select multiple lines?
There is a marker/paragraph tag to mark the beginning of the first line to be highlighted and selected, and also another marker/paragraph tag to mark the end.

Sample here...

line 1
line 2
line 3
begin_select line
line4
line5
line6
line7
end_select line
line 8
line 9
line 10

Well, above is just simplified document sample. The main goal is to have a script to select multiples lines that will start from the marker "begin_select line" and selection/highlight will terminate at marker "end_select line". Thus, giving the output of highlighting and selecting multiple lines which are line4 up to line7.

Highly appreciate your help.
Thanks!

eweber over 11 years ago

Probably should have replied over here in your new thread before replying to the other, but I missed the new thread at first.

There are several script commands to manipulate the selection in Ventura. Have a look in C:\Program Files\Corel\Ventura 10\Programs\VENT_SCR.hlp for a complete reference on Ventura scripting commands. For example, the following loop selects one character at a time until it finds "R".

DO
..TextCharRight 1, FALSE
..TextCharRight 1, TRUE
LOOP UNTIL .SelectedText() = "R"
Cancel
Up 0 Down

Reply

Cancel
eweber over 11 years ago in reply to eweber

The forum seems to be adding extra dots to the commands, I'll try once more:

DO
..TextCharRight 1, FALSE
..TextCharRight 1, TRUE
LOOP UNTIL .SelectedText() = "R"
Cancel
Up 0 Down

Reply

Cancel
eweber over 11 years ago in reply to eweber

Still seems to add an extra dot if the command line begins with a period. So, just beware of that.
Cancel
Up 0 Down

Reply

Cancel
ventura888 over 11 years ago in reply to eweber

I tried this script but got a runtime error and type mismatch.
Anything I've missed?

.EditInitFindTagOptions "Marker_beginHighlight", .TagType = 0, .CurrentChapter = FALSE, .Backward = FALSE
A = .EditFindTag()
DO
.TextSelectSentence
.TextSentenceDown 1
LOOP UNTIL A = "Marker_endHighlight"
Cancel
Up 0 Down

Reply

Cancel
eweber over 11 years ago in reply to ventura888

I see four problems:

1. You set A = .EditFindTag, which will implicitly make "A" a numeric variable (equivalent to True or False). And then you tried to reuse it later in your DO loop as a string variable. Hence, you're throwing a type mismatch.

2. I think you are trying to look for a paragraph tag in your DO loop, but you aren't getting the tag name anywhere in the loop.

3. Because you want to track the beginning and the end, you need to have a way to keep track of how many sentences you loop through.

4. Using .TextSentenceDown may not be the best way to approach it since it's punctuation-dependent. .TextCharDown might be better.

So, based on that, this might be how I modify your code. First, it will do the find. If it finds a tag match, it loops through each line below the match looking for a match to the end tag, and counting how many lines it moves. When it finds the match, it selects back to the first tag. This code won't be perfect; you'll need to add some beginning and end of line text selection commands to get everything you want, but it should be close.

WITHOBJECT "CorelVentura.Automation.10"

..EditInitFindTagOptions "Marker_beginHighlight", .TagType = 0, .CurrentChapter = FALSE, .Backward = FALSE
A = .EditFindTag()

IF A THEN
LineCount = 0
DO
.TextCharDown
CurTag = .FormatGetParaTag
LineCount = LineCount + 1
LOOP UNTIL CurTag = "Marker_endHighlight"
.TextCharUp .Count=LineCount, .Extend=TRUE
END IF

END WITHOBJECT
Cancel
Up 0 Down

Reply

Cancel