vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Allgemeine Diskussionen
Die konventioelle Lösung (ohne Excel-Zugriff) 
Autor: unbekannt
Datum: 21.06.03 13:13

 
LogFile(Byval sLogFile As String) As Long
Dim nLineCounter As Long
Dim f As Integer
Dim sInstring As String
Dim A_Range As String
Dim B_Range As String
Dim C_Range As String
Dim vErg As Variant

f = FreeFile
On Error Resume Next
Open sLogFile For Input As #f
If Err.Number > 0 OR f = 0 Then Exit Function
Do While Not Eof(f)
Input #f, sInString
If sInString <> "" Then
If Left(sInString,2) = "AN" Then
nLineCounter = nLineCounter + 1
vErg = Split(sInstring," ")
A_Range = vErg(1)
B_Range = Left(vErg(4),4)
C_Range = Right(vErg(4),4)
End If
End If
Loop
Close #f
ReadLogFile = nLineCounter
End Function
0
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Jepp Here is: Lordchens TextMapp Class971unbekannt19.06.03 17:36
Code 1465unbekannt19.06.03 17:40
Code 2559unbekannt19.06.03 17:40
Anwendungs - Minibeispiel:469unbekannt19.06.03 19:16
Vielleicht traut sich der Fragesteller nicht 374unbekannt19.06.03 21:30
Re: Vielleicht traut sich der Fragesteller nicht 391unbekannt19.06.03 21:34
Re: Vielleicht traut sich der Fragesteller nicht 367Dietmar20.06.03 09:08
Re: Vielleicht traut sich der Fragesteller nicht 394unbekannt20.06.03 12:38
Re: Vielleicht traut sich der Fragesteller nicht 409Dietmar20.06.03 13:35
Re: Vielleicht traut sich der Fragesteller nicht 362unbekannt20.06.03 17:14
Re: Vielleicht traut sich der Fragesteller nicht 401Dietmar20.06.03 17:25
Re: Vielleicht traut sich der Fragesteller nicht 322unbekannt20.06.03 18:18
Re: Vielleicht traut sich der Fragesteller nicht 424Dietmar20.06.03 18:23
Dieses ist die Frage:346unbekannt21.06.03 12:47
Mit Lordchens TextMappClass vielleicht?345Dietmar21.06.03 13:07
Die konventioelle Lösung (ohne Excel-Zugriff)393unbekannt21.06.03 13:13
TickCount bei 10.000 Iterationen399unbekannt21.06.03 13:26
"Etwas unkonventionelle Lösung (ohne Excel-Zugriff)407unbekannt21.06.03 13:55
Also folgendes378unbekannt22.06.03 00:38

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel