Zeichenproblem

3. Dezember 2007

Also ich habe immernoch probleme mit croatischen zeichen.

Ich benutze diesen code um sie zu enfernen

Code

m=Replace(m,"ž","ž")
	m=Replace(m,"Ž","Ž")
	m=Replace(m,"č","č")
	m=Replace(m,"Č","Č")
	m=Replace(m,"ć","ć")
	m=Replace(m,"Ć","Ć")
	m=Replace(m,"š","&scaron;")
	m=Replace(m,"Š","&Scaron;")
	m=Replace(m,"đ","đ")
	m=Replace(m,"Đ","Đ")
	m=Replace(m,Chr(200),"Č")  'Č
	m=Replace(m,Chr(208),"Đ")  'Đ
	m=Replace(m,Chr(142),"Ž")  'Ž
	m=Replace(m,Chr(208),"Ć")  'Ć
	m=Replace(m,Chr(138),"&Scaron;")'Š
	m=Replace(m,Chr(158),"ž") 'ž
	m=Replace(m,Chr(232),"č")  'č
	m=Replace(m,Chr(230),"ć")  'ć
	m=Replace(m,Chr(154),"&scaron;")  'š
	m=Replace(m,Chr(240),"đ")  'đ
	m=Replace(m,"€"," €")  '€
	m=Replace(m,"3D","=")  'đ

	m=Replace(m,"<a href",|<a target="_blank" href|)

	m=Replace(m,|–|,|-|)
	m=Replace(m,|`|,|`|)
	m=Replace(m,|ˆ|,||)
	m=Replace(m,|˜|,||)
	m=Replace(m,|¨|,|¨|)
	m=Replace(m,|¯|,|¯|)
	m=Replace(m,|´|,|´|)
	m=Replace(m,|¸|,|¸|)
	m=Replace(m,|˘|,|˘|)
	m=Replace(m,|˙|,|˙|)
	m=Replace(m,|˚|,|˚|)
	m=Replace(m,|˛|,|˛|)
	m=Replace(m,|˜|,|˜|)
	m=Replace(m,|˝|,|˝|)
	m=Replace(m,|„|,|"|)
	m=Replace(m,|“|,|"|)

	m=Replace(m,"<div>","")  '<div>
	m=Replace(m,"</div>","")  '</div>
	ourSigns= m

Alles anzeigen

es klappt mit leen ausser mit:

Zitat

Č und Ć

wenn sie lowercase sind werden sie replaced wenn uppercase nicht.

Was kann ich machen

Diali · 3. Dezember 2007

na mach mal eine Zeichenkette in einem Feld mit einem dieser Zeichen und lass dann ein Script mit
wert$ = ASC(doc.Feld(0))
Dir den ZeichenCode anzeigen.

im Replace gibst Du dann ein Chr( Hier den ausgelesenen Code eintragen) als Suchstring mit.

Gruß
Dirk

3. Dezember 2007

Code

Dim ui As New NotesUIWorkspace
	Dim u As NotesUIDocument
	Set u=ui.CurrentDocument
	Dim doc As notesdocument
	Set doc=u.document
	Dim s As String
	s=doc.kom_naziv(0)
	a$=Asc(s)
	Messagebox a$

Das habe ich auf einem Button und ich kriege immer wieder illegal fucntion call bei a$=Asc(s)

Diali · 3. Dezember 2007

sieht eigentlich gut aus.

Was steht den in s? Schau mal im Debugger nach.

Gruß
Dirk

taurec · 3. Dezember 2007

Diali
Nö sieht es nicht.

@brane
Hast du dir schon mal angeschaut was Asc zurückgibt.
Also in meiner Hilfe steht was von Long oder Null.
Und ich kann mir nicht vorstellen, das ein Long oder Null das gleiche ist wie ein String

3. Dezember 2007

Nichts steht im s obwohl ich es vorher speichere.

Egal ich habe jetzt ein das Zeichen einfach aus dem doc in den Replace kopiert und es geht.

Das passiert wenn der user copy/paste macht. Es bleibt mir wohl nichts anderes uebrig als zu verfolgen wenn die zeichen auftauchen und sie dan auf die oben gennante art und weise zu entfernen.

Danke dir Diali.
Der Kode klappt auch mit uidoc nicht.

Diali · 3. Dezember 2007

natürlich gibt ASC eine Zahl zurück.

Code

dim a as long
a=Asc(s) 
Messagebox Cstr(a)

Gruß
Dirk

taurec · 3. Dezember 2007

Diali

Nur definiert Brane den Rückgabewert mal ganz keck einfach als String:

a$=Asc(s)

$ steht für String

Diali · 3. Dezember 2007

ja hatte ich oben auch so falsch geschrieben, war wohl in Gedanken schon beim CHR(...). Deshalb habe ich den Teil nochmal berichtigt drangehängt.

Gruß
Dirk

4. Dezember 2007

Ich dachte das $ fuer Variant steht, gibt es noch solche Kuerzel, waere gut zu wissen.

Danke

Diali · 4. Dezember 2007

Suffix ... Data type
% ... Integer
& ... Long
! ... Single
# ... Double
@ ... Currency
$ ... String

Gruß
Dirk

4. Dezember 2007

Cool

Danke

RockWilder · 4. Dezember 2007

Inklusive Wertebereich in der Hilfe zu finden...

Teilen