|
| |
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 |
 |
|
Neu! sevCommand 4.0 
Professionelle Schaltflächen im modernen Design!
Mit nur wenigen Mausklicks statten auch Sie Ihre Anwendungen ab sofort mit grafischen Schaltflächen im modernen Look & Feel aus (WinXP, Office, Vista oder auch Windows 8), inkl. große Symbolbibliothek. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere 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
|
|
Sie sind aktuell nicht angemeldet.
