Text als HTML Code

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function KonvUnicode(ByVal Target) As String Dim i Dim erg If IsObject(Target) Then Target = CStr(Target.Value) For i = 1 To Len(Target) erg = erg & "" & Hex(AscW(Mid(Target, i, 1))) & ";" Next KonvUnicode = erg End Function

Hmm... Es sind Mathematic sans-serif bold capitals und small:
http://www.sonderzeichen.de/Mathematical_Alphanumeric_Symbols-Alphabet.html
Also den Shift hängt vom Gross- oder Kleinschreibung. Da muss man differenziert handeln. Ich habe auch Zahlen gefunden und einfach eingebaut.
Leerzeichen (#x20) und Deutsche Sonderzeichen sind in dem "Mathematic sans-serif" nicht enthalten und müssten, falls vorhanden, "standard" umgesetzt werden (Case Else).


Public Function KonvUnicode(ByVal Target) As String
Dim i
Dim erg
Dim s
If IsObject(Target) Then Target = CStr(Target.Value)
For i = 1 To Len(Target)
s = Mid(Target, i, 1)
Select Case s
Case "a" To "z"
erg = erg & "" & Hex(Asc(s) + 120302 - 97) & ";" '97 ist Asc("a")
Case "A" To "Z"
erg = erg & "" & Hex(Asc(s) + 120276 - 65) & ";" '65 ist Asc("A")
Case "0" To "9"
erg = erg & "" & Hex(Asc(s) + 120812 - 48) & ";" '48 ist Asc("0")
Case Else
erg = erg & "" & Hex(AscW(s)) & ";"
End Select
Next
KonvUnicode = erg
End Function

Übrigens: deine beide Beispiele haben eine Leerzeichen am Ende. Gewollt?
VG
Yal

Hallo Yal,
• 𝗠𝗮𝘁𝗵𝗲𝗺𝗮𝘁𝗶𝗰 𝘀𝗮𝗻𝘀-𝘀𝗲𝗿𝗶𝗳 𝗯𝗼𝗹𝗱: 𝗥𝗜𝗖𝗛𝗧𝗜𝗚 :-)
• 𝗟𝗲𝗲𝗿𝘇𝗲𝗶𝗰𝗵𝗲𝗻 (#𝘅𝟮𝟬), 𝗗𝗲𝘂𝘁𝘀𝗰𝗵𝗲 𝗦𝗼𝗻𝗱𝗲𝗿𝘇𝗲𝗶𝗰𝗵𝗲𝗻 𝘀𝗶𝗻𝗱 𝗶𝗻 𝗱𝗲𝗺 "𝗠𝗮𝘁𝗵𝗲𝗺𝗮𝘁𝗶𝗰 𝘀𝗮𝗻𝘀-𝘀𝗲𝗿𝗶𝗳" 𝗻𝗶𝗰𝗵𝘁 𝗲𝗻𝘁𝗵𝗮𝗹𝘁𝗲𝗻: 𝗥𝗜𝗖𝗛𝗧𝗜𝗚
• Ü𝗯𝗿𝗶𝗴𝗲𝗻𝘀: 𝗱𝗲𝗶𝗻𝗲 𝗯𝗲𝗶𝗱𝗲 𝗕𝗲𝗶𝘀𝗽𝗶𝗲𝗹𝗲 𝗵𝗮𝗯𝗲𝗻 𝗲𝗶𝗻𝗲 𝗟𝗲𝗲𝗿𝘇𝗲𝗶𝗰𝗵𝗲𝗻 𝗮𝗺 𝗘𝗻𝗱𝗲. 𝗚𝗲𝘄𝗼𝗹𝗹𝘁?: 𝗔𝘂𝗳𝗺𝗲𝗿𝗸𝘀𝗮𝗺, 𝗡𝗘𝗜𝗡 𝗻𝗶𝗰𝗵𝘁 𝗴𝗲𝘄𝗼𝗹𝘁:-)
mit deinen Code gemacht :-):-)
Fragen: was in deinen Code sorgt dafür dass Mathematic sans-serif bold und small ausgegeben wert.
und nicht zum beispiel MATHEMATICAL MONOSPACE CAPITAL, und nur aus interrese kan man im code anpassen das MATHEMATICAL MONOSPACE CAPITAL ausgegeben kann werden.
Super code beste dank
Hans

Public Function KonvUnicode(ByVal Target) As String Dim i Dim erg Dim s If IsObject(Target) Then Target = CStr(Target.Value) For i = 1 To Len(Target) s = Mid(Target, i, 1) Select Case s Case vbLf erg = erg & "" & "000D;" Case "a" To "z" erg = erg & "" & Hex(Asc(s) + 120302 - 97) & ";" '97 ist Asc("a") Case "A" To "Z" erg = erg & "" & Hex(Asc(s) + 120276 - 65) & ";" '65 ist Asc("A") Case "0" To "9" erg = erg & "" & Hex(Asc(s) + 120812 - 48) & ";" '48 ist Asc("0") Case Else erg = erg & "" & Hex(AscW(s)) & ";" End Select Next KonvUnicode = erg End Function

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread