vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 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

Visual-Basic Einsteiger
Re: Daten alle Stunde speichern 
Autor: AndyOG
Datum: 28.06.06 11:16

Hi,
hab mich mal dran gesetzt. soweit funzt es...
kannst den Code ja mal durchstöbern

Option Explicit
Const strLogFilePath = "C:\log.txt"
Dim DeinWert As String
Dim LastTime As String
 
Private Sub Form_Load()
 
    DeinWert = "Keine Ahnung was hier stehen wird"
 
    ' Wenn das Tool geöffnet wird, sollte der erste Wert in der aktuellen 
    ' Stunde eingetragen werden.
    Call WriteThisHour
 
End Sub
 
Private Function GetInfo(sFilename As String) As String
 
    Dim F As Integer
    Dim sInhalt As String
 
        If Dir$(sFilename, vbNormal) <> "" Then
            F = FreeFile
            Open sFilename For Binary As #F
                sInhalt = Space$(LOF(F))
                Get #F, , sInhalt
            Close #F
        End If
 
        GetInfo = sInhalt
 
End Function
 
Private Sub SetInfo(sFilename As String, sValue As String)
 
    Dim strText As String
        strText = GetInfo(strLogFilePath)
 
    Dim strTempText() As String
        strTempText() = Split(strText, vbCrLf, 1)
 
    Dim strNewLine As String
        '
        If UBound(strTempText) > -1 Then
            If InStr(1, strTempText(0), Mid(sValue, 1, InStr(1, sValue, " "))) _
              > 0 Then
                Mid(strText, 1, InStr(1, strText, vbCrLf)) = sValue
            Else
                If strText <> "" Then strNewLine = vbCrLf
                strText = sValue & strNewLine & strText
            End If
        Else
            If strText <> "" Then strNewLine = vbCrLf
            strText = sValue & strNewLine & strText
        End If
 
        Open strLogFilePath For Output As #1
            Print #1, strText
        Close #1
 
End Sub
 
Private Sub TimeToRefresh_Timer()
 
    Dim i As Integer
    Dim strTime() As String
        strTime() = Split(CStr(Time), ":")
 
        ' zu jeder vollen Stunde den aktuellen Wert in eine Textdatei ausgeben
        If strTime(1) = "00" And strTime(0) <> LastTime Then
            LastTime = strTime(0)
            Call SetInfo(strLogFilePath, strTime(0) & ":" & strTime(1) & "  - " & _
              "" & DeinWert)
        End If
 
End Sub
 
Private Sub WriteThisHour()
 
    Dim i As Integer
    Dim strTime() As String
        strTime() = Split(CStr(Time), ":")
 
        Call SetInfo(strLogFilePath, strTime(0) & ":" & "00" & "  -  " & _
          DeinWert)
 
End Sub

Mit freundlichen Gr??en,
Andy G.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Daten alle Stunde speichern589wollez28.06.06 09:32
Re: Daten alle Stunde speichern322OldMan28.06.06 11:01
Re: Daten alle Stunde speichern338AndyOG28.06.06 11:16
Re: Daten alle Stunde speichern313wollez30.06.06 09:37

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