Definierte Methoden

•  Application_Startup: Wird beim Programmstart ausgeführt.

String in Datei suchen

Public Function ReadFileSpecial(ByVal strFileName As String, _
                       Optional ByVal strFind As String = "Lager1:", _
                       Optional ByVal lngOffset As Long = 50) As String

Const lngForReading = 1

Dim fso     As Object
Dim fsoFile As Object
Dim strRet1 As String
Dim strRet2 As String
Dim lngFind As Long


On Error GoTo FileReadAllErr

ReadFileSpecial = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoFile = fso.OpenTextFile(strFileName, lngForReading, False)
strRet1 = fsoFile.ReadAll
lngFind = InStr(strRet1, strFind)
If lngFind > 0 Then
  strRet2 = Trim(Mid(strRet1, lngFind + Len(strFind)))
  ReadFileSpecial = Left(strRet2, lngOffset)
End If
fsoFile.Close

FileReadAllExit:
  Set fsoFile = Nothing
  Set fso = Nothing
  Exit Function

FileReadAllErr:
  MsgBox Err.Description, vbCritical, "ReadFileSpecial: Fehler " & Err.Number & " aufgetreten!"
  ReadFileSpecial = ""
  Resume FileReadAllExit
End Function

Haftungsausschluss: Verwendung der Informationen auf Ihre eigene Gefahr. Wir übernehmen keinerlei Haftung. Beachten Sie auch den Haftungsausschluss.

Wenn Sie Wünsche, Anregungen, Verbesserungen, Korrekturen oder sonstige Vorschläge zu dieser FAQ haben: . Wir freuen uns auf Ihr Mail.

 Und jetzt noch ein bisschen Werbung...

Stellensuche, Jobangebote unter www.notizia.ch/stellensuche