|
| Makro? Fra : poulravn1@hotmail.co~ |
Dato : 28-11-01 11:07 |
|
Hej, er der nogen her som har en makro, der kan følgende:
dele denne 'string'
11,"Not Entered","13:22:02","11-27-2001"
op efter kommaerne i fire delstrenge?
Evt. som selv kan finde ud af hvor mange delstrnge der skal være, når blot
deletegnet er kendt?
Venlig hilsen
Poul Ravn Sørensen
| |
Jens Vestergaard (28-11-2001)
| Kommentar Fra : Jens Vestergaard |
Dato : 28-11-01 11:45 |
|
<poulravn1@hotmail.com> skrev i en meddelelse
news:3c04b751$0$31353$edfadb0f@dspool01.news.tele.dk...
> Hej, er der nogen her som har en makro, der kan følgende:
>
> dele denne 'string'
>
> 11,"Not Entered","13:22:02","11-27-2001"
>
> op efter kommaerne i fire delstrenge?
Dim s OrgStreng As String
Dim sDelStrenge() As String
Dim iAntalDelstrenge As Integer
sDelStrenge = Split(sOrgStreng, ",")
iAntalDelstrenge = Ubound(sDelStrenge)
--
mvh
Jens Vestergaard
www.railsoft.dk
| |
Tomas Christiansen (28-11-2001)
| Kommentar Fra : Tomas Christiansen |
Dato : 28-11-01 22:49 |
|
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
| |
poulravn1@hotmail.co~ (29-11-2001)
| Kommentar Fra : poulravn1@hotmail.co~ |
Dato : 29-11-01 14:58 |
|
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
>
| |
Rayman (29-11-2001)
| Kommentar Fra : Rayman |
Dato : 29-11-01 20:49 |
|
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
> >
>
>
| |
|
|