Hvis man vil læse en CSV fil, plejer jeg at læse den, og bruge " til at
override et komma, således
If bInQoutes then
If mid(string,i,1)="," then
SplitString
end if
end if
og herudover er også CR & LF tekstafgrænsere.
Hvis man er til lette løsninger, så kan man bruge Input:
Dim a as long
Dim b as string
Dim lFilehandle as long
lFileHandle = FreeFile
Open "filename" for Input As lFilehandle
Input #lFilehandle, a
Input #lFileHandle, b
Close lFilehandle
og den kan godt finde ud af hvornår der er delimiters, men hvis du på et
tidspunkt har en række der ikke er helt fyldt ud, kan du ikke se det, de
næste data bliver bare forkerte. Og så skal man være meget påpasselig med
hvilket tegn som bliver brugt i decimal tal, da man ikke kan indstille VB's
format. Derudover, kan man ikke bruge classmembers som destination, her må
man hente data'ene ind i en lokal variabel, og herefter flytte dem over i
class'en. Husk at bruge de rigtige datatyper.
Mvh. Rayman.
<poulravn1@hotmail.com> skrev i en meddelelse
news:3c063ee8$0$31337$edfadb0f@dspool01.news.tele.dk...
> Du har ret. Denne vil være et problem.
> Jeg tror man må dele den op først som Jens V. beskriver, og så checke hver
> enkelt delstreng for at se om den indeholder et andet deletegn, f.eks. ".
> Hvis den gør det, må man samle strengen igen.
>
> Men det bedste vil være at undgå at få denne dobbelttydighed (jeg kan ikke
> lige se hvordan helt generelt).
>
> Hilsen
>
> Poul Ravn
>
> "Tomas Christiansen" <toc@blikroer.removethis.dk> wrote in message
> news:9u3m4e$e8t$1@news.cybercity.dk...
> > poulravn1@hotmail.com skrev:
> > > dele denne 'string'
> > >
> > > 11,"Not Entered","13:22:02","11-27-2001"
> > >
> > > op efter kommaerne i fire delstrenge?
> >
> > Hvordan skal f.eks:
> > 1, 2, "3, 4", 5
> > deles op?
> >
> > Som | 1 | 2 | "3, 4" | 5 | eller som | 1 | 2 | "3 | 4" | 5 | ?
> >
> > -------
> > Tomas
> >
>
>