Lesen .CSV-Datei in VB6 und das finden der max numerischen Wert:

Bin ich eine schreckliche Zeit versucht, herauszufinden, wie zu bringen .CSV-Datei, Lesen Sie in den einzelnen Daten, die Ganzzahlen sind, und einfach finden Sie den maximalen Wert der Datei.

Ich habe fertig, das öffnen der Datei in excel, und tun, die Berechnungen in excel mit VB6. Allerdings möchte ich nicht verwenden, keine externen Programme.

Bitte kann mir jemand helfen, erklären, wie Sie zu öffnen .CSV-Datei, und Lesen Sie die Eingabe von Daten in eine variable.

Schon seit Stunden und es treibt mich absolut verrückt.

Kann ich einfach den rest von dort.

Danke Jungs/Mädels...

InformationsquelleAutor Defektive | 2011-12-28

csv vb6

3
```
Dim F As Long, d As Double, dMax As Double
F = Freefile
Open "file.csv" For Input As F
While Not Eof(F)
    Input #F, d
    If d > dMax Then dMax = d
Wend
Close F
MsgBox "Max is " & dMax
```
Geht davon aus, dass nur eine Spalte in der CSV-Datei. Verwenden
```
Input #F, col1, col2, col3
```
etc... Für mehrere Spalten.
- Danke! Wenn ich Eingangs mein Verzeichnis/Datei "file.csv", es Fehler aus. Ich denke, ich habe das brennen der Kerze so lange, dass mein Gehirn ist was aus an dieser Stelle. Beispiel: Dim strFilePath As String strFilePath = dirBox.Pfad & "\" & filBox.Mit dem Namen Dim f As Long, d As Double, dMax As Double Open strFilePath Für die Eingabe Als f, Während Nicht EOF(f) Input #f, d Wenn d > dMax Dann dMax = d Wend Close f MsgBox "Max" & dMax
- Ich fügte hinzu, f = FreeFile nach den Erklärungen aber, bevor der Datei-Öffnen-Teil und es funktioniert! Vielen Dank Matt für die Hilfe. Genial!
- UPS, sorry, vergessen. Ich werde es die Antwort. Was bekomme ich für den Versuch einer Antwort auf ein iPad!
- +1, wenn nur für das schreiben von VB6 auf einem iPad :O
- Wenn die Antwort richtig ist, ich würde schätzen, Ihre Kennzeichnung, es beantwortet - vielen Dank!
InformationsquelleAutor Matt H

Den Jet-Text-IISAM kann ein leistungsfähiges Werkzeug für alle Arten der Verarbeitung von Dateien mit tabellarischen text. Sie können einfache Abfragen, Verknüpfungen zu Dateien, einbetten VBA Expression Service-Ausdrücke in Abfragen, transformieren eines input-Datei in ein anderes Ausgabeformat, und viele andere Dinge.

Durch hinzufügen eines Schemas.ini-Datei, die Sie haben eine bessere Kontrolle über Trennzeichen, Spalte Benennung, Datentyp-Formate, und Bearbeiten kann, fixed-field-text als gut.

Einfach zu finden das maximum einer Spalte aber:

'Requires a reference to ADO 2.5 or later.

Private Function GetMax( _
    ByVal FieldNum As Integer, _
    ByVal CSVFile As String, _
    Optional ByVal CSVFolder As Variant) As Variant
    'Find max value in field FieldNum of CSVfile, assumed
    'here to be a HDR=No CSV file so field names are F1,
    'F2, etc.

    Dim rsResult As ADODB.Recordset

    If IsMissing(CSVFolder) Then
        CSVFolder = App.Path
    ElseIf VarType(CSVFolder) <> vbString Then
        CSVFolder = App.Path
    End If

    Set rsResult = New ADODB.Recordset
    With rsResult
        .CursorLocation = adUseClient
        .Open "SELECT Max(F" & CStr(FieldNum) & ") FROM [" & CSVFile & "]", _
              "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" _
              & CSVFolder _
              & "';Extended Properties='Text;HDR=No'", _
              adOpenStatic, adLockReadOnly, adCmdText
        GetMax = .Fields(0).Value
        .Close
    End With
End Function

Während dies Aussehen kann, overkill, halte es der "Keim" von vielen anderen text-Tabelle-Verarbeitung Ideen.

Dies ist als wirksam und nützlich in VBScript als in VB.

Sehen Verarbeitung Von Text-Datenbanken für weitere Informationen.

InformationsquelleAutor Bob77

1

Wie es aussieht ist die Wurzel des Problems ist das Lesen der Datei eine Zeile zu einem Zeitpunkt. Ich würde die Verwendung der Scripting.FileSystemObject http://support.microsoft.com/kb/186118, diesen job zu tun. Es ist viel einfacher zu verwenden als das eingebaute Input - Anweisung. Hier ist ein code von dieser Seite:
```
Private Sub Command1_Click()
   'Declare variables.
    Dim fso As New FileSystemObject
    Dim ts As TextStream
    'Open file.'
    Set ts = fso.OpenTextFile(Environ("windir") & "\system.ini")
   'Loop while not at the end of the file.'
    Do While Not ts.AtEndOfStream
        Debug.Print ts.ReadLine
    Loop
    'Close the file.'
    ts.Close
End Sub
```
Sobald Sie haben eine Zeile text trennen benutzen, um ein array von Werten, inspizieren Sie dann jede, um zu sehen, ob es numerisch ist. Wenn es so ist, zählen die Werte Ihrer Suche nach dem maximum. Sehen Sie, diese Frage für einige Lösungen, um eine ähnliche Frage, die helfen kann, sowie: Gibt es eine VB6-Funktion analagous C ist sscanf?

InformationsquelleAutor JeffK

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.