Attachment 43865 Details for Bug 34786 – basic macros illustrating and fixing problem

basic macros illustrating and fixing problem

sentencemacros.bas (text/plain), 3.09 KB, created by seatrout on 2011-02-26 19:35:59 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: seatrout

Created: 2011-02-26 19:35:59 UTC

Size: 3.09 KB

patch

obsolete

>Sub Main
>fixmovefor680
>end sub
>
>Sub fixmovefor680
>' Fixed up for m_56 using a breakiterator, which works for almost every case
>' October 12 04
>' redone for m84 to deal with the broken empty paragraph problem -- changed previous sentence to startof sentence, and 
>' put in a check for when this doesn't work.
>dim oDoc,oText,oVCursor,mySelection,testright,testleft,brk,dodgystring,p,q,cr
>dim aLocale as new com.sun.star.lang.Locale
>aLocale.Language="en"
>aLocale.Country="GB"
>
>oDoc = thiscomponent
>oText = oDoc.getText()
>brk=createUnoService("com.sun.star.i18n.BreakIterator")
>oVCursor = oDoc.getCurrentController().getViewCursor()
>	mySelection = oText.createTextCursorByRange ( oVCursor.getstart() )
>	' except at the end of a paragraph, going to the end of the sentence 
>	' before going back to the beginning
>	' gets things straight
>	mySelection.gotoStartofSentence(TRUE)
>	p=len(mySelection.getString())
>	' check for m84 workaround follows. 
>	if p=0 then
>		mySelection.GoLeft(1,TRUE)
>		mySelection.gotoStartofSentence(TRUE)		
>	end if
>	dodgystring=mySelection.getString()
>	' OK test if there is a sentence break in this.
>	q=brk.beginOfSentence(dodgystring,p,aLocale)
>	carriage_return=brk.nextCharBlock(dodgystring,0,aLocale,15) ' control works
>	' debug section
>'	msgbox(p,0,"Dodgystring length")
>'	msgbox(q,0,"q")
>'	msgbox (carriage_return,0,"carriage_return")
>	mySelection.collapseToStart()
>	if q>0 then
>		mySelection.gotoNextSentence(FALSE)
>		if q-carriage_return=2 then
>'			msgbox("need to go forward?")
>			myselection.goToNextSentence(FALSE)
>			mySelection.goRight(1,FALSE)
>		elseif	carriage_return=-1 then ' workaround for empty paragraph
>			myselection.goLeft(3,FALSE)
>		end if
>	end if
>	oVCursor.gotoRange(MySelection,FALSE)
>end sub
>
>Sub fixkillfor680
>' Fixed up for m_56 using a breakiterator, which works for almost every case
>' October 12 04
>dim oDoc,oText,oVCursor,mySelection,testright,testleft,brk,dodgystring,p,q
>dim aLocale as new com.sun.star.lang.Locale
>aLocale.Language="en"
>'atend is a boolean to check for end of doc condition
>oDoc = thiscomponent
>oText = oDoc.getText()
>brk=createUnoService("com.sun.star.i18n.BreakIterator")
>oVCursor = oDoc.getCurrentController().getViewCursor()
>	mySelection = oText.createTextCursorByRange ( oVCursor.getstart() )
>	mySelection.gotoStartofSentence(TRUE)
>	p=len(mySelection.getString())
>	' check for m84 workaround follows. 
>	if p=0 then
>		mySelection.GoLeft(1,TRUE)
>		mySelection.gotoStartofSentence(TRUE)		
>	end if
>	dodgystring=mySelection.getString()
>	' OK test if there is a sentence break in this.
>	q=brk.beginOfSentence(dodgystring,p,aLocale)
>	carriage_return=brk.nextCharBlock(dodgystring,0,aLocale,15) ' control works
>	if q>0 then
>		mySelection.gotoNextSentence(TRUE)
>		if q-carriage_return=2 then
>'			msgbox("need to go forward?")
>			myselection.goToNextSentence(TRUE)
>'			mySelection.goRight(1,TRUE)
>		elseif	carriage_return=-1 then ' workaround for empty paragraph
>			myselection.goLeft(3,FALSE)
>		end if
>	end if
>	mySelection.setString("")
>	mySelection.collapseToStart
>	oVCursor.gotoRange(MySelection,FALSE)
>end sub

Actions: View

Attachments on bug 34786: 43865 | 43870

Use of freedesktop.org services, including Bugzilla, is subject to our Code of Conduct. How we collect and use information is described in our Privacy Policy.