Søg
Avatar billede joergen_vinther Nybegynder
02. juli 2006 - 22:25 Der er 4 kommentarer og
1 løsning

Save-Load-Mystik

Jeg er ude for nedenstående mystiske problem.

  St = "333.333333"
 
  Open "SaldoFil" For Output As #1
      Print #1, St
  Close #1
 
  Open "SaldoFil" For Input As #1
      Input #1, St
  Close #1
 
  MsgBox St 'Nu er St: "333,333333"

Punktummet i strengen ændres til komma. Hvorfor?
Når Jeg læser filen med WordPad er den 333.333333, altså med Punktum.

Spørgsmål 2.
Hvordan gemmer man en single-variabel "Kommatal" på disk, og hvordan læser man den igen ?
Avatar billede sjh Nybegynder
02. juli 2006 - 22:49 #1
Problemet er som så mange andre.. BRUG DOG DIM TIL JERES VARIABLER.. så i ikke kommer ud i sådan nogle problemer!

Brug -> Dim St As String

Private Sub Form_Load()
Dim St As String
  St = "333.333333"
 
  Open "C:\SaldoFil.txt" For Output As #1
      Print #1, St
  Close #1
 
  Open "C:\SaldoFil.txt" For Input As #1
      Input #1, St
  Close #1
 
  MsgBox St 'Nu er St: "333.333333"
End Sub
Avatar billede joergen_vinther Nybegynder
03. juli 2006 - 11:44 #2
Hej sjh. Tak for oplysningen. Jeg mangler stadig svar på spørgsmål 2.
Avatar billede sjh Nybegynder
03. juli 2006 - 12:30 #3
du skal bare ha LINE forand.. ellers vil den opdele (,) (komma)

Line Input #1, St
Avatar billede joergen_vinther Nybegynder
03. juli 2006 - 13:56 #4
Hej sjh. Du har svaret på mit første spørgsmål. 2. spørgsmål kan måske misforstås. Jeg prøver igen. Hvordan gemmer man en single-variabel - et kommatal - på disk, og hvorledes læser man den igen?
Avatar billede sjh Nybegynder
04. juli 2006 - 06:18 #5
Problemet er at man ikke kan skrive (,) som et tal i koden.. brug da punktum

Private Sub Form_Load()
Dim sngValue As Single

  sngValue = 123.12

  MsgBox "Gemmer nu: " & sngValue
  Open "C:\SaldoFil.txt" For Binary Access Write As #1
    Put #1, 1, sngValue
  Close #1

  Open "C:\SaldoFil.txt" For Binary Access Read As #1
    Get #1, 1, sngValue
  Close #1
  MsgBox "Læst fra filen: " & sngValue
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
03/1012:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
White papers
Flere white papers »