Søg
Avatar billede dk_akj Nybegynder
25. september 2001 - 10:20 Der er 2 kommentarer og
1 løsning

Læse binær fil

Hejsa

Hvem har en stump kode der indlæser de første 3 kolonner af denne binære fil.

Resultatet skal ind i 3 listboxe som text. Således
List1
$Hour
$Second
$Date

List2
Hour
Second
Date

List3
x
y
z


Det ser sådan ud hvis jeg åbner med notepad (4 linier)
Hele filen er på ca. 2 mB

Første line er jeg ligeglad med.

Anders



4Í«  ñ  §  i      <†  ä  ðr                       ±5                 
          X@                                                                                                                                                                                                                                        (±5                 
              ±5                 
                                                                                                              $System                          System                                            Ù ÿ    %                                                                                                                                                                                                                                                                      4Í«  4  Ž  .      o.  lˆ €d    ’                                                                                                              $Hour                            Hour                                              Ë ÿ                                                                                                                                                                                                                                                                              4Í«  4  Ž  .      o.  lˆ €d    ’                                                                                                              $Minute                          Minute                                            Ë ÿ    %                                                                                                                                                                                                                                                                        4Í«  4  Ž  .      o.  lˆ €d    ’                                                                                                              $Second                          Second                                            Ë ÿ    %                                                                                                                                                                                                                                                                        4Í«  4  Ž  .      o.  lˆ €d    ’                                                                                                              $Msec                            Msec                                              Ë ÿ                                                                                                                                                                                                                                                                              4Í«  4  Ž  .      o.  lˆ €d    ’                                                                                                              $Date                            Date                                              Ë ÿ                                                                                                                                                                                                                                                                              4Í«  4  Ž  .      o.  lˆ €d    ’                                                                                                              $Time                            Time                                              Ë ÿ                                                                                                                                                                                                                                                                              4Í«  4  Ž  .      o.  lˆ €d    ’                                                                                                             
Avatar billede johs_j Novice
25. september 2001 - 11:23 #1
Open \"FilNavn.txt\" For Binary As #FilNr

Ind = Input(AntalByteInd, #FilNr)


Close FilNr
Avatar billede cellaneous Nybegynder
25. september 2001 - 11:37 #2
istedetfor at vise os den binære fil så vis os den kode du har gemt filen med :-P det gør det en hel del nemmere

ellers ser det ud til at der er nogenlunde lige langt mellemrum mellem $Date og $Date, så du kan jo tælle antallet af bytes og smide det i en løkke, så du for hver syvogtyvende (eller hvad det nu bliver) byte tjekker der står \"$\" (ikke nødvendigt) og efterfølgende aflæser de næste fire bogstaver (Date) etc

- kig evt i http://www.eksperten.dk/spm/112632 hvor jeg har lavet noget med \"Private Sub Command3_Click()\" som tjekker for linjeskift (på samme måde kunne du tjekke for $) men det bliver meget nemmere for dig, fordi din fil har regelmæssige længder mellem $ hvor det eksempel havde uregelmæssige længder mellem linieskift - og heldigvis! for ellers ville du da aldrig blive færdig at tjekke en 2mb stor fil bit for bit...

for noget mere konkret, må du oploade en bid af filen som tekst med mindst to *hele* datasæt så man kan aflæse præcist hvor langt der er fra $Date til $Date, i dit eksempel er der kun én $Date og den stopper ved Time og vi ved jo ikke om der kommer noget uregelmæssigt som eksempelvis $Name eller noget i filen som ødelægger en evt løkke
Avatar billede dk_akj Nybegynder
25. september 2001 - 12:25 #3
Takker for inputs.

Cell> Det er ikke en fil jeg har lavet.

Kigger på det og vender tilbage.

Anders
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 dag 15:02 Gemme besked fra Facebook / Messenger Af lurup i Sociale medier
I går 20:17 Kan man kopiere en DVD og afspille den på * Linux Mint - Cinnamon - 22.1 - "Xia" * ? Af Ikke-ekspert i Linux
27/0821:03 Kan man få Word viewer gratis Af Strawberry i Word
26/0813:28 Findes der en brugsanvisning til : "ONKYO Stereo Casette - Tape Deck - R1" Af Ikke-ekspert i Musik & videoafspillere
24/0820:07 Libra Office 26.2.5.2 - Er sort - Kan an ændre til lysere baggrund ? (Windows 11) Af Ikke-ekspert i Office & Kontorpakker
White papers
Flere white papers »