Message-ID: <111638647.142471.1711650032779@prodfluence0> Subject: Exported From Confluence MIME-Version: 1.0 Content-Type: multipart/related; boundary="----=_Part_142470_226055897.1711650032777" ------=_Part_142470_226055897.1711650032777 Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable Content-Location: file:///C:/exported.html ANSrecn

ANSrecn

Beschreibung

Die Funktion =C3=B6ffnet eine Eingabebox, in der Kategorie und Schlagwor= t eingegeben werden. Danach sucht die Funktion nach dem Schlagwort und erst= ellt eine Kategorie mit der entsprechenden Verkn=C3=BCpfungs-ID. Wie Funkti= on ANS, jedoch Suche im Index AN und mit Trunkierung!

Historie

Datum

ge=C3=A4ndert von

Beschreibung

2011-05-03

Althaus

neu erstellt

Code

dnb_inhaltserschliessung.js

functio=
n __Schlagwortsuche(strKommando,strTrunkierung) {

=09var intWinID1=09   =3D application.activeWindow.windowID;
=09var intWinID2;
=09var swPrompt =3D utility.newPrompter();
=09var strKategorie;
=09var strSchlagworte;
=09var strIDN =3D application.activeWindow.getVariable("P3GPP");
=09var strSWDIDN;
=09var msg;
=09var intLength;
=09var strText =3D =09"Eingabeform:       Kategorie Schlagwort(e)\n" +=20
=09=09=09=09=09"             z.B.: 5100 Magie\n"               +
=09=09=09=09=09"             oder  5101 feng shui\n";
=09var strEingabe =3D "";
=09
=09if (application.activeWindow.getVariable("scr") !=3D "MT") {
=09=09__dnbFehler("Fehler","Die Funktion kann nur im Korrekturmodus aufgeru=
fen werden!");
=09} else {
=09=09msg =3D swPrompt.prompt(strTrunkierung,strText,strEingabe,null,null);
=09=09while (msg =3D=3D true)=09{
=09=09=09strEingabe =3D swPrompt.getEditValue();
=09=09=09intLength =3D strEingabe.length;
=09=09=09if (intLength < 6) {
=09=09=09=09__dnbFehler(strTrunkierung,"Bitte Eingabeform beachten: " + str=
Text);
=09=09=09=09msg =3D swPrompt.prompt(strTrunkierung,strText,strEingabe,null,=
null);
=09=09=09} else {
=09=09=09=09msg =3D false;
=09=09=09=09strKategorie =3D strEingabe.substring(0,4);
=09=09=09=09strSchlagworte =3D strEingabe.substring(5,intLength+1);
=09=09=09=09__geheZuKat(strKategorie,"",false);
=09=09=09=09application.activeWindow.title.insertText(strKategorie + " \n")=
;
=09=09=09=09application.activeWindow.title.lineUp(1 , false);
=09=09=09=09application.activeWindow.title.endOfField(false);
=09=09=09=09
=09=09=09=09if (strTrunkierung =3D=3D "ANSrecn") {
=09=09=09=09=09application.activeWindow.command (strKommando + "\"\"" + str=
Schlagworte + "\"\"", true);
=09=09=09=09} else {
=09=09=09=09=09application.activeWindow.command (strKommando + strSchlagwor=
te, true);
=09=09=09=09}
=09=09=09=09
=09=09=09=09intWinID2 =3D application.activeWindow.windowID;
=09=09=09=09strSWDIDN =3D application.activeWindow.getVariable("P3GPP");
=09=09=09=09if ((strSWDIDN =3D=3D strIDN) || (application.activeWindow.getV=
ariable("scr") !=3D "8A")) {
=09=09=09=09=09__dnbFehler("Schlagwortsuche","Schlagwort nicht eindeutig zu=
 ermitteln.\n"=20
=09=09=09=09=09=09=09=09+ "Mehrere Treffer: Bitte w=C3=A4hlen Sie manuell a=
us und rufen Sie dann die Funktion HoleIDN auf\n"
=09=09=09=09=09=09=09=09+ "Nichts gefunden: Bitte schlie=C3=9Fen Sie das Fe=
nster und rufen Sie die Funktion ggf. erneut auf!");
=09=09=09=09} else {
=09=09=09=09=09application.closeWindow(intWinID2);
=09=09=09=09=09application.activateWindow(intWinID1);
=09=09=09=09=09__geheZuKat(strKategorie,"",true);
=09=09=09=09=09application.activeWindow.title.insertText("!" + strSWDIDN + =
"!");=09=09
=09=09=09=09}
=09=09=09}
=09=09}
=09}
}

function ANSrecn() {

=09__Schlagwortsuche("rec n;f an ","ANSrecn");

}
VB-Code
'******=
**************************************************************
Sub ANSrecn()
'********************************************************************

  Call Schlagwortsuche("rec n;f an ","ANSrecn")

End Sub  ' ANSrecn

'********************************************************************
Private Sub Schlagwortsuche(Kommando,Trunkierung)
'********************************************************************
' Wird von ANSrecn und ANS aufgerufen
 on error resume next
 Dim Text, Schleife,Eingabe
=20
  Text =3D "Eingabeform: Kategorie Schlagwort(e) Operator" & vbCrLf &am=
p; _
          "             z.B.: 5100 Magie +" & vbCrLf & _
          "             oder  5101 -feng shui ;" & vbCRLf & _
          "     Der Operator ist optional"

  Schleife =3D vbYes
  Eingabe =3D ""
  Do
    If Application.ActiveWindow.Variable("scr") <> "MT" Then
      MsgBox "Diese Funktion kann nur im Korrekturmodus aufgerufen werden",=
 _
              vbOKOnly+vbCritical,Titel
    Else
      Eingabe =3D Trim(InputBox(Text,Titel,Eingabe))
      If Len(Eingabe) =3D 0 Then
        Schleife =3D vbAbort
      Else
        If Len(Eingabe) < 6 Then
          MsgBox "Bitte Eingabeform beachten: " & vbCrLf & Text1, _
                vbOKOnly+vbExclamation,Titel
          Schleife =3D vbNo
        Else
          Call Teilung(Eingabe)
=09=09  If Trunkierung =3D "ANSrecn" Then
=09=09=09=09Suchschlagwort =3D """" & Suchschlagwort & """"
=09=09  End If
          If Len(Kategorie) > 0 Then
            Schleife =3D vbYes
            WinID1 =3D Application.ActiveWindow.WindowID
            Application.ActiveWindow.Command Kommando & Suchschlagwort,=
 True
            WinID2 =3D Application.ActiveWindow.WindowID
            If WinID1 =3D WinID2 Then
              MsgBox "Schlagwort nicht gefunden!",vbOKOnly+vbInformation,Ti=
tel
              Schleife =3D vbNo
            Else
              If Application.ActiveWindow.Variable("scr") =3D "8A" Then ' V=
ollanzeige
                WinID2 =3D Application.ActiveWindow.WindowID
                IDN =3D Application.ActiveWindow.Variable("P3GPP")
                Zeile =3D Kategorie & " " & Praefix & "!" &=
 IDN & "! " & Suffix & vbCr
                Application.CloseWindow(WinID2)
                Application.ActivateWindow(WinID1)
                Application.ActiveWindow.Title.EndOfBuffer False
          ' Sicherheitsabfrage wegen evtl falscher Cursorpositionierung
              =09Application.ActiveWindow.Title.EndOfBuffer True
               =09If Len(Application.ActiveWindow.Title.GetSelection) > =
0 Then
                   MsgBox "Cursor war nicht am Ende!",vbOKOnly+vbInformatio=
n,Titel
              =09   Application.ActiveWindow.Title.EndOfBuffer False
              =09End If
                Application.ActiveWindow.Title.StartOfField True
                If Len(Application.ActiveWindow.Title.GetSelection) > 0 =
Then
                =09Application.ActiveWindow.Title.EndOfField False
              =09=09Application.ActiveWindow.Title.InsertText vbCr
              =09End If
                Application.ActiveWindow.Title.InsertText Zeile
                Schleife =3D vbYes
              Else ' Kurzanzeige
                If Len(Praefix) =3D 1 Then
                  Zeile =3D WinID1 & " " & Praefix & Kategorie =
& " " & Suffix
                Else
                  Zeile =3D WinID1 & " " & Kategorie & " " &=
; Suffix
                End If
                Application.ActiveWindow.ClipBoard =3D Zeile
                Application.ActiveWindow.Command "s k", False             =
=20
                Schleife =3D vbYes
              End If                   =20
            End If
          Else
            Schleife =3D vbNo
          End If
        End If
      End IF
    End If
  Loop Until (Schleife =3D vbYes) Or (Schleife =3D vbCancel) Or (Schleife =
=3D vbAbort)

End Sub ' Schlagwortsuche

'********************************************************************
Private Sub Teilung(Feld)
'********************************************************************
' wird von Schlagwortsuche aufgerufen
on error resume next
Dim Temp, Position

  Kategorie =3D ""
  Suchschlagwort =3D ""
  Praefix =3D ""
  Suffix =3D ""
  Position =3D InStr(Feld," ")
  If Position > 0 Then
    Kategorie =3D Left(Feld,Position-1)
    Temp =3D Right(Feld,Len(Feld)-Position)
    If Left(Temp,1) =3D "-" Then
      Praefix =3D "-"
      Temp =3D Right(Temp,Len(Temp)-1)
    End If
    If (Right(Temp,1) =3D ";") Or (Right(Temp,1) =3D "+") Or (Right(Temp,1)=
 =3D "#") Then
      Suffix =3D Right(Temp,1)
      Suchschlagwort =3D Left(Temp,Len(Temp)-1)
    Else
      Suchschlagwort =3D Temp
    End If
  Else
    MsgBox "Die Eingabe muss mindestens eine Kategorie und ein Schlagwort e=
nthalten", _
            vbOKOnly+vbCritical,Titel
  End If

End Sub  'Teilung

Seitenanfang

------=_Part_142470_226055897.1711650032777--