Beiträge von snork

Joah hallo

also ich brauch die Feldnamen aus einer externen DB.. wie bekommt man die? THX

und wie macht man des?!

Hello ... den Code hab ich genau so aus der Designer Hilfe kopiert! warum zeigt mir mein rich text feld immer

<B>Hellowp</B> an

und nicht

Hellowp

--------------------code -------------

Dim richStyle As NotesRichTextStyle

Set richStyle = session.CreateRichTextStyle

Dim richText As New NotesRichTextItem(newadress,"WebSite")

richStyle.PassThruHTML = True

Call richText.AppendStyle(richStyle)

Call richText.AppendText("<B>Hellowp</B>")

richStyle_new.PassThruHTML = True
Dim rt_item_new As New NotesRichTextItem(newadress,"WebSite")
Call rt_item_new.AppendStyle(richStyle_new)
Call rt_item_new.AppendText("<font face='verdana'>" & WebSite$ & "</font>")
Messagebox(WebSite$)

bringt auch nichts *ahhh*

darf man sich da mal anschliessen?!

nach dem ersten lob vom chef bin ich ganz rot um die birne geworden, wo s doch eigentlich EUCH zusteht *lölz*

thx

[wä? das sollte eigentlich unter den empöörend beitrag ... ? bin ich plööde]

hellöö ...

warum hat denn meine Signatur drei Punkt hintendranne?!

des will ich doch garnet!

HELP!! ich brauch das sehr bald *zitter*

Syntax
To get: notesFont = notesRichTextStyle.NotesFont
To set: notesRichTextStyle.NotesFont = notesFont
Legal values
FONT_COURIER (4)
FONT_HELV (1)
FONT_ROMAN (0)
STYLE_NO_CHANGE (255)

das können die doch jetz nicht ernst meinen, oder?

ich brauch doch VERDANA *heul

bekomm ich das auch irgendw(o)ie

hmm das klingt nach einem Plan

jetzt wären ein zwei tipps für die durchführung nicht schlecht

oder anders: wie mach ich n das?

Hi ho!

kleines Designproblem.

ich importiere einen String Website in ein richtext Feld
und er bringt mir einen klickbaren Hyperlink (dank Dominoforum :))

Nun muss der Hyperlink aber in Verdana erscheinen.

Das Feld im Form ist auf Verdana gestellt, aber per Import
setzt er die Schrift auf StandardSansSerif

was muss ich noch einbauen, damit ich hier Verdana bekomme

THX snorkie

------------------------------Quelltext-----------------------
If Datatype(GetDoc.WebSite) = 8 Then
If WebSite$ <> "" Then
If Strcompare(GetDoc.WebSite,WebSite$,1) <> 0 Then
aktlog$ = aktlog$ & " *** [WebSite] " & GetDoc.WebSite & " überschrieben mit " & WebSite$
Call GetDoc.RemoveItem("WebSite")
Dim rtitem As New NotesRichTextItem(GetDoc,"WebSite")
Call rtitem.AppendText(WebSite$)
End If
End If
Else
If WebSite$ <> "" Then
If Strcompare(GetDoc.WebSite(0),WebSite$,1) <> 0 Then
aktlog$ = aktlog$ & " *** [WebSite] " & GetDoc.WebSite(0) & " überschrieben mit " & WebSite$
Call GetDoc.RemoveItem("WebSite")
Dim rt_item As New NotesRichTextItem(GetDoc,"WebSite")
Call rt_item.AppendText(WebSite$)
End If
End If
End If

------------------------------Quelltext-----------------------

Woohooooouuuu !!

it worX

VIELEN DANK FÜR DEN SUPPORT

wenn ich mal ein großer LSProgrammer bin, werd ich mich erkenntlich zeigen

Dankesehr!!!!

mit mytodos.de merkt ihr euch jetzt alle Aufgaben und todos und könnt sogar kleine online-post-its auf euren desktop pappen!

viel spass

Geil! bei Feldern die bereits richtext Felder sind, gehts, aber nicht bei Adressen, wo das Feld in der Form als Textfeld steht

Ich hab ein Feld, das WebSite heisst in der Form frm_Adresse

jetzt möchte ich das per Script überschreiben mit einer
neuen Internetadresse (http://irgendwas.de) und es dabei noch in ein richtextfeld umwandeln, falls es vom typ textfield ist.

Dim rtitem As New NotesRichTextItem(GetDoc,"url")
Call rtitem.AppendText(WebSite$)

If Datatype(GetDoc.WebSite) = 8 Then
'hier ist das Feld bereits ein richtextfield
Set item = GetDoc.ReplaceItemValue("WebSite", rtitem) 'funktioniert bestens

Else 'hier ist es ein textfield
Set item = GetDoc.ReplaceItemValue("WebSite", rtitem) 'geht nicht ... Warum?

End If

sieht klasse aus ...

was bedeutet das body ... kann ich das ersetzen?

sorry aber ich fang grad erst an

ahm das hab ich nicht gemeint! meinte als lotusscript befehl!

neues feld

feld als rich text

dann http:// rein

kann mir bitte einer sagen, wie ich ein neues richtext feld mit ner URL drin erstelle?

warum find ich sowas nich?

Hi kennt jemand nen Befehl (Lotusscript oder formelsprache) der in einer View o.ä. alle doppelten ausblendet?!

danke

Hallo Ihr,

hab grad angefangen und brauch mal n paar Tipps:

Kann mir jemand sagen, warum diese Loops eine
Endlosschleife erzeugen?

Danke ... (Ich öffne einen normalen .Txt-file)

files = ws.OpenFileDialog(False, "Durchsuchen", "*.txt", "c:","")
Dim messagelist As String
If Not Isempty ( files) Then
Forall filelist In files
filefound = True
messagelist = filelist
End Forall
End If

Dim i As Integer

Open messagelist For Input As 1

i=0
REM Do Until Eof(1)
REM i% = i% + 1
REM Loop

REM Redim givendata(i) 'Array Anzahl bestimmen

i%=1
Do Until Eof(1)
Get #1,,zeichenfolge
REM Line Input #1, givendata(i)
REM Messagebox(givendata(i))
REM i% = i% + 1
Messagebox(zeichenfolge)
Loop