Chip 1997 February

home *** CD-ROM | disk | FTP | other *** search

/ Chip 1997 February / Image.iso / bench / staroff / maktest2.0 / MAKTEST2.SDW

(.txt)

Wrap

StarWriter Document | 1996-04-26 | 16.0 KB | 307 lines

SW3HDR (166Q(SV312)]D Address Frameformat Zeichenformat Textformatvorlage Standard Textk Tabellen Inhalt Tabellen berschrift Abbildung Tabelle Textd HP LaserJet 4V HP LaserJet 4V \\Home\qs_lj4v HPPCL5MS HP LaserJet 4V MSUDN HP LaserJet 4V SW3HDR Frameformat Zeichenformat Textformatvorlage Standard Textk Tabellen Inhalt Tabellen berschrift Abbildung Tabelle TextP , 6'" Standard Standard Textk Standard Textk Tabellen Inhalt Textk Tabellen Inhalt Tabellen berschrift Tabellen Inhalt Tabellen berschrift 2,max,1702;1702;89;0;0;13112;11174;3,1 Standard LIBIMBEDDED LIBIMBEDDED Florian Siemens Kay Koll Makrotest SfxDocumentInfo Kay Koll Florian Siemens j Makrotest Info 0 Info 1 Info 2 Info 3 StarWriter 3.0 StarWriter 3.0 swriter3.StarWriterDocument.3 SBX sb Standard StarBASIC SBX AR SBX AR SBX AR CV e EingabeDialog Dialog VCControls EingabeDialog loeschen Aktualisieren Dateiliste PfadName Dokumentliste Abbruch dazu Label1X schen Aktualisieren Erweiterte Suche: Abbruch >> dazu SuchpfadX TextBox1X OK_Click Abbruch_Click Dazu_Click Loeschen_Click Aktualisieren_ClickX EingabeDialog_LoadX SBX AR SBX AR SBX AR CV ~ TextBox SBX AR SBX AR SBX AR CV n CommandButton SBX AR SBX AR SBX AR CV n CommandButton SBX AR SBX AR SBX AR CV z ListBox SBX AR SBX AR SBX AR CV z ListBox SBX AR SBX AR SBX AR CV n CommandButton SBX AR SBX AR SBX AR CV n CommandButton SBX AR SBX AR SBX AR CV n CommandButton SBX AR SBX AR SBX AR CV v Label SBX AR SBX AR SBX AR SBX bm EingabeModul StarBASICModule SBX AR SBX em ErweiterteSuche SBX em EingabeDialog_Load SBX em Dazu_Click SBX em Loeschen_Click SBX em Aktualisieren_Click SBX em OK_Click SBX em Abbruch_Click SBX AR SBX AR EingabeModulSCM option explicit 'Variable, zum Speichern des Pfades Dim Pfad$ 'Variable wird auch im Dialog ben tigt, 'wird daher VOR den SUBs und FUNCTIONs 'deklariert, und ist damit Modul-Global Sub ErweiterteSuche pfad$="C:\" 'Definiert den "Ausgangspfad", in dem alle 'Dateien ausgelesen werden EingabeDialog.Show 'Ruft den Dialog auf End Sub Sub EingabeDialog_Load dim DokName$ PfadName.Text=Pfad$ DokName$=Dir$(Pfad$) if DokName$<>"" then DateiListe.AddItem DokName$,DateiListe.ListCount DokName$=Dir$ if DokName$="" then exit do endif DateiListe.AddItem DokName$, DateiListe.ListCount loop endif end sub 'Ereignisprozedur: 'Wird aufgerufen, wenn [Dazu] angeklickt wird Sub Dazu_Click If Dateiliste.ListIndex=-1 then MsgBox "Kein Eintrag markiert" else DokumentListe.AddItem DateiListe.List(Dateiliste.ListIndex) endif End Sub 'Ereignisprozedur: 'Wird aufgerufen, wenn [L schen] angeklickt wird Sub Loeschen_Click If DokumentListe.ListIndex=-1 then MsgBox "Kein Eintrag markiert" else DokumentListe.RemoveItem(DokumentListe.ListIndex) endif End Sub 'Ereignisprozedur: 'Wird aufgerufen, wenn auf Akutalisieren geklickt wird Sub Aktualisieren_Click() Dim DokName$ Pfad$=PfadName.Text DateiListe.Clear DokName$=Dir$(Pfad$) if DokName$<>"" then DateiListe.AddItem DokName$,DateiListe.ListCount DokName$=Dir$ if DokName$="" then exit do endif DateiListe.AddItem DokName$, DateiListe.ListCount loop endif End Sub 'Ereignisprozedur: 'Wird aufgerufen, wenn [OK] angeklickt wird sub OK_Click dim DateiNamen$(1 to 100) 'Speicher f r die Dateinamen dim counter% 'Z hler, wieviele Dateien durchsucht werden dim text$ 'String, in der den Suchtext aufnimmt dim z% 'Z hler f r FOR/NEXT dim anzahl% 'Variabel f r die Anzahl der gefundenen Eintr for Counter%=1 to Dokumentliste.ListCount DateiNamen$(counter%) = Dokumentliste.List(Counter%-1) next counter% counter% = counter% - 1 text$=inputBox("Bitte Suchtext eingeben","Erweiterte Suche","") for z%=1 to counter% StarWriter.Documents.Open(DateiNamen$(z%)) anzahl%=-1 ActiveWindow.Search(Text$) anzahl%=anzahl%+1 loop until Selection.Value="" print "Der Suchbegriff trat im Dokument ";DateiNamen$(z%); " ";anzahl%;" mal auf." ActiveDocument.Close("", False) next z% end sub 'Ereignisprozedur: 'Wird aufgerufen, wenn [Abbruch] angeklickt wird Sub Abbruch_Click EingabeDialog.Hide 'Dialog schlie 'da ErweiterteSuche Basis-Routine 'war, ist das Programm damit beendet End Sub ErweiterteSuche EingabeDialog EingabeDialog_Load DokName PfadName DateiListe ListCount AddItem Dazu_Click ListIndex Kein Eintrag markiert MsgBox DokumentListe Loeschen_Click RemoveItem Aktualisieren_Click Clear OK_Click DateiNamen counter anzahl Bitte Suchtext eingeben Erweiterte Suche inputBox StarWriter Documents ActiveWindow Search Selection Value Der Suchbegriff trat im Dokument mal auf. ActiveDocument False Close Abbruch_Click