Typkonversion von String 2 Double
24.02.2004 11:09:35
ben krebs
lese eine datei in der koordinatentripel (leerzeichentrennung) stehen mit lineinput ein und habe dann ein unauflösbares problem, wenn eine zahl keinen dezimalpunkt hat, also anscheinend nicht als zahl erkannt wird. Code nachfolgend. Für Hilfe schon jetzt vielen dank, sonst muss ich in der Quelldatei ein paar dezimalpunkte einfügen ;-(( z.Bsp
2574646.0844 5911689.4966 -9.0002 'kein problem
2573146.1713 5909789.7517 -9.0001 'kein problem
2574086.1168 5911669.4993 -9 'PROBLEM
2561966.8197 5920888.2617 -9 'ditto
Viele Grüße aus Ostfriesland schon mal ...
Public
Sub OPENPEILDATZUWEISENMOD(ByVal kontzeilenindex As String, ByRef m As Long, ByRef TOPODIFF() As Double, Jahresstring As String)
Dim stringdummy As String 'dummyvar
Dim teststring1 As String 'prüfstring
Dim zahl1 As Double 'übergabevariable
Dim zahl2 As Double 'übergabevariable
Dim zahl3 As Integer 'übergabevariable
Dim i As Long 'zählindex leerzeichen 1
Dim k As Long 'zählindex leerzeichen 2
k = 1
i = 1
Open "..\Peildateien\" + Jahresstring + "\" + kontzeilenindex _
For Input As #1
Do While Not EOF(1)
Line Input #1, stringdummy
teststring1 = Left(stringdummy, 1)
If teststring1 <> Chr(124) Then
Do Until Mid(stringdummy, i, 1) = Chr(32)
i = i + 1
Loop
Do Until Mid(stringdummy, k + i, 1) = Chr(32)
k = k + 1
Loop
'-----%