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
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!
Datum |
ge=C3=A4ndert von |
Beschreibung |
---|---|---|
2011-05-03 |
Althaus |
neu erstellt |
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"); }
'******= ************************************************************** 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