Beschreibung
Neu:
Historie
Datum |
geändert von |
Beschreibung |
---|---|---|
2011-05-03 |
Althaus |
neu erstellt |
Datei
dnb_scripts_01.js |
Code
VB-Code
'******************************************************************** Sub ANS() '******************************************************************** Call Schlagwortsuche("f ","ANS") End Sub ' ANS '******************************************************************** Private Sub Schlagwortsuche(Kommando,Trunkierung) '******************************************************************** ' Wird von ANSrecn und ANS aufgerufen on error resume next Dim Text, Schleife,Eingabe Text = "Eingabeform: Kategorie Schlagwort(e) Operator" & vbCrLf & _ " z.B.: 5100 Magie +" & vbCrLf & _ " oder 5101 -feng shui ;" & vbCRLf & _ " Der Operator ist optional" Schleife = vbYes Eingabe = "" Do If Application.ActiveWindow.Variable("scr") <> "MT" Then MsgBox "Diese Funktion kann nur im Korrekturmodus aufgerufen werden", _ vbOKOnly+vbCritical,Titel Else Eingabe = Trim(InputBox(Text,Titel,Eingabe)) If Len(Eingabe) = 0 Then Schleife = vbAbort Else If Len(Eingabe) < 6 Then MsgBox "Bitte Eingabeform beachten: " & vbCrLf & Text1, _ vbOKOnly+vbExclamation,Titel Schleife = vbNo Else Call Teilung(Eingabe) If Trunkierung = "ANSrecn" Then Suchschlagwort = """" & Suchschlagwort & """" End If If Len(Kategorie) > 0 Then Schleife = vbYes WinID1 = Application.ActiveWindow.WindowID Application.ActiveWindow.Command Kommando & Suchschlagwort, True WinID2 = Application.ActiveWindow.WindowID If WinID1 = WinID2 Then MsgBox "Schlagwort nicht gefunden!",vbOKOnly+vbInformation,Titel Schleife = vbNo Else If Application.ActiveWindow.Variable("scr") = "8A" Then ' Vollanzeige WinID2 = Application.ActiveWindow.WindowID IDN = Application.ActiveWindow.Variable("P3GPP") Zeile = Kategorie & " " & Praefix & "!" & IDN & "! " & Suffix & vbCr Application.CloseWindow(WinID2) Application.ActivateWindow(WinID1) Application.ActiveWindow.Title.EndOfBuffer False ' Sicherheitsabfrage wegen evtl falscher Cursorpositionierung Application.ActiveWindow.Title.EndOfBuffer True If Len(Application.ActiveWindow.Title.GetSelection) > 0 Then MsgBox "Cursor war nicht am Ende!",vbOKOnly+vbInformation,Titel Application.ActiveWindow.Title.EndOfBuffer False End If Application.ActiveWindow.Title.StartOfField True If Len(Application.ActiveWindow.Title.GetSelection) > 0 Then Application.ActiveWindow.Title.EndOfField False Application.ActiveWindow.Title.InsertText vbCr End If Application.ActiveWindow.Title.InsertText Zeile Schleife = vbYes Else ' Kurzanzeige If Len(Praefix) = 1 Then Zeile = WinID1 & " " & Praefix & Kategorie & " " & Suffix Else Zeile = WinID1 & " " & Kategorie & " " & Suffix End If Application.ActiveWindow.ClipBoard = Zeile Application.ActiveWindow.Command "s k", False Schleife = vbYes End If End If Else Schleife = vbNo End If End If End IF End If Loop Until (Schleife = vbYes) Or (Schleife = vbCancel) Or (Schleife = vbAbort) End Sub ' Schlagwortsuche
Überblick
Inhalte