1*1ecadb57SMathias Bauer<?xml version="1.0" encoding="UTF-8"?> 2*1ecadb57SMathias Bauer<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> 3*1ecadb57SMathias Bauer<script:module xmlns:script="http://openoffice.org/2000/script" script:name="HID" script:language="StarBasic">' *** MODULE HID *** 4*1ecadb57SMathias Bauer 5*1ecadb57SMathias BauerDim oDialog AS Object 6*1ecadb57SMathias BauerDim document AS Object 7*1ecadb57SMathias Bauer 8*1ecadb57SMathias BauerSub Main 9*1ecadb57SMathias Bauer 10*1ecadb57SMathias Bauer If not IsHelpFile Then 11*1ecadb57SMathias Bauer msgbox(strErr_NoHelpFile) 12*1ecadb57SMathias Bauer Exit Sub 13*1ecadb57SMathias Bauer End If 14*1ecadb57SMathias Bauer 15*1ecadb57SMathias Bauer document = StarDesktop.CurrentComponent 16*1ecadb57SMathias Bauer 17*1ecadb57SMathias Bauer BasicLibraries.LoadLibrary("HelpAuthoring") 18*1ecadb57SMathias Bauer oDialog = LoadDialog("HelpAuthoring", "dlgHID") 19*1ecadb57SMathias Bauer oDialogModel = oDialog.Model 20*1ecadb57SMathias Bauer 21*1ecadb57SMathias Bauer' oPath = createUNOService("com.sun.star.util.PathSettings") 22*1ecadb57SMathias Bauer' filename = oPath.UserConfig+"/help_hid.lst" 23*1ecadb57SMathias Bauer' oButHIDList = oDialog.GetControl("butHIDList") 24*1ecadb57SMathias Bauer' If FileExists(filename) Then 25*1ecadb57SMathias Bauer' oButHIDList.Enable = true 26*1ecadb57SMathias Bauer' Else 27*1ecadb57SMathias Bauer' oLblWait = oDialog.GetControl("lblWait") 28*1ecadb57SMathias Bauer' oLblWait.Text = "No hid list found in your config folder" 29*1ecadb57SMathias Bauer' oButHIDList.Enable = false 30*1ecadb57SMathias Bauer' End If 31*1ecadb57SMathias Bauer oTxtHID = oDialog.GetControl("txtHID") 32*1ecadb57SMathias Bauer 33*1ecadb57SMathias Bauer ' Check if bookmarks are allowed here 34*1ecadb57SMathias Bauer If IsInList Then 35*1ecadb57SMathias Bauer msgbox "No Bookmarks allowed inside a list.", 48, "D'oh!" 36*1ecadb57SMathias Bauer Exit Sub 37*1ecadb57SMathias Bauer End If 38*1ecadb57SMathias Bauer 39*1ecadb57SMathias Bauer ' Find out if we are in front of an existing HID 40*1ecadb57SMathias Bauer If oDialog.Execute() = 1 Then 41*1ecadb57SMathias Bauer 42*1ecadb57SMathias Bauer If oTxtHID.Text = "" Then 43*1ecadb57SMathias Bauer msgbox "Empty Help ID. No Help ID element added." 44*1ecadb57SMathias Bauer Else 45*1ecadb57SMathias Bauer If IsInBookmark > 0 or Not(ParaIsEmpty) Then 46*1ecadb57SMathias Bauer CR 47*1ecadb57SMathias Bauer End If 48*1ecadb57SMathias Bauer If not(join(split(oTxtHID.Text," "),"") = oTxtHID.Text) Then 49*1ecadb57SMathias Bauer' msgbox "Help ID seems to contain forbidden characters (like spaces). You may need to verify this." 50*1ecadb57SMathias Bauer' HID and uno command 51*1ecadb57SMathias Bauer arHID = split(oTxtHID.Text," ") 52*1ecadb57SMathias Bauer sHID = arHID(0) 53*1ecadb57SMathias Bauer sUNO = arHID(1) 54*1ecadb57SMathias Bauer Else 55*1ecadb57SMathias Bauer sHID = oTxtHID.Text 56*1ecadb57SMathias Bauer sUNO = "" 57*1ecadb57SMathias Bauer End If 58*1ecadb57SMathias Bauer 59*1ecadb57SMathias Bauer If sHID <> "" Then 60*1ecadb57SMathias Bauer bmid = CreateID 61*1ecadb57SMathias Bauer InsertTagCR("BOOKMARK","<BOOKMARK branch=""hid/" + sHID + """ id=""bm_id" + bmid + """ localize=""false""/>","hlp_aux_bookmark") 62*1ecadb57SMathias Bauer End If 63*1ecadb57SMathias Bauer If sUNO <> "" Then 64*1ecadb57SMathias Bauer bmid = CreateID 65*1ecadb57SMathias Bauer InsertTagCR("BOOKMARK","<BOOKMARK branch=""hid/" + sUNO + """ id=""bm_id" + bmid + """ localize=""false""/>","hlp_aux_bookmark") 66*1ecadb57SMathias Bauer End If 67*1ecadb57SMathias Bauer 68*1ecadb57SMathias Bauer End If 69*1ecadb57SMathias Bauer End If 70*1ecadb57SMathias Bauer oDialog.dispose 71*1ecadb57SMathias Bauer 72*1ecadb57SMathias BauerEnd Sub 73*1ecadb57SMathias Bauer 74*1ecadb57SMathias BauerSub ConvertToSymbol 75*1ecadb57SMathias Bauer oPath = createUNOService("com.sun.star.util.PathSettings") 76*1ecadb57SMathias Bauer filename = oPath.UserConfig+"/help_hid.lst" 77*1ecadb57SMathias Bauer oTxtHID = oDialog.GetControl("txtHID") 78*1ecadb57SMathias Bauer oButHIDList = oDialog.GetControl("butHIDList") 79*1ecadb57SMathias Bauer sHID = oTxtHID.Text 80*1ecadb57SMathias Bauer sCt = 0 81*1ecadb57SMathias Bauer If FileExists(filename) AND sHID <> "" Then 82*1ecadb57SMathias Bauer oLblWait = oDialog.GetControl("lblWait") 83*1ecadb57SMathias Bauer oLblWait.Text = "Searching help_hid.lst. Please wait..." 84*1ecadb57SMathias Bauer iNumber = Freefile 85*1ecadb57SMathias Bauer bFound = false 86*1ecadb57SMathias Bauer Open filename For Input As iNumber 87*1ecadb57SMathias Bauer Do While (not eof(iNumber) AND not(bFound)) 88*1ecadb57SMathias Bauer Line Input #iNumber, sLine 89*1ecadb57SMathias Bauer sCt = sCt+1 90*1ecadb57SMathias Bauer arHID = split(sLine,",") 91*1ecadb57SMathias Bauer If arHID(1) = sHID Then 92*1ecadb57SMathias Bauer If arHID(2) <> "" Then 93*1ecadb57SMathias Bauer symHID = arHID(0) + " " + arHID(2) 94*1ecadb57SMathias Bauer Else 95*1ecadb57SMathias Bauer symHID = arHID(0) 96*1ecadb57SMathias Bauer End If 97*1ecadb57SMathias Bauer bFound = true 98*1ecadb57SMathias Bauer End If 99*1ecadb57SMathias Bauer Loop 100*1ecadb57SMathias Bauer Close #iNumber 101*1ecadb57SMathias Bauer If not bFound Then 102*1ecadb57SMathias Bauer oLblWait.Text = "Nothing found. Searched "+sCt+" Help IDs" 103*1ecadb57SMathias Bauer Else 104*1ecadb57SMathias Bauer oTxtHID.Text = symHID 105*1ecadb57SMathias Bauer oLblWait.Text = "HelpID found. Searched "+sCt+" Help IDs" 106*1ecadb57SMathias Bauer oButHIDList.Enable = false 107*1ecadb57SMathias Bauer End If 108*1ecadb57SMathias Bauer Else 109*1ecadb57SMathias Bauer oLblWait.Text = "No help_hid.lst found in your config folder" 110*1ecadb57SMathias Bauer End If 111*1ecadb57SMathias BauerEnd Sub 112*1ecadb57SMathias Bauer 113*1ecadb57SMathias Bauer</script:module>