Seitenhistorie
...
Code in WinIBW2 (Makro/VBScript)
Codeblock |
---|
Sub EP1() Dim K4083, K5301, K7109, SearchK5301, SearchK7001, co7001 'K4083 = vbcr & "4083 Zugriff auf Publikation im MMB: =A http://mmb.ddb.de/" K4083 = vbcr & application.LatinToPica("4083 Zugriff auf Publikation über das Bereitstellungssystem: =A http://mmb.ddb.de/") 'K5301 = vbcr & "5301 " K5301 = vbcr & application.LatinToPica("5301 ") 'K7109 = vbcr & "7109 !!MLS!! ; " K7109 = vbcr & application.LatinToPica("7109 !!MLS!! ; ") On error resume next 'Vollanzeige des Ausgangsdatensatzes erzwingen Set WinA = Application.ActiveWindow if not WinA.Variable("scr") = "8A" then Fehler "Es liegt kein Datensatz in Vollanzeige vor!" exit sub end if WinA.Command "k", False SearchK7001 = WinA.Title.StartOfBuffer SearchK7001 = WinA.Title.FindTag ("7001", 0, True, True) 'msgbox SearchK7001 if SearchK7001 <> "" then WinA.Title.WordRight 3 WinA.Title.EndOfField true co7001 = WinA.Title.GetSelection 'msgbox co7001 if co7001 = "x" then WinA.Title.DeleteSelection WinA.Title.InsertText "xxp" & K7109 & K4083 else WinA.Title.EndOfField WinA.Title.InsertText K7109 & K4083 end if end if SearchK5301 = WinA.Title.StartOfBuffer SearchK5301 = WinA.Title.FindTag ("5301", 0, True, True) if SearchK5301 <> "" then 'WinA.Title.FindTag "5301", 0, True, True WinA.Title.EndOfField Else WinA.Title.StartOfBuffer WinA.Title.FindTag "7109", 0, True, True WinA.Title.EndOfField WinA.Title.InsertText K5301 End if End Sub |
Code in WinIBW3 (Javascript)
...
Überblick
Inhalte