|
| |
Visual-Basic Einsteiger| Daten aus CSV-Datei einlesen | |  | | Autor: Pit the King | | Datum: 26.04.06 09:11 |
| Hallo liebe Helfer,
ich lese Daten aus einer CSV-Datei ein. Das klappt auch. Nur kann ich keine Daten als String einlesen. Es ist eigentlich genau so, wie bei den anderen Daten auch, dennoch bekomme ich immer die Meldung:
Fehler beim komilieren: Methode oder Datenobjekt nicht gefunden. Dieses Problem bezieht sich auf Position_int.
Hier der Quellcode. Wer kann mir helfen:
Option Explicit
Public sFname As String 'Pfad zur csv-Datei
Public sCoords() As String 'Array zum Speichern der Koordinaten
Public Const Zaeler_Pos = 35
Public Const Zaeler_Pos_i = 35
Public Const Zaehler_Raum = 40
Public Const Zaehler_Position = 62
Public Const Zaehler_Fensterbankanschluss = 43
Type Auftragsdaten
Auftragsnummer As String
End Type
Type Position_int
Raum As String
End Type
Type Position
Position As Double
Fensterbankanschluss As Double
End Type
Public Pos_i() As Position_int
Public Pos() As Position
Public Auftrag As Auftragsdaten
Sub Datenimport()
Dim n As Integer 'counter used when resizing sCoords array
'Initialisierung
Versionstring = "Version " & Version_Nr & " " & Version_Datum & " " & Chr(169) & "Aufmass mit System"
sFname = ""
Auftrag.weite = 100
Auftrag.hoehe = 100
Auftrag.ypos = 1350
Auftrag.xpos1 = 0
Auftrag.xpos2 = 700
'******************************************************************************************************
'Ende Initialisierung
Dim i As Integer 'index used while parsing
Dim j As Integer 'index used while parsing
Dim k As Double
Dim Position As Double
'Dim Position_int As String
Form_Eingabe1.Show
'************************************************************************
'Daten aus dem Array sCoords auslesen und in dem Feld "Pos" speichern
'Pos beinhaltet Variablen vom Typ Position und wird dynamisch erzeugt
If sFname <> "" Then
'gesamte Zeichnung löschen
ActiveDrawing.Graphics.Clear
On Error GoTo Errhandler01
For i = 1 To UBound(sCoords)
ReDim Preserve Pos(i - 1)
For j = 1 To Len(sCoords(i))
If Mid(sCoords(i), j, 1) = ";" Then
k = k + 1
If k = Zaeler_Pos Then
' If k = 30 Then
cfirst = j + 1
Exit For
End If
Else
End If
Next j
Pos(i - 1).Position = Val(Mid(sCoords(i), cfirst, 5))
For j = 1 To Len(sCoords(i))
If Mid(sCoords(i), j, 1) = ";" Then
k = k + 1
If k = Zaehler_Fensterbankanschluss Then '43
cfirst = j + 1
k = 0
Exit For
End If
Else
End If
Next j
Pos(i - 1).Fensterbankanschluss = Val(Mid(sCoords(i), cfirst, 5))
Next i
Dim Position_int As String
For i = 1 To UBound(sCoords)
ReDim Preserve Pos_i(i - 1)
For j = 1 To Len(sCoords(i))
If Mid(sCoords(i), j, 1) = ";" Then
k = k + 1
If k = Zaeler_Pos_i Then
' If k = 30 Then
cfirst = j + 1
Exit For
End If
Else
End If
Next j
Pos_i(i - 1).Position_int = Val(Mid(sCoords(i), cfirst, 5))
For j = 1 To Len(sCoords(i))
If Mid(sCoords(i), j, 1) = ";" Then
k = k + 1
If k = Zaehler_Raum Then '43
cfirst = j + 1
k = 0
Exit For
End If
Else
End If
Next j
Pos_i(i - 1).Raum = Val(Mid(sCoords(i), cfirst, 5))
Next i
Dim clast As Integer
For j = 1 To Len(sCoords(0))
If Mid(sCoords(0), j, 1) = ";" Then
cfirst = j + 1
Exit For
End If
Next j
For j = cfirst To Len(sCoords(0))
If Mid(sCoords(0), j, 1) = ";" Then
clast = j
Exit For
End If
Next j
Auftrag.Bauvorhaben = Mid(sCoords(1), cfirst, clast - cfirst)
k = 0
For j = 1 To Len(sCoords(0))
If Mid(sCoords(0), j, 1) = ";" Then
k = k + 1
If k = Zaehler_Auftragsnummer Then '11 Then
cfirst = j + 1
Exit For
End If
Else
End If
Next j
For j = cfirst To Len(sCoords(0))
If Mid(sCoords(0), j, 1) = ";" Then
clast = j
Exit For
End If
Next j
On Error GoTo Errhandler02
Set Dr = Application.ActiveDrawing
Set grs = Dr.Graphics | |
 | 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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere Infos
|
| |
|
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
|
|
November 2025
Sie sind aktuell nicht angemeldet.
