Monatsarchiv für März 2010

Bestimmten Zeichenbereich in einer Zeile aus einer Textdatei lesen

Geschrieben von admin am 31. März 2010 | Abgelegt unter Veröffentlichungen

Eine Textdatei kann manchmal auch einzelne Werte enthalten. Ein Paradebeispiel ist das Logging.
In einem solchen Fall hat zum Beispiel jeder Werte eine bestimmte Länge. Wert 1 ist 15 Zeichen lang und beginnt ab Zeichen 4, Wert 2 ist 10 Zeichen lang und beginnt ab Zeichen sowieso, usw.
Eine solche Textdatei könnte zum Beispiel folgendermaßen aussehen:
Logging Value […]

Prüfen, ob Schriftart installiert

Geschrieben von admin am 31. März 2010 | Abgelegt unter iGoogle Gadgets

Tipp vom 22.03.2010
Mit dieser Funktion kann man überprüfen, ob eine ganz bestimmte Schriftart auf dem aktuellen System installiert ist.
‘ Prüft, ob die angegebene Schrift existiert
Public Function SystemFontExists(sFontFileName As String) As Boolean
Dim SystemFont As New StdFont
SystemFont.Name = sFontFileName
SystemFontExists = IIf(sFontFileName = SystemFont.Name, True, False)
End Function
Aufruf der Funktion:
Dim strFontFileName As String
strFontFileName […]

Koordinaten eines bestimmten Ortes ermitteln

Geschrieben von admin am 31. März 2010 | Abgelegt unter Veröffentlichungen

Tipp vom 26.03.2010
Mit Hilfe nachfolgender Funktion lassen sich die Koordinaten eines bestimmten Ortes anhand einer Postleitzahl, oder eines Ortsnamen und optional einer Strasse bestimmen.
Der Aufruf der Google Maps URL, in der Funktion getCoordinatesCSV, mit dem Attribut &output=csv enthält lediglich die Koordinaten des zu bestimmenden Ortes.
Code:

‘ Koordinaten eines Ortes ermitteln
Public Function getCoordinatesCSV(ByVal strOrtPLZ As String, _
  […]

Inhalt eines MSFlexgrid an Excel übergeben

Geschrieben von admin am 17. März 2010 | Abgelegt unter Veröffentlichungen

Tipp vom 17.03.2010
Dieser Tipp zeigt eine einfache Möglichkeit, wie sich der gesamte Inhalt eines MSFlexGrid-Controls in ein neues Excel-Dokument einfügen lässt.
Code:

‘ Fügt den Inhalt des übergebenen FlexGrid-Controls in
‘ ein neues Excel-Dokument ein und zeigt dieses an
Public Function MSFlexgridToExcel( _
ByRef FlexGrid As MSFlexGridLib.MSFlexGrid) As Boolean

Dim xlObject As Object ‘ Excel.Application
[…]