I'm doing a converter characters. At all times you need the display of alt + 0160 character it gains space attributes in another textarea. How do I view and copy the character in another textarea (TextArea2)?
Thank you in advance for your help.
<html>
<head>
<title>Central Batch</title>
<HTA:Application
ApplicationName="HTACentralBatch"
Border="Thin"
BorderStyle="Static"
Caption="Yes"
ContextMenu="No"
Icon="WScript.exe"
ID="HTACentralBatch"
InnerBorder="No"
MaximizeButton="No"
Scoll="No"
ShowInTaskbar="Yes"
SingleInstance="Yes"
WindowState="Normal"/>
<SCRIPT Type="Text/VBScript">
'----------------------------------------------------------------------
WidthX = "525"
HeightY = "323"
Window.ResizeTo WidthX, HeightY
Window.MoveTo (screen.Width - WidthX)/2, (screen.Height - HeightY)/2
Set WshShell = CreateObject("WScript.Shell")
Set WshFSO = CreateObject("Scripting.FileSystemObject")
aString = "abcd "
nString = "19 25"
nTotal = "" : bString = aString
'-----------------------------------------------------------------------------------
Sub Window_OnLoad()
nTotal = Len(aString)
For i = 1 to nTotal
bString = Replace(bString, Mid(aString, i, 1), "_" & Mid(aString, i, 1))
Next
Window.SetInterval "Conversor", 150
End Sub
'-----------------------------------------------------------------------------------
Sub Conversor()
cTexto = Document.all.TextArea1.value
a = 1 : b = a
For i = 1 to nTotal
cTexto = Replace(cTexto, Mid(aString, i, 1), Mid(bString, a, 2))
a = a + 2
Next
For i = 1 to nTotal
cTexto = Replace(cTexto, Mid(bString, b, 2), Mid(nString, i, 1))
b = b + 2
Next
Document.all.TextArea2.value = cTexto
End Sub
'-----------------------------------------------------------------------------------
</SCRIPT>
</head>
<body bgcolor="#204C77" style="overflow:hidden">
<textarea id="TextArea1"
style="border:solid 5px #BDC3C7; width:491px" rows="5"></textarea><p>
<textarea id="TextArea2" readOnly="True"
style="border:solid 5px #BDC3C7; width:491px" rows="5"></textarea>
</body>
</html>
Related
I have a problem with my code, I want to evaluate a Report with Charts.
What my Macro currently does is, Create for every single column a Row for a nominal, upper, lower tolerance. Then It creates with this values a chart.
After this it starts with the Sorting and then it removes the Marker Points, but here my Problems already start.
I would like to create the charts later for example on pos A100 or A50 or something.
Then the Marker Points, I would like to keep the Points on the result line but not on the 3 created, but I found no way
Remove the Markers, but it removes all, i would really like to remove them only for
FullSeriesCollection(2).format.Line
FullSeriesCollection(3).format.Line
FullSeriesCollection(4).format.Line
Would be nice if someone would have an idea.. :)
Thanks in advance,
' Unload UFormTools
UFormTools.Hide
Application.ScreenUpdating = False
Sheets("Original Values").Select
Dim lngC As Long, lngR As Long
Dim i As Long
Dim c As Byte
Application.ScreenUpdating = False
With ActiveSheet
lngC = (.Cells(17, 4).End(xlToRight).Column - 4) * 4
For i = 4 To lngC Step 4
lngR = .Cells(.Rows.Count, i).End(xlUp).Row
For c = 1 To 3
.Columns(i + c).EntireColumn.Insert
Next c
.Cells(17, i).AutoFill Destination:=.Range(.Cells(17, i), .Cells(17, i + 3)), Type:=xlFillCopy
.Range(.Cells(28, i + 1), .Cells(lngR, i + 1)).Value = .Cells(18, i).Value
.Range(.Cells(28, i + 2), .Cells(lngR, i + 2)).Value = .Cells(18, i).Value + .Cells(19, i).Value
.Range(.Cells(28, i + 3), .Cells(lngR, i + 3)).Value = .Cells(18, i).Value + .Cells(20, i).Value
.Shapes.AddChart2(332, xlLineMarkers).Select
With ActiveChart
.SetSourceData Source:=Union(ActiveSheet.Range(ActiveSheet.Cells(17, i), ActiveSheet.Cells(17, i + 3)), _
ActiveSheet.Range(ActiveSheet.Cells(28, i), ActiveSheet.Cells(lngR, i + 3)))
' .Legend.Delete
.ChartTitle.Text = ActiveSheet.Cells(17, i).Value
.ChartTitle.format.TextFrame2.TextRange.Characters.Text = ActiveSheet.Cells(17, i).Value
With .ChartTitle.format.TextFrame2.TextRange.Characters(1, Len(ActiveSheet.Cells(17, i).Value)).ParagraphFormat
.TextDirection = msoTextDirectionLeftToRight
.Alignment = msoAlignCenter
End With
With .FullSeriesCollection(3).format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
With .FullSeriesCollection(4).format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
With .FullSeriesCollection(2).format.Line
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorText1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Visible = msoTrue
.DashStyle = msoLineDash
.Weight = 1.5
End With
With .FullSeriesCollection(1).format.Line
.Visible = msoTrue
.Weight = 3
End With
.FullSeriesCollection(1).Smooth = True
.Axes(xlValue).MinimumScaleIsAuto = True
.Axes(xlValue).MinimumScaleIsAuto = True
End With
Next i
End With
' Sort and Arrange Charts, but another Position to Start would be nice.. (for example A100)
Dim MyWidth As Single, MyHeight As Single
Dim NumWide As Long
Dim iChtIx As Long, iChtCt As Long
MyWidth = 300
MyHeight = 200
NumWide = 4
iChtCt = ActiveSheet.ChartObjects.Count
For iChtIx = 1 To iChtCt
With ActiveSheet.ChartObjects(iChtIx)
.Width = MyWidth
.Height = MyHeight
.Left = ((iChtIx - 1) Mod NumWide) * MyWidth
.Top = Int((iChtIx - 1) / NumWide) * MyHeight
End With
Next
' Remove the Markers, but it removes all, i would really like to remove them only for
' FullSeriesCollection(2).format.Line
' FullSeriesCollection(3).format.Line
' FullSeriesCollection(4).format.Line
Dim cht As ChartObject
Dim srs As Series
Dim MarkerCount As Long
For Each cht In ActiveSheet.ChartObjects
cht.Activate
For Each srs In ActiveChart.SeriesCollection
If srs.MarkerStyle <> xlMarkerStyleNone Then
srs.MarkerStyle = xlMarkerStyleNone
MarkerCount = MarkerCount + 1
End If
Next srs
Next cht
Range("A1").Select
Application.ScreenUpdating = True
In LibreOffice is it possible to get bookmark that is inserted in the text?
With the code below I can get the list of all the bookmarks I have available, but I just wanted the ones that are actually inserted in the text.
XBookmarksSupplier xBookmarksSupplier =
UnoRuntime.queryInterface(XBookmarksSupplier.class,
xCurrentComponent); XNameAccess xNamedBookmarks =
xBookmarksSupplier.getBookmarks();
Hope this helps:
Sub MyBookmarks
Dim oBookmarks As Variant
Dim oElementNames As Variant
Dim oBookmark As Variant
Dim oTextFields As Variant
Dim oEnum As Variant
Dim oTextField As Variant
Dim sSourceName As String
Dim i As Long, j As Long
Dim sResult As String
Rem First step - collect Bookmarks
oBookmarks = ThisComponent.getBookmarks()
oElementNames = oBookmarks.getElementNames()
Rem Create list of Bookmarks to count Text Fields with it
ReDim oBookmark(LBound(oElementNames) To UBound(oElementNames))
For i = LBound(oElementNames) To UBound(oElementNames)
oBookmark(i) = Array(oElementNames(i),0)
Next i
Rem Enumerate Text Fields
oTextFields = ThisComponent.getTextFields()
oEnum = oTextFields.createEnumeration()
Do While oEnum.hasMoreElements()
oTextField = oEnum.nextElement()
sSourceName = oTextField.SourceName
For i = LBound(oBookmark) To UBound(oBookmark)
If oBookmark(i)(0) = sSourceName Then
oBookmark(i)(1) = oBookmark(i)(1) + 1
Exit For
EndIf
Next i
Loop
Rem Show results
sResult = ""
For i = LBound(oBookmark) To UBound(oBookmark)
If oBookmark(i)(1) > 0 Then
sResult = sResult + oBookmark(i)(0) + " (" + oBookmark(i)(1) + ")" + Chr(10)
EndIf
Next i
If Len(sResult) > 0 Then
sResult = Left(sResult, Len(sResult)-1)
MsgBox("The text of the document uses Bookmarks:" + Chr(10) + sResult, MB_ICONINFORMATION, "Used Bookmarks")
Else
MsgBox("No Bookmarks are used in the text of the document", MB_ICONEXCLAMATION, "No Bookmarks")
EndIf
sResult = ""
For i = LBound(oBookmark) To UBound(oBookmark)
If oBookmark(i)(1) = 0 Then
sResult = sResult + oBookmark(i)(0) + ", "
EndIf
Next i
If Len(sResult) > 0 Then
MsgBox("Bookmarks that are not used in the text of the document:" + Chr(10) + Left(sResult, Len(sResult)-2), MB_ICONINFORMATION, "Not Used Bookmarks")
EndIf
End Sub
The vbscript works fine in a .vbs file.
Of course, when I run the vbscript code in a .vbs file, I uncomment the 'msgbox lines.
When I load the following file, I get an error message on line 42 with no additional explanation.
Any suggestions would be much appreciated.
If I solve this problem, I'm going to create a menu that will invoke PDF files, .mp3 audio files, and .mp4 video files
Here's the code I've created thus far:
<html>
<head>
<title>My HTML application</title>
<HTA:APPLICATION
APPLICATIONNAME="My HTML application"
ID="MyHTMLapplication"
VERSION="1.0"/>
</head>
<script language="VBScript">
Sub Window_OnLoad
'This method will be called when the application loads
'Add your code here
' copyright JSWARE
'FileExt.vbs.
'-- File extension default program Class.
'-- send a file extension to Function and Get path of default program.
Dim CE, txtExt, htmlExt, zipExt, pdfExt, mp4Ext
Set CE = New ClsExt
txtExt = CE.GetDefaultProgram("txt")
'MsgBox "TXT" & vbcrlf & txtExt
htmlExt = CE.GetDefaultProgram("html")
'MsgBox "HTML" & vbcrlf & htmlExt
htmlExt = CE.GetDefaultProgram("zip")
'MsgBox "ZIP" & vbcrlf & htmlExt
pdfExt = CE.GetDefaultProgram("pdf")
'MsgBox "XYZ" & vbcrlf & pdfExt
mp4Ext = CE.GetDefaultProgram("mp4")
'MsgBox "mp4" & vbcrlf & mp4Ext
Set CE = Nothing
'_______________ START ClsExt Class ____________________________
Class ClsExt
Private SH, CK1, CK, s1, s2, sType
Private Sub Class_Initialize()
CK = "\Shell\Open\Command\"
CK1 = "\Shell\Opennew\Command\"
Set SH = CreateObject("WScript.Shell")
End Sub
Private Sub Class_Terminate()
Set SH = Nothing
End Sub
Public Function GetDefaultProgram(sExt)
If left(sExt, 1) <> "." Then
sExt = "." & sExt
End If
On Error Resume Next
Err.clear
sType = SH.RegRead("HKCR\" & sExt & "\") '--look up ext in HKCR to Get file type (ex.: "txtfile")
If (Err.number <> 0) or (len(sType) = 0) Then
GetDefaultProgram = ""
Exit Function
End If
s1 = SH.RegRead("HKCR\" & sType & CK) '--Shell\open\command or.....
If (Err.number = 0) and (len(s1) <> 0) Then
s2 = Stripit(s1)
GetDefaultProgram = s2
Exit Function
End If
Err.clear
s1 = SH.RegRead("HKCR\" & sType & CK1) '--shell\opennew\command.
If (Err.number = 0) and (len(s1) <> 0) Then
s2 = Stripit(s1)
GetDefaultProgram = s2
Exit Function
End If
Err.clear
s1 = SH.RegRead("HKCR\" & sExt & CK)
If (Err.number = 0) and (len(s1) <> 0) Then
s2 = Stripit(s1)
GetDefaultProgram = s2
Exit Function
End If
GetDefaultProgram = "" '--If none of these checks have found anything return "".
End Function
Private Function Stripit(sp) '--clean up default program string.
Dim ept, sf
On Error Resume Next
ept = instr(1, sp, "exe", 1) '--find End of exe path.
If ept <> 0 Then
sf = left(sp, ept + 2)
Else
ept = instr(1, sp, "com", 1)
If ept <> 0 Then
sf = left(sp, ept + 2)
End If
End If
If left(sf, 1) = chr(34) Then '--take off any quotes or spaces.
sf = right(sf, (len(sf) - 1))
End If
sf = trim(sf)
Stripit = sf
End Function
End Class
'Set wmp = CreateObject("WMPlayer.OCX")
'wmp.openPlayer("E:\svr1\K\data\Steinberg Nisan\AV\2013-04-15_\VID_20130415_171550_FIXED_.mp4")
'wmp.openPlayer(".\VID_20130415_191439_FIXED_.mp4")
End Sub
</script>
<body bgcolor="white">
<!--Add your controls here-->
<br /><br />
<font size="7">
<b><u>Table of Contents: Index to Folder </b></u></font>
<br /><br />
<!--{{InsertControlsHere}}-Do not remove this line-->
</body>
</html>
You can not declare a class inside a sub, and you have Class ClsExt inside Sub Window_OnLoad
I have been using the followng Macro and it works fine:
Sub PremTable()
Dim i, m, j As Integer
Dim PDFDiv, PDFClass, PDFSex, PDFPlan, LimAge As Variant
Dim FlagD, FlagC, Band, FlagP, FlagB, IssAge, Dur As Integer
PDFClass = Array("N", "S")
PDFSex = Array("M", "F")
PDFDiv = Array("G", "E")
PDFPlan = Array(10, 20, 30)
LimAge = Array(70, 60, 50)
j = 0
For FlagD = 1 To 2
Range("div").Value = PDFDiv(FlagD)
For FlagP = 1 To 3
Range("plan").Value = PDFPlan(FlagP)
For Band = 1 To 3
Range("band").Value = Band
For FlagS = 1 To 2
Range("sex").Value = PDFSex(FlagS)
For FlagC = 1 To 2
Range("class").Value = PDFClass(FlagC)
m = 18
For i = 1 To Range("LimAge").Value - 17
Range("IssAge").Offset(i + j, 0) = m
Range("age").Value = Range("IssAge").Offset(i + j, 0)
Worksheets("input").Range("J4:J76").Copy
Worksheets("Premium Tables").Range("M1").Offset(i + j, 0).PasteSpecial xlPasteValues, Transpose:=True
Range("DIV2").Offset(i + j, 0) = Range("Div")
Range("PLAN2").Offset(i + j, 0) = Range("plan")
Range("BAND2").Offset(i + j, 0) = Range("band")
Range("SEX2").Offset(i + j, 0) = Range("sex")
Range("CLASS2").Offset(i + j, 0) = Range("class")
m = m + 1
Next i
j = j + i - 1
Next FlagC
Next FlagS
Next Band
Next FlagP
Next FlagD
End Sub
Now I have another very similar spreatsheet that I want to use this macro to creat tables, but it always give me the "run time error 9" for all of the arrays having text format variables (for example: Range("class").Value = PDFClass(FlagC) causing an runtime error 9)
Please advise! Thanks very much!
Like the title says I have a website made with Typo3. I have a link in the yaml-header an can't remove it, because I don't find where it is added.
I know that in Template View on the Root Page in the Constant Editor the sites displayed there can be edited:
And I also know that it's possible to add some links with Typo-Script, looks similar to that I think:
lib.header.20.30 = TEXT
lib.header.20.30.value = Link1 Name
lib.header.20.30.typolink.parameter = http://link1.ziel
The Problem is, that I don't find the link I want to remove not in the headernavigationincludelist neither in the Typo-Script.
Constants:
### Change message, if user did not fill out mandatory fields:
styles.content.mailform.badMess = Leere Pflichtfelder:
[globalVar = GP:L = 1]
styles.content.mailform.badMess = You must fill in these fields:
[global]
[globalVar = GP:L = 2]
styles.content.mailform.badMess = Change Me:
[global]
### Change settings of Dropdown Sitemap extension:
plugin {
tx_dropdownsitemap_pi1 {
picture {
params = hspace="5" vspace="0" border="0"
}
}
}
### Begin of standard constants
### Only Yes/No options are listed here, for others see constant editor.
## searchbox
searchBoxOff = 0
## header
topNavOff = 0
firstHeaderImageOff = 0
secondHeaderImageOff = 0
linkFirstImageToggle = 1
noGifBuilderForFirstHeaderImage = 1
noGifBuilderForSecondHeaderImage = 1
## teaser
teaserOff = 1
rootlineOff = 0
languageMenuOff = 0
fontSizeSelectorOff = 0
dateAndTimeOff = 0
## basics
selectorBoxOff = 0
tabNavigationOff = 0
subMenuOff = 0
menuHeadlineOff = 1
subMenuExpandToggle = 0
footerOff = 0
## languages
languageLocaleStandardLang = german
languageLocaleFirstLang = english
languageLocaleSecondLang = french
languageIsoCodeStandardLang = de
languageIsoCodeFirstLang = en
languageIsoCodeSecondLang = fr
## headlines
replaceH1withImage = 0
replaceH2withImage = 0
replaceH3withImage = 0
replaceH4withImage = 0
replaceH5withImage = 0
## statistics
statisticsSetting = 0
statApacheSetting = 0
statMysqlSetting = 0
## expert settings
userAdmPanelOn = 1
userIndexingOn = 1
userIndexExternalsOn = 0
userDisablePrefComm = 0
yamlDebugOn = 0
yamlFillerLinkOn = 0
footerFirstLangHtmlCode = <div class="left">Born Informatik AG, Berner Technopark, Morgenstrasse 129, CH-3018 Bern</div><div class="right">Copyright © 2008 Born Informatik AG</div>
footerStandardLangHtmlCode = <div class="left">Born Informatik AG, Berner Technopark, Morgenstrasse 129, CH-3018 Bern</div><div class="right">Copyright © 2008 Born Informatik AG</div>
footerSecondLangHtmlCode = <div class="left">Born Informatik AG, Berner Technopark, Morgenstrasse 129, CH-3018 Bern</div><div class="right">Copyright © 2008 Born Informatik AG</div>
searchPagePID = 32
plugin.tt_news.archiveTypoLink.parameter = 32
styles.content.imgtext.maxW = 410
plugin.wtsnowstorm.pid = 1,1
plugin.tx_srlanguagemenu_pi1.showCurrent = 0
plugin.meta = name=google-site-verification
headerNavigationIncludeList = 128, 31, 33, 34
TSConstantEditor.yaml-header.5 = topNavOff, headerNavigationIncludeList
Setup:
###############################
# Delete default styles of
# Plugin dropdown sitemap
###############################
plugin.tx_dropdownsitemap_pi1._CSS_DEFAULT_STYLE >
###############################
# Delete default styles of
# cssstyledcontent (Copied to content.css, in order to be able to modify them there.)
###############################
plugin.tx_cssstyledcontent._CSS_DEFAULT_STYLE >
###############################
# Configuration of Statistics
###############################
page.headerData.100 < plugin.tx_kestats_pi1
###############################
# metatags-config
# Insert your own data here.
###############################
plugin.meta {
flags.useSecondaryDescKey = 0
flags.alwaysGlobalDescription = 1
flags.alwaysGlobalKeywords = 1
global.author = Born Informatik AG
global.email =
global.copyright = Born Informatik AG
global.keywords = Born Informatik AG
global.description = Born Informatik AG
global.revisit = 2 days
global.robots = index,follow
global.language = {$languageIsoCodeStandardLang}
}
#### Change language, keywords and description for first foreign language
[globalVar = GP:L = {$firstForeignLanguage}]
plugin.meta.global.language = {$languageIsoCodeFirstLang}
plugin.meta.global.keywords = my keywords for first foreign language
plugin.meta.global.description = my description for first foreign language
[global]
#### Change language, keywords and description for second foreign language
[globalVar = GP:L = {$secondForeignLanguage}]
plugin.meta.global.language = {$languageIsoCodeSecondLang}
plugin.meta.global.keywords = my keywords for second foreign language
plugin.meta.global.description = my description for second foreign language
[global]
page.headerData.999 < plugin.meta
###############################
# Configuration of newloginbox
###############################
plugin.tx_newloginbox_pi1._CSS_DEFAULT_STYLE >
plugin.tx_newloginbox_pi3._CSS_DEFAULT_STYLE >
###############################
# Configuration of tt_news
###############################
plugin.tt_news {
_CSS_DEFAULT_STYLE >
usePagesRelations = 1
usePiBasePagebrowser = 1
archiveTitleCObject {
10.strftime = %B - %Y
}
getRelatedCObject {
10.1.20.strftime = %d.%m.%y %H:%M
10.2.20.strftime = %d.%m.%y %H:%M
10.default.20.strftime = %d.%m.%y %H:%M
}
displaySingle {
date_stdWrap.strftime= %d.%m.%Y
time_stdWrap.strftime= %H:%M
age_stdWrap.age = Minuten | Stunden | Tage | Jahre
}
displayLatest {
date_stdWrap.strftime= %d.%m.%y
time_stdWrap.strftime= %H:%M
}
displayList {
date_stdWrap.strftime= %A %d. %B %Y
time_stdWrap.strftime= %d.%m.%y %H:%M
}
}
plugin.tt_news {
catOrderBy = title
displayCatMenu {
catmenuRootIconFile = EXT:tt_news/res/tt_news_cat.gif
catmenuNoRootIcon = 0
catmenuIconMode = -1
}
}
plugin.tt_news {
pageBrowser {
dontLinkActivePage = 1
maxPages = 10
showRange = 0
showPBrowserText = 1
showResultCount = 0
showFirstLast = 0
}
}
plugin.tt_news.displayLatest.subheader_stdWrap.crop = 100 | ... | 1
#### Change news-settings for first foreign language
[globalVar = GP:L = {$firstForeignLanguage}]
plugin.tt_news.getRelatedCObject.10.1.20.strftime = %d.%m.%y %H:%M
plugin.tt_news.getRelatedCObject.10.2.20.strftime = %d.%m.%y %H:%M
plugin.tt_news.getRelatedCObject.10.default.20.strftime = %d.%m.%y %H:%M
plugin.tt_news.displaySingle.date_stdWrap.strftime= %d.%m.%Y
plugin.tt_news.displaySingle.time_stdWrap.strftime= %H:%M
plugin.tt_news.displaySingle.age_stdWrap.age = Minutes | Hours | Days | Years
plugin.tt_news.displayLatest.date_stdWrap.strftime= %m/%d/%y
plugin.tt_news.displayLatest.time_stdWrap.strftime= %H:%M
plugin.tt_news.displayList.date_stdWrap.strftime= %A %d. %B %Y
plugin.tt_news.displayList.time_stdWrap.strftime= %d.%m.%y %H:%M
[global]
#### Change news-settings for second foreign language
[globalVar = GP:L = {$secondForeignLanguage}]
plugin.tt_news.displaySingle.age_stdWrap.age = Minutes | Heures | Jours | Ans
[global]
################################
# Configuration of indexedsearch
################################
plugin.tx_indexedsearch {
_CSS_DEFAULT_STYLE >
_DEFAULT_PI_VARS.results = 10
forwardSearchWordsInResultLink = 1
blind {
type=-1
defOp=0
sections=0
media=1
order=-1
group=-1
extResume=-1
lang=-1
desc=-1
results=0
}
show {
rules=0
parsetimes=1
L2sections=1
L1sections=1
LxALLtypes=0
clearSearchBox = 0
clearSearchBox.enableSubSearchCheckBox=0
}
search {
rootPidList =
}
}
## CSS for rgtabs was moved and edited in content.css
plugin.tx_rgtabs_pi1.pathToCSS >
lib.nav.20.1.wrap = <ul><li class="home"><span>Home</span></li>|</ul>
lib.nav.20.1.ACT.allWrap = <li class="active">|</li>
lib.nav.20.wrap = <div id="navmain">|</div>
lib.nav.20.excludeUidList = 2
lib.submenu.10.30.1.ACTIFSUB = 1
lib.submenu.10.30.1.ACTIFSUB.allWrap = <strong>|</strong><span class="hidden">.</span>
lib.submenu.10.30.1.ACTIFSUB >
lib.submenu.10.20.wrap = <li id="title">|</li><li id="separator">|</li>
plugin.tt_news.displayList.date_stdWrap.strftime = %d.%m.%Y
page.headerData.19 = TEXT
page.headerData.19.value = <link rel="SHORTCUT ICON" href="http://born.ch/fileadmin/img/icons/favicon.ico">
page.headerData.19.value = <link rel="SHORTCUT ICON" href="fileadmin/img/icons/favicon.ico">
#awstats congig
config.stat = 1
config.stat_apache = 1
config.stat_apache_logfile = intranet.log
# SNOWFLAKES!!
snowstorm = PAGE
snowstorm {
typeNum = 3136
10 < plugin.tx_wtsnowstorm
config {
disableAllHeaderCode = 1
disablePrefixComment = 1
xhtml_cleaning = 0
admPanel = 0
}
}
# Add javascript file to html header
page.headerData.3136 = TEXT
page.headerData.3136 {
wrap = <script src="|" type="text/javascript"></script>
typolink.parameter.data = page : uid
typolink.additionalParams = &type=3136
typolink.addQueryString = 1
typolink.returnLast = url
}
page.10 >
page.headerData.28.value = <script type="text/javascript" src="fileadmin/scripts/jquery-1.3.2.min.js"></script>
lib.footer.100.value = <div class="left">Born Informatik AG, Berner Technopark, Morgenstrasse 129, CH-3018 Bern</div><div class="right">Copyright © 2008-2011 Born Informatik AG</div>
config.sys_language_overlay = 1
lib.header.20.30 < lib.teaser.20.10
lib.header.20.30.languagesUidsList = 0,2
lib.header.20.30.defaultLayout = 2
lib.header.20.30.flag.CUR.doNotLinkIt = 1
lib.header.20.30.link.CUR.doNotLinkIt = 1
lib.header.20.30.links.CUR.doNotLinkIt = 1
lib.header.20.30.link.NO.stdWrap.wrap = | <div class="NO"> | </div>
page.headerData.2 = TEXT
page.headerData.2.insertData=1
page.headerData.2.case=lower
page.headerData.2.wrap = <meta name="google-site-verification" content="zc2lFQCXoXPUZrGCU-axHs4hoYSvruh2UsU9WgM_6VE">
page.headerData.3 = TEXT
page.headerData.3.insertData=1
page.headerData.3.case=lower
page.headerData.3.wrap = <meta name="google-site-verification" content="KCjWqRAjA0I77QRa9C909EPmEuX-UXb3vO213VBZeEg">
The link I want to remove ist the first one, the Intranet link:
Thanks in advance, if you need more infos to Help me just say what you need.
You surely have cleared the cache, I guess?
I'm wondering why in your listed TS constants there are five page-ids:
headerNavigationIncludeList = 30, 128, 31, 33, 34
The 30 is the ID of page "Intranet", I guess. It seems, your editing of the constants via the "Constant Editor" was not successful.