vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
Punkt- und Komma-Änderung bei Datei einlesen/speichern 
Autor: Hilde
Datum: 22.10.12 21:43
Hallo liebe Gemeinde,
seit Stunden jagt mich folgendes Problem:

Ich habe einen Code, welche mir die Zahl 152,34 (deklariert als Currency) in eine Textdatei in die erste Zeile schreiben soll. Gespeichert wird die Zahl mit einem Komma. In Currency wird ja, so glaube ich, mit Punkt als Trenner gearbeitet.

Nun möchte ich diese Zahl im zweiten Schritt wieder einlesen, im txt-Doc steht also "152,34". Nach Datei einlesen in die als Currency deklarierte Variable steht mir jedoch nur der Wert 152,00 (nach Format 0.00) zur Verfügung. Ändere ich manuell das Komma und ersetze es durch einen Punkt, klappt die Einlesung wunderbar.

Was ich also vermutlich brauche, ist: Beim Speichern muss bereits mit Punkt abgespeichert werden. Aber ich bekomme es einfach nicht hin. Habe auch schon versucht mit den Variablen-Typen zu spielen und umzuwandeln, replace etc. aber nichts hilft.

Bekanntes Problem?
Lösung?


Danke und Grüße!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Punkt- und Komma-Änderung bei Datei einlesen/speichern 
Autor: Hilde
Datum: 22.10.12 21:48
Ganz vergessen, hier natürlich der Code: 

Option Explicit
Dim FahrpreisSumme As Currency
Dim Barkasse_gesamt As Currency
Dim Dateinummer as Integer
 
FahrpreisSumme = 152.34
 
'Schreiben
Dateinummer = FreeFile
 
    Open "fahrpreise.dat" For Output As Dateinummer
        Print #Dateinummer, FahrpreisSumme
    Close #Dateinummer
 
 
 
'Lesen
Dateinummer = FreeFile
 
    Open "fahrpreise.dat" For Input As Dateinummer
        Input #1, Barkasse_gesamt
    Close #Dateinummer
Bewirken soll es, die Monatskasse täglich mit den Tageseinnahmen addieren zu können - muss man eben speichern können, um weiterzuzählen.

Beitrag wurde zuletzt am 22.10.12 um 21:50:24 editiert.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Punkt- und Komma-Änderung bei Datei einlesen/speichern 
Autor: Zardoz
Datum: 22.10.12 22:03
Hallo Hilde,
welche VB-Version?
Ersetzte Print durch Write.

Gruss,

Zardoz

Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Punkt- und Komma-Änderung bei Datei einlesen/speichern 
Autor: Hilde
Datum: 22.10.12 22:09
6.0 unter Win7
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Punkt- und Komma-Änderung bei Datei einlesen/speichern 
Autor: eierlein
Datum: 23.10.12 00:11
Versuch's mal so: 

Dim FahrpreisSumme As Currency
Dim Barkasse_gesamt As Double 'Currency
Dim Dateinummer As Integer
Dim tmp As String
 
FahrpreisSumme = 152.34
tmp = Trim$(Str$(FahrpreisSumme)) 'Mit CStr funktioniert's nicht!
 
'Schreiben
Dateinummer = FreeFile
 
    Open "d:\##\fahrpreise.dat" For Output As Dateinummer
        Print #Dateinummer, tmp
    Close #Dateinummer
 
 
'Lesen
Dateinummer = FreeFile
 
    Open "d:\##\fahrpreise.dat" For Input As Dateinummer
        Input #1, tmp
    Close #Dateinummer
 
    Barkasse_gesamt = Val(tmp)
0
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

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-2024 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