; File with batchs for alternative Find & Replace
; for extension AltSearch.oxt for OOo Writer
; Charset: UTF-8 
;
; v1.3  11/09
;
; Syntax:
; Lines which do not begin with some master command will be ignored.
; Master command must be bounded in [] and must be at the beginning of the line.
;  There can be spaces in front of master command, everything behind it will be
;  interpreted as parameters.
; 
;  Description of master commands:
;  [Name] - batch name (referred to as parameter) - single batch begins
;      always this master command. The end of batch is determinated by next 
;      occurrence of command [Name] or [End] for last valid batch.
;
;  [Find] - searched expression - at execution of batch parameter will be 
;      transferred to the field "Search for"
;  [Replace] - replaced expression - at execution of batch parameter will be 
;      transferred to the field "Replace"
;  [Parameters] - parameters of searching and replacing - empty string matches
;      setting of all parameters to false, citation the parametr's name
;      will set to true.  
;      Accepted parameters:  
;           MatchCase  PreserveCapital  WholeWord  ParaStyles  Regular
;           CurrSelection  Backwards  MsgOff  NoSummary  
;
;      MsgOff - suppress most error messages and information (for one step of search)
;      NoSummary - suppress the final report of whole batch (usefull if using keyshortcut)  
; 
;  [Command] - determine mode of executing searching and replacing -
;      Accepted parameters:  Find  FindAll  Replace  ReplaceAll  Count
;
;      In future there could also be instructions for cursor's movement, 
;      setting of bookmark according to cursor and restoration cursor
;      in accordance to bookmark etc.
;       
;  [End] - indicates the end of last valid batch - everything which be after
;      that will be ignored.  
;
; 

************************************************************

[Name] Html [Sel.]	Primitive conversion to Html tags for selected block    	 
  ; the same parameters for all 
  [Parameters] MsgOff Regular CurrSelection

  ; bold
  [Find][:::CharWeight::]
  [Replace]<b>&</b>
  [Command] ReplaceAll 

  ; italic
  [Find][:::CharPosture::]
  [Replace]<i>&</i>
  [Command] ReplaceAll         	

  ; Hyperlinks 
  [Find][:::HyperLinkURL::]
  [Replace]<a href="\u">&</a>
  [Command] ReplaceAll

  ; Footnotes
  [Find][::Footnote::]
  [Replace]<b><span Title="\o"><span style="vertical-align: super; font-size: smaller;">\i</span></span></b>
  [Command] ReplaceAll

  ; Add tags of paragraphs 
  [Find]^.*$
  [Replace]<p>&</p>
  [Command] ReplaceAll

  ; Remove redundant ends-starts of identical tags in sequence
  [Find]</i><i>|</b><b>|</p><p>
  [Replace]
  [Command] ReplaceAll


[Name] Text [Sel.]	Convert selected block on the BBcode
   ; the same parameters for all 
  [Parameters] MsgOff Regular CurrSelection

  [Find][:::CharWeight::]
  [Replace][b]&[/b]
  [Command] ReplaceAll

  [Find][:::CharPosture::]
  [Replace][i]&[/i]
  [Command] ReplaceAll

  [Find][:::CharUnderline::]
  [Replace][u]&[/u]
  [Command] ReplaceAll

  [Find][:::CharAutoEscapement=true|CharEscapementHeight=58|CharEscapement=-101::]
  [Replace][sub]&[/sub]\d
  [Command] ReplaceAll

  [Find][:::CharAutoEscapement=true|CharEscapementHeight=58|CharEscapement=101::]
  [Replace][sup]&[/sup]\d
  [Command] ReplaceAll

  [Find][:::HyperLinkURL::]
  [Replace][url=\u]&[/url]
  [Command] ReplaceAll

  [Find][::Picture::]
  [Replace][img]\O[/img]
  [Command] ReplaceAll

  [Find][:::CharFontName=Courier New::]
  [Replace][code]&[/code]
  [Command] ReplaceAll

  ; Remove redundant ends-starts of identical tags in sequence
  [Find]\[/b]\[b]|\[/i]\[i]|\[/u]\[u]|\[/sub]\[sub]|\[/sup]\[sup]|\[/code]\[code]
  [Replace]
  [Command] ReplaceAll
  
  ; code through paragraph  
  [Find]\[/code]\p\[code]
  [Replace]\p
  [Command] ReplaceAll

  ; code through line break  
  [Find]\[/code]\n\[code]
  [Replace]\n
  [Command] ReplaceAll

  ; lists items
  [Find][:::NumberingStyleName=::]
  [Replace][list][*]&[/list]
  [Command] ReplaceAll

  ; Remove redundant list tags 
  [Find]\[/list]\p\[list]
  [Replace]\p
  [Command] ReplaceAll

 
  
