VBA – Code Snippets

-

I am still using ACCESS 2003 to run my office as this is the most versatile programming / DB combination, extremely stable, client-server + replicable and very fast to program.  after ACCESS 2007 the programm turned instable and stalls again and again.

Since 2003 many new feature came into existence that I have to program „around“ or implement myself. Here I am contributing to public domain.

 

Email-Issues regarding Charsets, ……

because I often dont remember the proper function names I created 3 similar wrapping functions

Function Ascii2HTML(ByVal s As String) As String
  Ascii2HTML = UnicodeToISO_8859_1(s)
End Function

Function Ascii2Unicode(ByVal s As String) As String
  Ascii2Unicode = UnicodeToISO_8859_1(s)
End Function

Function HTML2Ascii(ByVal s As String) As String ‚utf, unicode, Ansii
   HTML2Ascii = UnicodeToISO_8859_1(s)
End Function

‚https://docs.microsoft.com/en-us/previous-versions/exchange-server/exchange-10/ms526296(v=exchg.10)

Function UnicodeToISO_8859_1(ByVal Text As String) As String
Dim objStream As Object
Const adTypeBinary = 1
Const adTypeText = 2

On Error GoTo x

Set objStream = CreateObject(„ADODB.Stream“)

objStream.Type = adTypeText
objStream.Charset = „UTF-8“
‚objStream.Charset = „iso-8859-15“
‚objStream.Charset = „iso-14289-1“
objStream.Open

‚put Text in Stream¬†
objStream.WriteText Text
objStream.Flush
objStream.Position = 0
‚objStream.Charset = „UTF-8“
objStream.Charset = „iso-8859-15“

objStream.Type = adTypeBinary

If err Then
UnicodeToISO_8859_1 = Null
Else
UnicodeToISO_8859_1 = Mid(StrConv(objStream.Read, vbUnicode), 4, 10000)
End If

objStream.Close
Exit Function
x:
MsgBox CStr(err.Number) + “ “ + err.Description
End Function

 

Dr.med. Helmut B Retzek
Dr.med. Helmut B Retzekhttp://www.retzek.at
Arzt f√ľr Allgemeinmedizin,¬†multiple pr√§ventivmedizinische, schulmedizinische und komplement√§re¬†Zusatzausbildungen. Wissenschaftliche Arbeit und¬†Forschungs-Beitr√§ge.¬†Zahlreiche Artikel¬†und¬†Vortr√§ge. ¬†Diese Website dokumentiert umfangreiche eigene Recherchen¬†in der aktuellen medizinischen Forschung zum Zweck der Selbst-Weiterbildung und als Ged√§chtnis-St√ľtze. M√§ssige Legasthenie, daher Rechtschreib- und Beistrichfehler, bitte nicht kommentieren, wer es nicht aush√§lt bitte einfach nicht lesen
√Ąrztekammer Disclaimer
√Ąrztekammmer Disclaimer die Ober√∂sterreichische √Ąrztekammer moniert weite Teile diese Website als „aufdringlich, marktschreierisch und beim Laien den Eindruck medizinischer Exklusivit√§t erweckend“. Dies ist keinesfalls beabsichtigt, die Website ist ein absichtsloses Weiterbildungsmedium von Dr. Retzek, der seine wissenschaftlichen Pubmed-Recherchen hier mit √§rztlichen Kollegen unentgeltlich teilt, wof√ľr Dr. Retzek von vielen Kollegen aus dem In- und Ausland regelm√§ssig Anerkennung ausgesprochen bekommt. Dass Wissenschaftsrecherchen und Studien „das Standesansehen der √Ąrzte“ verletzen k√∂nnte, war Dr. Retzek nicht bewusst, er bedauert dies zutiefst und entschuldigt sich bei den betroffenen Kollegen.
zeige Kommentare oder schreibe selber einen Kommentar

Kommentar gerne erw√ľscht wenn sie hilfreich f√ľr Leser sind

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr dar√ľber, wie deine Kommentardaten verarbeitet werden.