╨╧рб▒с>■  ■                                                                                                                                                                                                                                                                                                                                                                                                                                                   ¤   ■                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                           Root Entry                                                                      ■                                                                                                                                                                                                                                                                                                                                                                                           Root Entry                                                  ░щЛB╨д^а$ЭW▒P&Й╨^╜б╙^╜(    CompObj                                                                      Ьi    Ole                                                                                       Ы    persist elements                              "                         Ъ            ¤   ■    ■   ■    !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJ■                                                                                                                                                                                                                       SfxDocumentInfo                                                              М_    SummaryInformation                        (                                З@    BasicManager2                                                            Еc    StarBASIC                                                     `rЮ╥^╜└ й╥^╜            SfxWindows■   \╛╨G╕GАА\╛■         "4G√   Д.\╛DrawingLayerиPАА\╛№   j            !    ■   [     SfxStyleSheets    ■       ■   \╛                ■   D║    SwPageStyleSheets■       ■   \╛$            $o╨╖(╠█╥wStarWriterDocumentЛ■   НОПР&     ХЦЧШЩ╚ ■   Standard                                                                          Юj    URLSearch                                                                            O[                                                                                                                                  !"#$%&'■   )*+,-./0123456789:;<=>?@ABC■   EFGHIJKLMNOPQRSTUVWXYZ■   \]^_`abcdefghijklmnopqrstuvwxyz{|}~АSW4HDR.rр0WтЪC(364D(BUILD:1085)(SV364)]DAdre▀buch ADRESSEN!   Frameformat   Zeichenformat  TextformatvorlageStandard  ▄berschrift TextkЎrper  ▄berschrift 3Absender Internet Link Grafik  Root 11   Grafik1 12   DrawObj 13   StarOffice 14Standard  Abbildung Tabelle TextdW)01   j) stardiv.dic Z standard.dic ^FN╒T?$■ 4Verkn№pfte Dokumente: Hyperlinks suchen und ersetzenTт$■ ╫Die Suchen-/Ersetzen-Funktion im SW erlaubt zwar eine ziemlich ausgiebige Suche auch nach Attributen, diese erstreckt sich jedoch leider nicht auf Hyperlinks (URLs). Dieses Manko kann mit einem Makro behoben werden.Tе$■  SA @AК0l:    SpAPY╘ A.PN%Gimages/srchnt.gifAP,Є  APA PTа$■ ХEs erlaubt die Suche nach und das Ersetzen von URLs und/oder Ziel-Frames daf№r. Dabei lassen sich auch Teil-URLs (z.B. nur der Server-Teil) ersetzen.Tb$■  SA @AG0o<:■    S-A PAPA PTb$■ WDieser Aufruf macht hier nicht viel Sinn, kann jedoch zu Demo-Zwecken verwendet werden.T $■ TЧ$■ 4Letzte ─nderung:   Copyright й1998 by Michael HergerSA PlЎ:    SчAP═AP<d<dd<A1PN(G../images/sologo.gifA PAPxAP<A PANPX*http://www.stardivision.de/_topCreated using StarOffice!A0 A38 &4mailto:mherger@jo-sac.ch    w  #JЦСBHL-660BHL-660LPT1:winspoolBHL-660Щ╘ Hу |pc XXA4                                           ''''╚UП╥ЖпU88I l)?  D╨j7ПI l)Ux┤Y(PА┬ПUx┤Y(?■ ╪ЗY▐w▐╪З▐YмwС╪VзЗК YLxY╘ ╔:ЯU░ю Y╘ ? ,Є  ░┬╟ЗY╘ №н( ╪З╓Yьxwt╪зз┬Y,xw┤╪зюY▓xw:╪за"YХxw╪зз5$Y╧xwW┴-ЯUьЩ'═? <x╟З═YZ╨╧рб▒с>■  SW4HDR.rр0WтЪ!   Frameformat   Zeichenformat  TextformatvorlageStandard  ▄berschrift TextkЎrper  ▄berschrift 3Absender Internet Link Grafik  Root 11   Grafik1 12   DrawObj 13   StarOffice 14Standard  Abbildung Tabelle Textq┌иStandardStandardd #'##0.00 CCC#√ '∙ ##0√ .· 00√    CCC$ TT.MM.JJJJTT.  MM.  JJJJИStandardStandarddа #.##0,00 CCC#√ .∙ ##0√ ,· 00√    CCCм TT.MM.JJJJTT.  MM.  JJJJ'StandardStandardd(' #'##0.00 CCC#√ '∙ ##0√ .· 00√    CCC4' TT.MM.JJJJTT.  MM.  JJJJ    B$jК~jК~jК~P╖p░ ├  299 SAAPБ.┼AAPndnddnAPndndSAAPБ.┼AAPndnddnAPndndZ╨╧рб▒с>■    ЬSWG, A<  #$%&'()*./0123456789:;<=>?@ABCDGHK  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFQRSTUМ╟0 ш!'@sX'&@еArialStandardX'@╟dX' @цX'@X'@$XA'2*@VЁdddxdXX7S;@}X8S<@бX9S=@┼XR'D@фX.`Вб└▀8\АТPЮ$' '(l. ╪. D . ░. . И. Ї. `#. ╠'. 8,. д0. 5. |9. ш=. 6') 2■ Ю Internet Link Internet Link@  !''╔GrafikGrafik@  ;7S<8S=9S>>   ╔StandardStandard@  ╔ ▄berschriftStandard ▄berschrift@  ''2A'DR' ╔ TextkЎrperStandard TextkЎrper@  2A'╔ ▄berschrift 3 ▄berschrift ▄berschrift 3@  ' AbsenderStandardAbsender@   '╔RЭ╦aк╨╧рб▒  OXOutdevItemPool 1шшщъыьэюяЁёЄєЇїЎў°∙·√№¤   ш)шщъыьэюяЁё∙·√№¤■     &'()*+,-./06789:;UVWXYZ[\]шcшщъыьэюяЁёЄєЇїЎў°∙·√БВГ■   ■   Ж■   ИЙКЛ■   НОПРСТУФХЦЧШЩ■   ■   ■   Э■   Я■                                                                                                                                                                                                                                                                                                                                                                                                   №¤■  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstшtшщъыьэюяЁёЄєЇїЎў°∙·√№¤■       !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefФХЦЧШЩЪЫЬЭЮЯабdюь 0O P]▐EditEngineItemPoolд ЯпЯбвгдежзийклмн▒▓│Я│Яабвгдежзийклмноп░▓│┤Э┤ЭЮЯабвгдежзйклмноп░▒▓│┤╡6f 01 P?DrMd ─║JoeMl0qр0╝q╦rр0тЪrр0═юБ   ЁDrLy HellDrLy HeavenDrPg №aa  ▐ VCControls  -м0yуу @Qфф @gцц@ЛStandardXщщ@╢ StartSearchXъъ @╨ыы @цээ @№юю @ЁЁ @(ёё@FLXЄЄ@h&!Xєє@К@ XЇЇ@м┤Xїї @╞ЎЎ@сXўў@X°°!@- MS Sans SerifX∙∙@O X··@nX√√@НX■■+@─Hyperlink-Suche startenX##,@№URLSearch.URLSearch.MainX%% @88 @,;;A@u urlsrch.sdwURLSearch.URLSearch.MainX$:bНг╣╧х√?aГЩ╕╫&EdЫ╙щ  Pы╨JoeMI l)DrML DrOb ЪSDVC&L&!Л┘"L&!daццщщёёЄЄєєЇЇЎЎўў°°∙∙··√√■■##;;DrXXDControlsgg,$StandardDrXXMD╨╧рб▒с>■  *2,min,688;3566;100;568;568;5278;8728;0;0,0╨╧рб▒сc4СStandard LIBIMBEDDED LIBIMBEDDEDcС URLSearch LIBIMBEDDED LIBIMBEDDED╨╧рб▒с>■■ рЕЯЄ∙OhлС+'│┘0 h t А М Шд╝╘рь°28@Аъма@Ш■J@АXh╨^╜@А{▄ h]╜Michael HergerMichael HergerSfxDocumentInfoMichael Herger qр0,т╚Michael Herger rр0сЪ uKЇ Info 0 Info 1 Info 2 Info 3 qр0М╚ы╟#<╨╧рб▒с>■  88Ю" ╨╧рб▒с>■  ╨╧рб▒с>■  ■      ░щЛB╨д^а$ЭW▒TextStarWriter 4.0soffice.StarWriterDocument.4Ї9▓q╨╧рб▒сSBX sb Z  Standard StarBASICSBX ARSBX AR SBX AR2c%bqq╨╧рб▒сSBX sb ?[   URLSearch StarBASICSBX ARSBX AR SBX AR]CV eK   URLSearchDlgDialogпa   VCControls  ╩у09═▌▌@єXщщ]@  SearchForURL SearchURLcompleteURLOnlySearchForTarget SearchTargetReplaceWithURL ReplaceURLReplaceWithTarget  ReplaceTarget Search Replace  ReplaceAll Close SearchFor FrameControl1 URLSearchDlgXX X/XDXYXkXXПXжX╣X┼X╥XтXэX№Xъъ @vыы!@Я Hallo und so!Xьь @╣ээ @╧юю@ъXяя@ XЁЁ @&ёёR@lя^№_wTXXXX&X.X6ЄЄ╛@СЕ╨t╝╣ 1с Х щ ┘ Ь ∙hXXXX&X.X6X>XFXNXVX^XfXnXvX~єє^@Ь▒ym )бqXXXX&X.X6X>ЇЇF@Ў -х }бuXXXX&X.її @ ЎЎ@;Xўў@ZX°°@zX∙∙@Ь X··@╗X√√@┌X№№@·X¤¤ @■■ @ &URL:Nur &ganze URLs suchen &Ziel-Frame:UR&L: Ziel-&Frame:&Suchen &Ersetzen E&rsetze alle S&chliessen  Suche nach: Ersetze durch: Hyperlinks Suchen & ErsetzenXXX5XGXRXdXqXАXУXдX╡X╔  @RX╛@ф       XXXX&X.X6X>XFXNXVX^XfXnXvX~ @6 @L@lXX@ПX@оX@╬X @ш @■ @  @*  @@  @V   @l !!@З X"" @б $$@╜ X%%o@ (URLReplace.URLReplace.SearchForURL_Click+URLReplace.URLReplace.SearchForTarget_Click*URLReplace.URLReplace.ReplaceWithURL_Click-URLReplace.URLReplace.ReplaceWithTarget_Click"URLReplace.URLReplace.Search_Click#URLReplace.URLReplace.Replace_Click&URLReplace.URLReplace.ReplaceAll_ClickXX<XBXsXгX╓X■X'&&@X X''@x X((@Ш X))@╕ X**@╪ X++@° X,,@ X--@8 X..o@п 'URLReplace.URLReplace.SearchURL_Changed*URLReplace.URLReplace.SearchTarget_ChangedXX;22@╙ X33@є X44 @ 55 @# 66@? X;; ~@ й StarOffice(URLReplace.URLReplace.SearchForURL_Click StarOffice'URLReplace.URLReplace.SearchURL_Changed StarOffice+URLReplace.URLReplace.SearchForTarget_Click StarOffice*URLReplace.URLReplace.SearchTarget_Changed StarOffice*URLReplace.URLReplace.ReplaceWithURL_Click StarOffice-URLReplace.URLReplace.ReplaceWithTarget_Click StarOffice"URLReplace.URLReplace.Search_Click StarOffice#URLReplace.URLReplace.Replace_Click StarOffice&URLReplace.URLReplace.ReplaceAll_ClickXXPXСX╓XX^XеXсX-Цм┘я$F\║Дю@VuФ┤╓ї4JmМVlВк╔ш4J`vМв┴╫ўr Т ▓ ╥ Є  2 R r э - C Y y P┐aщщыыёёЄЄєєЇЇ■■ $$%%&&''(())**++,,--223366▌▌SBX AR SBX AR SBX ARM CV pы  CheckBoxаaщщяяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV ~Ў  TextBoxмaщщяяёёЄЄєєЇЇЎЎўў°°∙∙··√√  $$%%&&''(())**++,,--..;;SBX AR SBX AR SBX ARCV pп  CheckBoxdaщщяяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■SBX AR SBX AR SBX ARCV pх  CheckBoxЪaщщяяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV ~  TextBox╛aщщююяяёёЄЄєєЇЇЎЎўў°°∙∙··√√№№  !!$$%%&&''(())**++,,--..;;SBX AR SBX AR SBX ARCV pы  CheckBoxаaщщяяёёЄЄ єєЇЇЎЎўў°°∙∙··√√■■%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV ~о  TextBoxdaщщяяёёЄЄєєЇЇЎЎўў°°∙∙··√√  SBX AR SBX AR SBX ARCV pх  CheckBoxЪaщщяяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■%%&&''(())**++,,--;;SBX AR SBX AR SBX ARCV ~┤  TextBoxjaщщ ююяяёёЄЄ єєЇЇЎЎўў°°∙∙··√√   SBX AR SBX AR SBX AR CV nЎ   CommandButtonжaщщ ююяяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■ %%&&''(())**++,,--;;SBX AR SBX AR SBX AR CV nЁ   CommandButtonаaщщ ююяяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■ %%&&''(())**++,,--;;SBX AR SBX AR SBX AR CV nЁ   CommandButtonаaщщ ююяяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■ %%&&''(())**++,,--;;SBX AR SBX AR SBX AR CV n┤   CommandButtondaщщ яяёёЄЄєєЇЇЎЎўў°°∙∙··√√■■ SBX AR SBX AR SBX AR CV xн   FrameControl^aщщяяёёЄЄ єєЇЇЎЎўў°°∙∙··√√■■ SBX AR SBX AR SBX ARCV xн   FrameControl^aщщяяёёЄЄ єєЇЇЎЎўў°°∙∙··√√■■ SBX AR SBX AR SBX ARSBX bm ▐    URLSearchStarBASICModuleSBX ARZSBX emА*  SearchURLFЖSBX emА/ ReplaceAllURLsI\BSBX emА3 ReplaceSelectedURL_yUSBX emА0 SelectHyperlink|ТхSBX emА+    URLMatchФп─SBX emА% MainSBX AR SBX ARBM" MN  URLSearchSCb`Option Explicit Public Const USRVersion$ = "0.98" Public CurrentURL% Sub Main URLSearchDlg.Load() If URLSearchInit() then URLSearchDlg.SearchURL.setFocus() URLSearchDlg.Show() URLSearchDlg.Hide() End If URLSearchDlg.UnLoad() End Sub Sub SearchURL Dim Counter% Dim lOk as Boolean Dim Msg$ Counter% = CurrentURL% lOk = False Selection.ActionStart() Selection.InsertBookmark("BeginOfMHURLSearch") Do Counter% = Counter% + 1 ' falls am Ende angelangt, fragen, ob Suche von vorn If ActiveWindow.URLFieldCount < Counter% Then Selection.GoToBookmark("BeginOfMHURLSearch") Selection.ActionEnd() If MsgBox("'Hyperlinks Suchen & Ersetzen' hat bis zum Ende des Dokumentes gesucht. MЎchten Sie die Suche am Anfang des Dokumentes fortsetzen?", 36, "Dokumentende erreicht") = 6 then Counter% = 0 Else Counter% = CurrentURL% End If Wait(0) Selection.ActionStart() Else ActiveWindow.jumpToURL(Counter%) If URLMatch() Then lOk = True Exit Do End If End If Loop until Counter% = CurrentURL% If Counter% = CurrentURL% and not lOk Then Selection.GoToBookmark("BeginOfMHURLSearch") Msg$ = "Der Hyperlink " If URLSearchDlg.SearchForURL.Value Then Msg$ = Msg$ + "mit URL '" + URLSearchDlg.SearchURL.Text + "' " End If If URLSearchDlg.SearchForURL.Value and URLSearchDlg.SearchForTarget.Value Then Msg$ = Msg$ + "und " End If If URLSearchDlg.SearchForTarget.Value Then Msg$ = Msg$ + "mit Ziel-Frame '" + URLSearchDlg.SearchTarget.Text + "' " End If MsgBox(Msg$ + "konnte nicht gefunden werden.", 64, "Suche erfolglos") Else CurrentURL% = Counter% End If Selection.DeleteBookmark("BeginOfMHURLSearch") Selection.ActionEnd() End Sub Sub ReplaceAllURLs Dim Counter%, TotalCount% TotalCount% = 0 Selection.ActionStart() Selection.InsertBookmark("BeginOfMHURLSearch") For Counter% = ActiveWindow.URLFieldCount to 1 Step -1 ActiveWindow.JumpToURL(Counter%) If URLMatch() Then ReplaceSelectedURL() TotalCount% = TotalCount% + 1 End If Next Selection.GoToBookmark("BeginOfMHURLSearch") Selection.DeleteBookmark("BeginOfMHURLSearch") Selection.ActionEnd() MsgBox("Es wurden " + TotalCount% + " Hyperlinks ersetzt.", 64, "Hyperlinks ersetzt") End Sub Sub ReplaceSelectedURL Dim LinkName$, URL$, URLTarget$ Selection.GoLeft(1, True) LinkName$ = Selection.LinkName Selection.GoRight(1, True) ' ganze URL ersetzen ' URL und Target vergleichen If URLSearchDlg.ReplaceWithURL.Value Then If URLSearchDlg.completeURLOnly.Value Then URL$ = URLSearchDlg.ReplaceURL.Text Else URL$ = URLSearchDlg.ReplaceURL.Text + Mid(Selection.LinkURL, Len(URLSearchDlg.SearchURL.Text) + 1) End If Else URL$ = Selection.LinkURL End If If URLSearchDlg.SearchForTarget.Value Then URLTarget$ = URLSearchDlg.ReplaceTarget.Text Else URLTarget$ = Selection.LinkTarget End If Selection.SetHyperlink(LinkName$, URL$, URLTarget$, Selection.LinkType) End Sub Sub SelectHyperlink Dim LinkLength% ' allenfalls vorhandene Markierung lЎschen Selection.Escape() ' Sonderfall Absatzbeginn If Not Selection.IsStartOfPara Then Selection.GoRight(1, True) End If LinkLength% = Len(Selection.LinkName) ' Sonderfall Lфnge des Hyperlinks = 1 LinkLength% = IIf(LinkLength% = 0, 1, LinkLength%) If Not Selection.IsStartOfDoc Then Selection.GoLeft(1, False) End If ' Link markieren Selection.GoRight(LinkLength%, True) End Sub Function URLMatch as Boolean Dim ActiveURL$, ActiveURLTarget$ SelectHyperlink() ActiveURL$ = Selection.LinkURL ActiveURLTarget$ = Selection.LinkTarget ' URL und Target vergleichen If URLSearchDlg.SearchForURL.Value and URLSearchDlg.SearchForTarget.Value Then If URLSearchDlg.completeURLOnly.Value Then URLMatch = (ActiveURL$ = URLSearchDlg.SearchURL.Text and ActiveURLTarget$ = URLSearchDlg.SearchTarget.Text) Else URLMatch = (Left$(ActiveURL$, Len(URLSearchDlg.SearchURL.Text)) = URLSearchDlg.SearchURL.Text and ActiveURLTarget$ = URLSearchDlg.SearchTarget.Text) End If ' Nur URL ElseIf URLSearchDlg.SearchForURL.Value Then If URLSearchDlg.completeURLOnly.Value Then URLMatch = (ActiveURL$ = URLSearchDlg.SearchURL.Text) Else URLMatch = (Left$(ActiveURL$, Len(URLSearchDlg.SearchURL.Text)) = URLSearchDlg.SearchURL.Text) End If ' Nur Target Else URLMatch = (ActiveURLTarget$ = URLSearchDlg.SearchTarget.Text) End If End Function PCЩEЛБAЛEШЗЗБ В З Б GpЗ Б В В З Б В З Б В ЗБ В З+ЗЗЙ ЗЙ ЗЙЗБ БЗБ А ЗБ В ЗБ AВА ЗБ Б BЗ Б В Б  GбЗ!Б AВА З"Б В З#AB$AААBGnЗ$Б BE~З&Б БЗ(BААЗ)Б В E▌З+Б Б ВА З,Б G▌З-Б А З.EЁЗ1Б БGюЗ3Б ББ GЗ4Б AВА З5БA!З6Б В" В# GlЗ7ББA$Б В В% A&З9Б В" В# Б В' В# GзЗ:ББA(З<Б В' В# GцЗ=ББA)Б В* В% A&З@БA+B@A,ААEЗBББ ЗDБ AВ-А ЗEБ В ЗF+ЗIЗJЙ Й/ЗKБ/BЗMБ В ЗNБ AВА ЗOБ Б В BB  %KєЗPБ Б ВА ЗRБ GъЗSБ0ЗTБ/Б/BЗV&EдЗWБ AВА ЗXБ AВ-А ЗYБ В З[A1Б/A2B@A3ААЗ\+З_З`Й4Й5Й6ЗaБ BА В7А ЗbБ4Б В4 ЗcБ BА В9А ЗhБ В: В# GSЗiБ В; В# GЗjБ5Б В< В% EKЗlБ5Б В< В% Б В= Б В В% А>АBА?АЗmEhЗoБ5Б В= ЗrБ В' В# GЬЗsБ6Б В@ В% E▒ЗuБ6Б ВA ЗxБ Б4Б5Б6Б ВB ВCА Зy+З|З}ЙGЗАБ ВH ЗГБ ВI G2ЗДБ BА В9А ЗЗБGБ В4 А>АЗКБGБGBBБGАJАЗМБ ВK GбЗНБ BА В7А ЗСБ БGА В9А ЗТ+ЗФЗХЙLЙMЗЧБFЗШБLБ В= ЗЩБMБ ВA ЗЬБ В" В# Б В' В# GрЗЭБ В; В# GДЗЮГ БLБ В В% БMБ В* В% E╪ЗаГ БLБ В В% А>ААNАБ В В% БMБ В* В% ЗбEТБ В" В# GrЗеБ В; В# G,ЗжГ БLБ В В% EjЗиГ БLБ В В% А>ААNАБ В В% ЗйEТЗнГ БMБ В* В% Зп++STфN  -2@JSX]dlptzДРг▓╖─╥▀щlВЙОШбж╡┬╚╥╫┌ъя +;JYdwВЧк│╖┴╚═╒фЇ  (1>CHXcjx|ЙУгиUSRVersion0.98CurrentURLMainURLSearchDlgLoadURLSearchInitSearchURLsetFocusShowHideUnLoadCounterlOkMsgFalseSelectionActionStartBeginOfMHURLSearchInsertBookmarkPAR2ActiveWindowURLFieldCountGoToBookmarkActionEnd'Hyperlinks Suchen & Ersetzen' hat bis zum Ende des Dokumentes gesucht. MЎchten Sie die Suche am Anfang des Dokumentes fortsetzen?Dokumentende erreichtMsgBoxWaitjumpToURLURLMatchTrueDer Hyperlink SearchForURLValuemit URL 'Text' SearchForTargetund mit Ziel-Frame 'SearchTargetkonnte nicht gefunden werden.Suche erfolglosDeleteBookmarkReplaceAllURLsTotalCountReplaceSelectedURLEs wurden Hyperlinks ersetzt.Hyperlinks ersetztLinkNameURLURLTargetGoLeftPAR3GoRightReplaceWithURLcompleteURLOnlyReplaceURLLinkURLLenMidReplaceTargetLinkTargetLinkTypeSetHyperlinkPAR4PAR5SelectHyperlinkLinkLengthEscapeIsStartOfParaIIfIsStartOfDocActiveURLActiveURLTargetLeftSBX bm Ы  URLSearchDlgHandlerStarBASICModuleSBX ARX SBX emА2 EnableSearchStartSBX emА2 SearchURL_Changed ЪSBX emА5 SearchTarget_Changed░SBX emА] DeActivateTextField myCheckBox @ myTextField @╞SBX emА3 SearchForURL_Click!$.SBX emА6 SearchForTarget_Click&(SBX emА5 ReplaceWithURL_Click*,мSBX emА8 ReplaceWithTarget_Click.0┘SBX emА-  Search_Click5; SBX emА.  Replace_Click>BL SBX emА1 ReplaceAll_ClickEGБ SBX emА0     URLSearchInitKgЧ SBX emА.  About_Clickedku·SBX AR SBX ARBM╫ MNURLSearchDlgHandlerSC  ' Suchen-/Ersetzen-KnЎpfe de-/aktivieren: ' nur aktiv, wenn №berahupt ein Such-String erfasst wurde Sub EnableSearchStart URLSearchDlg.Search.Enabled = (URLSearchDlg.SearchURL.Text <> "" or URLSearchDlg.SearchTarget.Enabled) URLSearchDlg.Replace.Enabled = URLSearchDlg.Search.Enabled and not ActiveDocument.ReadOnly URLSearchDlg.ReplaceAll.Enabled = URLSearchDlg.Replace.Enabled End Sub Sub SearchURL_Changed EnableSearchStart() End Sub Sub SearchTarget_Changed EnableSearchStart() End Sub ' ------------------------------------------------- ' Texteingabe f№r Such- und Ersetzbegriffe abhфngig ' vom Status der Checkbox de-/aktivieren Sub DeActivateTextField(myCheckBox, myTextField) myTextField.Enabled = myCheckBox.Value If myCheckBox.Value then myTextField.SetFocus() Else myTextField.Text = "" End If EnableSearchStart() End Sub Sub SearchForURL_Click DeActivateTextField(URLSearchDlg.SearchForURL, URLSearchDlg.SearchURL) URLSearchDlg.CompleteURLOnly.Enabled = URLSearchDlg.SearchForURL.Value End Sub Sub SearchForTarget_Click DeActivateTextField(URLSearchDlg.SearchForTarget, URLSearchDlg.SearchTarget) End Sub Sub ReplaceWithURL_Click DeActivateTextField(URLSearchDlg.ReplaceWithURL, URLSearchDlg.ReplaceURL) End Sub Sub ReplaceWithTarget_Click DeActivateTextField(URLSearchDlg.ReplaceWithTarget, URLSearchDlg.ReplaceTarget) End Sub ' ------------------------------------------------- ' Suche starten Sub Search_Click If LCase$(URLSearchDlg.SearchURL.Text) = "about:" Then About_Clicked() Else SearchURL() End If End Sub ' Einzelne Fundstelle ersetzen Sub Replace_Click ReplaceSelectedURL() CurrentURL% = CurrentURL% + 1 Search_Click() End Sub ' alle ersetzen Sub ReplaceAll_Click ReplaceAllURLs() End Sub ' ------------------------------------------------- Function URLSearchInit as Boolean Dim lOk as Boolean If ActiveModule.Name = "StarWriter" Then ' Nur starten wenn №berhaupt Hyperlinks vorhanden sind If ActiveWindow.URLFieldCount() > 0 Then ' Falls Cursor auf URL steht, diese №bernehmen URLSearchDlg.SearchURL.Text = Selection.LinkURL If ActiveDocument.ReadOnly then URLSearchDlg.ReplaceWithURL.Enabled = False URLSearchDlg.ReplaceURL.Enabled = False URLSearchDlg.ReplaceWithTarget.Enabled = False URLSearchDlg.ReplaceTarget.Enabled = False End If CurrentURL% = 0 lOk = True Else MsgBox("In diesem Dokument sind keine Hyperlinks vorhanden!", 48, "Keine Hyperlinks") lOk = False End If Else MsgBox("'Hyperlink Suchen & Ersetzen' ist nur in Textdokumenten mЎglich!", 48, "Vorgang unmЎglich") lOk = False End If URLSearchInit = lOk End Function Sub About_Clicked() Dim MsgText$ MsgText$ = "Hyperlink-Search f№r StarOffice 4 v" + USRVersion$ + Chr$(13) + Chr$(13) MsgText$ = MsgText$ + "Automatisches Suchen und Ersetzen von Hyperlinks " MsgText$ = MsgText$ + "in Textdokumenten (HTML und StarWriter), geschrieben in " MsgText$ = MsgText$ + "100% StarBasic (nix f№r schwache Nerven!)." + Chr$(13) + Chr$(13) MsgText$ = MsgText$ + "Copyrights й:" + Chr$(13) MsgText$ = MsgText$ + "Hyperlink-Search 1998: Michael Herger, mherger@jo-sac.ch" + Chr$(13) MsgText$ = MsgText$ + "StarOffice, StarWriter, StarBasic: StarDivision GmbH, D-Hamburg" MsgBox(MsgText$, 64, "▄ber Hyperlink-Search...") End Sub PCўEЗЗБ В В Б В В A Б В В ЗБ В В Б В В Б В ЗБ В В Б В В З+З З БЗ +ЗЗБЗ+ЗЗГ В Г В ЗГ В G ЗГ В EЗГ В AЗБЗ+З!З"Б В Б В БАЗ#Б В В Б В В З$+З&З'Б В Б В БАЗ(+З*З+Б В Б В БАЗ,+З.З/Б В Б В БАЗ0+З5З6Б В В А АA!G;З7Б"EFЗ9БЗ;+З>З?Б$З@Б%Б%BЗAБЗB+ЗEЗFБ'ЗG+ЗKЗLЙ) ЗNБ* В+ A,G╝ЗPБ- В. B GМЗRБ В В Б/ В0 ЗTБ В GkЗUБ В В А1 ЗVБ В В А1 ЗWБ В В А1 ЗXБ В В А1 З[Б%BЗ\Б) А2 E┤З^A3B0A4А5АЗ_Б) А1 З`EфЗbA6B0A7А5АЗcБ) А1 ЗfГ Б) Зg+ЗkЗlЙ8ЗmБ8A9Б:B А;АB А;АЗnБ8Б8A<ЗoБ8Б8A=ЗpБ8Б8A>B А;АB А;АЗqБ8Б8A?B А;АЗrБ8Б8A@B А;АЗsБ8Б8AAЗtБ8B@ABА5АЗu+STМB&.8=>KSbkvИЭ▒╝╚╬╫ъў-BQ\tЖФбзо╝╩▌ш∙',7DR\djoг┤╗№;FJ|╡рю'gАEnableSearchStartURLSearchDlgSearchEnabledSearchURLTextSearchTargetReplaceActiveDocumentReadOnlyReplaceAllSearchURL_ChangedSearchTarget_ChangedDeActivateTextFieldmyCheckBoxmyTextFieldValueSetFocusSearchForURL_ClickSearchForURLCompleteURLOnlySearchForTarget_ClickSearchForTargetReplaceWithURL_ClickReplaceWithURLReplaceURLReplaceWithTarget_ClickReplaceWithTargetReplaceTargetSearch_ClickLCaseabout:About_ClickedReplace_ClickReplaceSelectedURLCurrentURLReplaceAll_ClickReplaceAllURLsURLSearchInitlOkActiveModuleNameStarWriterActiveWindowURLFieldCountSelectionLinkURLFalseTrueIn diesem Dokument sind keine Hyperlinks vorhanden!Keine HyperlinksMsgBox'Hyperlink Suchen & Ersetzen' ist nur in Textdokumenten mЎglich!Vorgang unmЎglichMsgTextHyperlink-Search f№r StarOffice 4 vUSRVersionChrAutomatisches Suchen und Ersetzen von Hyperlinks in Textdokumenten (HTML und StarWriter), geschrieben in 100% StarBasic (nix f№r schwache Nerven!).Copyrights й:Hyperlink-Search 1998: Michael Herger, mherger@jo-sac.chStarOffice, StarWriter, StarBasic: StarDivision GmbH, D-Hamburg▄ber Hyperlink-Search...2c%bqq╨╧рб▒с>■  ■