[Name] Text [Sel.]	Join paragraphs non separated by empty paragraphs
 ; block of empty paragraphs replace by one empty par 
  [Find]\p{2,}
  [Replace]\p\p
  [Parameters] MsgOff Regular CurrSelection 
  [Command] ReplaceAll

 ; remove spaces and tabs on the starting and enddin of paragraphs
  [Find](^( *\t*)*|( *\t*)*$)
  [Replace]
  [Command] ReplaceAll

 ; remove ends of paragraphs   
  [Find]\p
  [Replace]  
  [Command] ReplaceAll

 ; remove space at the beginning paragraph behind of block empty paragraphs 
  [Find]^ 
  [Replace]
  [Command] ReplaceAll


[Name] Text [Sel.]    Separate non empty paragraphs by empty par
  [Find]^.+$
  [Replace]&\p
  [Parameters]  MsgOff Regular CurrSelection
  [Command] ReplaceAll


; separator
[Name] 

[Name] Text [All]	Convert date from  yyyy-mm-dd  to  dd.mm.yy
  [Find](\d{2,2})(\d{2,2})-(\d{1,2})-(\d{1,2})
  [Replace]\4.\3.\2
  [Parameters]   MsgOff  Regular  
  [Command] ReplaceAll


[Name] Text [All]	Convert date from  dd.mm.yyyy  to  yy-mm-dd
  [Find](\d{1,2})\. *(\d{1,2})\. *(\d{2,2})(\d{2,2})
  [Replace]\4-\2-\1
  [Parameters]   MsgOff  Regular  
  [Command] ReplaceAll


[Name] Text [All]	Write out all Hyperlinks to new file
  [Find][:::HyperLinkURL::]
  [Replace]Link \i, on page \I: \D\C{Example}\h&\h{\u}\C (URL: \C{Example}\u\C)\C{Example}\p\h\R
  [Parameters]   MsgOff  Regular  
  [Command] ReplaceAll


[Name] Text [All]	Write out all Notes to new file
  [Find][::Note::]
  [Replace]Note &\i, on page \I,  Content:\D\C{Example}\C\n\o\p\p\R
  [Parameters]   MsgOff  Regular  
  [Command] ReplaceAll

[Name] Text [All]    Write out all Pictures to new file
  [Find][::Picture::]
  [Replace]Picture \i, on page \I, Name of picture: \C\O\C{Example}&\p\p\C\R
  [Parameters]   MsgOff  Regular  
  [Command] ReplaceAll

[Name] Text [All]    Write out all Tables to new file
  [Find][::TextTable::]
  [Replace]Table \i, on page \I, Name of table: \C\O\C{Example}\p&\p\p\C\R
  [Parameters]   MsgOff  Regular  
  [Command] ReplaceAll

[Name] Text [All]    Write out all Text Frames to new file
  [Find][::TextFrame::]
  [Replace]Frame \i, on page \I, Name of Text Frame: \C\O\C{Example}\p&\p\p\C\R
  [Parameters]   MsgOff  Regular  
  [Command] ReplaceAll


; separator
[Name] 


[Name] Fix general things
  
 ; remove double spaces (three runs)
  [Find]  
  [Replace] 
  [Parameters] MsgOff Regular
  [Command] ReplaceAll

  [Find]  
  [Replace] 
  [Command] ReplaceAll
  
  [Find]  
  [Replace] 
  [Command] ReplaceAll

 ; remove spaces and tabs at the start and end of paragraphs
  [Find](^( *\t*)*|( *\t*)*$)
  [Replace]
  [Command] ReplaceAll
  
 ; remove empty paragraphs
  [Find]^$
  [Replace]
  [Command] ReplaceAll

  
