'#########################################################################
'  Script name:    PP_GetSlideCount.vbs
'  Created on:     04/15/2010
'  Author:         Dennis Hemken
'  Purpose:        Demonstrate opening a PowerPoint file and get the count

                   of slides from a script.
'#########################################################################

Dim AppPowerPoint
Dim OpenPresentation
Dim lngSlideCount

Set AppPowerPoint = CreateObject("PowerPoint.Application")

AppPowerPoint.Visible = False

Set OpenPresentation = AppPowerPoint.Presentations.Open("C:\Concepts\Management.ppt")

lngSlideCount=OpenPresentation.Slides.Count

OpenPresentation.Close
Set OpenPresentation = Nothing

AppPowerPoint.Quit
Set AppPowerPoint = Nothing

wscript.echo lngSlideCount

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 Status NochnWert
LG-00-abc 54872 OK klausmaus
LG-09-HALLOabc 00100 OK hansfranz
PQ-77-MoinServus 00000 Failed nickklick

Wenn man nun einzelne Werte dieser Beispieldatei benötigt, ist es mit dieser Funktion besonders leicht. In dem Beispiel benötige ich jeweils den zweiten Wert (Value) aus der oben gezeigten Textdatei. Dieser Wert beginnt in jeder Zeile beim 26. Zeichen und ist nicht länger als 5 Zeichen.

Die Funktion:

Der Aufruf:
Das obige Beispiel als “C:\log.txt” abspeichern

Dim strCharacterArr() As String
Dim strFile As String
Dim lngCount As Long

strFile = “C:\log.txt”
Call ReadSpecCharInLine(strCharacterArr, strFile, 26, 5)
For lngCount = 0 To UBound(strCharacterArr)
  Debug.Print strCharacterArr(lngCount)
Next lngCount

Sie können hier bei vbarchiv.net für mich voten!

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 = “Verdana”
 
MsgBox SystemFontExists(strFontFileName)

Sie können hier bei vbarchiv.net für mich voten!

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:

Beispiel Aufruf mit der Impressum-Adresse von vb@rchiv:

strCoordinates = getCoordinatesCSV(“97708″, “Maria-Stern-Str. 20″)
MsgBox strCoordinates 

Sie können hier bei vbarchiv.net für mich voten!

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
  Dim xlWB As Object      ‘ Excel.Workbook

  ‘ Fehlerbehandlung
  On Error GoTo ErrHandler

  ‘ Excel Application öffnen
  Set xlObject = CreateObject(“Excel.Application”) ‘ New Excel.Application

  ‘ Workbook hinzufügen
  Set xlWB = xlObject.Workbooks.Add

  ‘ Wichtig: die Zwischenablage löschen
  Clipboard.Clear

  With FlexGrid
    ‘ Zellen im MSFlexgrid markieren/selektieren
    .Col = 0
    .Row = 0
    .ColSel = .Cols - 1
    .RowSel = .Rows - 1

    ‘ markierte/selektierte Zellen an Zwischenablage übergeben
    Clipboard.SetText .Clip
  End With

  With xlObject.ActiveWorkbook.ActiveSheet
    ‘ Zelle A1 selektieren
    .Range(“A1″).Select

    ‘ Zwischenablage in die selektierte Zelle (A1) kopieren
    .Paste
  End With

  ‘ Excel sichtbar machen
  xlObject.Visible = True

  ‘ #######################
  ‘ hier kann man dann noch ein paar Sachen machen,
  ‘ wie zum Beispiel die Exceldatei automatisch speichern…
  ‘ #######################
  MSFlexgridToExcel = True
  Exit Function

ErrHandler:
  ‘ nur zur Vollständigkeit MSFlexgridToExcel auf False setzen, 
  ‘ denn normalerweise braucht man es nicht, da eine Funktion 
  ‘ As Boolean (hier: MSFlexGridToExcel) standardmäßig auf False 
  ‘ gesetzt wird.
  MSFlexgridToExcel = False
  MsgBox App.EXEName & ”   “ & Err.Number & vbCrLf & Err.Description, vbCritical
  Debug.Print App.EXEName & ”   “ & Err.Number & vbCrLf & Err.Description
End Function

Sie können hier bei vbarchiv.net für mich voten!

Bingo ist ebenfalls ein Begriff, ein Spiel in dem man eine oder mehrere Karten die mit einer Anzahl von Zahlen bedruckt sind in die Hand bekommt. Ein Conferencier zieht wie beim Lotto per Zufall aus einer Trommel Kugeln mit aufgedruckten Zahlen. Er ruft diese Zahlen aus, woraufhin die Teilnehmer sie auf ihren Spielkarten mit einem Farbstempel oder einem Stein markieren - sofern sie die ausgerufenen Zahlen auf ihrem Teilnahmecoupon haben. Sobald der erste Teilnehmer alle Zahlen auf seinem Los markieren konnte, ruft er laut und vernehmlich Bingo!.

Und nun die Kombination: Lottozahlen und Bingo!

Wie lange dauert es wohl, bis man ein Bingo (6 Zahlen) bei den normalen Lottoziehungen hat?

Aus diesem Grund wurde eine Software entwickelt, um den Annäherungswert eines “Bingos” zu ermitteln. Die Software simuliert eine Lottoziehung, indem Zufallszahlen im Lottoschema generiert werden. Diese Zufallszahlen der jeweiligen Ziehung werden mit 6 übermittelten Bingozahlen verglichen und abgehakt. So werden mehrere Millionen Lottoziehungen generiert und ein Annäherungswert ermittelt, bei welcher Ziehung man ein Bingo hat.