[Name] Fix socionic signs
  
  ; ЧИ -> I
  [Find]([ \+\-–±\(←])ЧИ([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}I\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Parameters] MatchCase MsgOff Regular
  [Command] ReplaceAll
  
  ; БИ -> T
  [Find]([ \+\-–±\(←])БИ([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}T\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Command] ReplaceAll
   
  ; ЧС -> F
  [Find]([ \+\-–±\(←])ЧС([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}F\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Command] ReplaceAll
  
  ; БС -> S
  [Find]([ \+\-–±\(←])БС([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}S\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Command] ReplaceAll

  ; ЧЭ -> E
  [Find]([ \+\-–±\(←])ЧЭ([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}E\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Command] ReplaceAll
  
  ; БЭ -> R
  [Find]([ \+\-–±\(←])БЭ([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}R\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Command] ReplaceAll
  
  ; ЧЛ -> P
  [Find]([ \+\-–±\(←])ЧЛ([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}P\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Command] ReplaceAll
  
  ; БЛ -> L
  [Find]([ \+\-–±\(←])БЛ([ \)0123456789\/])
  [Replace]\1\A{CharFontName=PT Serif}L\A{CharFontName=Socionic}\2\A{CharFontName=PT Serif}
  [Command] ReplaceAll
  
  ; fix minus signs
  [Find](-)([ITFSERPL])([ \)0123456789\/])
  [Replace]−\2\A{CharFontName=Socionic}\3\A{CharFontName=PT Serif}
  [Command] ReplaceAll
  
  
; separator
[Name]
  
  
[Name] Promote all headers

  ; 2 -> 1
  [Find][:::ParaStyleName=Heading 2::]
  [Replace]\0\A{ParaStyleName=Heading 1}
  [Parameters] MsgOff Regular
  [Command] ReplaceAll
  
  ; 3 -> 2
  [Find][:::ParaStyleName=Heading 3::]
  [Replace]\0\A{ParaStyleName=Heading 2}
  [Command] ReplaceAll
  
  ; 4 -> 3
  [Find][:::ParaStyleName=Heading 4::]
  [Replace]\0\A{ParaStyleName=Heading 3}
  [Command] ReplaceAll
  
  ; 5 -> 4
  [Find][:::ParaStyleName=Heading 5::]
  [Replace]\0\A{ParaStyleName=Heading 4}
  [Command] ReplaceAll
  
  ; 6 -> 5
  [Find][:::ParaStyleName=Heading 6::]
  [Replace]\0\A{ParaStyleName=Heading 5}
  [Command] ReplaceAll
  
  ; 7 -> 6
  [Find][:::ParaStyleName=Heading 7::]
  [Replace]\0\A{ParaStyleName=Heading 6}
  [Command] ReplaceAll
  
  ; 8 -> 7
  [Find][:::ParaStyleName=Heading 8::]
  [Replace]\0\A{ParaStyleName=Heading 7}
  [Command] ReplaceAll
  
  ; 9 -> 8
  [Find][:::ParaStyleName=Heading 9::]
  [Replace]\0\A{ParaStyleName=Heading 8}
  [Command] ReplaceAll
  
  ; 10 -> 9
  [Find][:::ParaStyleName=Heading 10::]
  [Replace]\0\A{ParaStyleName=Heading 9}
  [Command] ReplaceAll
  
  
[Name] Demote all headers

  ; 9 -> 10
  [Find][:::ParaStyleName=Heading 9::]
  [Replace]\0\A{ParaStyleName=Heading 10}
  [Parameters] MsgOff Regular
  [Command] ReplaceAll
  
  ; 8 -> 9
  [Find][:::ParaStyleName=Heading 8::]
  [Replace]\0\A{ParaStyleName=Heading 9}
  [Command] ReplaceAll
  
  ; 7 -> 8
  [Find][:::ParaStyleName=Heading 7::]
  [Replace]\0\A{ParaStyleName=Heading 8}
  [Command] ReplaceAll
  
  ; 6 -> 7
  [Find][:::ParaStyleName=Heading 6::]
  [Replace]\0\A{ParaStyleName=Heading 7}
  [Command] ReplaceAll
  
  ; 5 -> 6
  [Find][:::ParaStyleName=Heading 5::]
  [Replace]\0\A{ParaStyleName=Heading 6}
  [Command] ReplaceAll
  
  ; 4 -> 5
  [Find][:::ParaStyleName=Heading 4::]
  [Replace]\0\A{ParaStyleName=Heading 5}
  [Command] ReplaceAll
  
  ; 3 -> 4
  [Find][:::ParaStyleName=Heading 3::]
  [Replace]\0\A{ParaStyleName=Heading 4}
  [Command] ReplaceAll
  
  ; 2 -> 3
  [Find][:::ParaStyleName=Heading 2::]
  [Replace]\0\A{ParaStyleName=Heading 3}
  [Command] ReplaceAll
  
  ; 1 -> 2
  [Find][:::ParaStyleName=Heading 1::]
  [Replace]\0\A{ParaStyleName=Heading 2}
  [Command] ReplaceAll 
  

[Name] Promote all headers (Selection)

  ; 2 -> 1
  [Find][:::ParaStyleName=Heading 2::]
  [Replace]\0\A{ParaStyleName=Heading 1}
  [Parameters] MsgOff Regular CurrSelection
  [Command] ReplaceAll
  
  ; 3 -> 2
  [Find][:::ParaStyleName=Heading 3::]
  [Replace]\0\A{ParaStyleName=Heading 2}
  [Command] ReplaceAll
  
  ; 4 -> 3
  [Find][:::ParaStyleName=Heading 4::]
  [Replace]\0\A{ParaStyleName=Heading 3}
  [Command] ReplaceAll
  
  ; 5 -> 4
  [Find][:::ParaStyleName=Heading 5::]
  [Replace]\0\A{ParaStyleName=Heading 4}
  [Command] ReplaceAll
  
  ; 6 -> 5
  [Find][:::ParaStyleName=Heading 6::]
  [Replace]\0\A{ParaStyleName=Heading 5}
  [Command] ReplaceAll
  
  ; 7 -> 6
  [Find][:::ParaStyleName=Heading 7::]
  [Replace]\0\A{ParaStyleName=Heading 6}
  [Command] ReplaceAll
  
  ; 8 -> 7
  [Find][:::ParaStyleName=Heading 8::]
  [Replace]\0\A{ParaStyleName=Heading 7}
  [Command] ReplaceAll
  
  ; 9 -> 8
  [Find][:::ParaStyleName=Heading 9::]
  [Replace]\0\A{ParaStyleName=Heading 8}
  [Command] ReplaceAll
  
  ; 10 -> 9
  [Find][:::ParaStyleName=Heading 10::]
  [Replace]\0\A{ParaStyleName=Heading 9}
  [Command] ReplaceAll
  
  
[Name] Demote all headers (Selection)

  ; 9 -> 10
  [Find][:::ParaStyleName=Heading 9::]
  [Replace]\0\A{ParaStyleName=Heading 10}
  [Parameters] MsgOff Regular CurrSelection
  [Command] ReplaceAll
  
  ; 8 -> 9
  [Find][:::ParaStyleName=Heading 8::]
  [Replace]\0\A{ParaStyleName=Heading 9}
  [Command] ReplaceAll
  
  ; 7 -> 8
  [Find][:::ParaStyleName=Heading 7::]
  [Replace]\0\A{ParaStyleName=Heading 8}
  [Command] ReplaceAll
  
  ; 6 -> 7
  [Find][:::ParaStyleName=Heading 6::]
  [Replace]\0\A{ParaStyleName=Heading 7}
  [Command] ReplaceAll
  
  ; 5 -> 6
  [Find][:::ParaStyleName=Heading 5::]
  [Replace]\0\A{ParaStyleName=Heading 6}
  [Command] ReplaceAll
  
  ; 4 -> 5
  [Find][:::ParaStyleName=Heading 4::]
  [Replace]\0\A{ParaStyleName=Heading 5}
  [Command] ReplaceAll
  
  ; 3 -> 4
  [Find][:::ParaStyleName=Heading 3::]
  [Replace]\0\A{ParaStyleName=Heading 4}
  [Command] ReplaceAll
  
  ; 2 -> 3
  [Find][:::ParaStyleName=Heading 2::]
  [Replace]\0\A{ParaStyleName=Heading 3}
  [Command] ReplaceAll
  
  ; 1 -> 2
  [Find][:::ParaStyleName=Heading 1::]
  [Replace]\0\A{ParaStyleName=Heading 2}
  [Command] ReplaceAll 
  

[End]