[ASP / VB] Text manipuleren...

[Verwijderd]

Beste mensen, ik heb het voor elkaar gekregen dat mijn scriptje NU.nl nieuws ophaald.

een stukje Nu.nl:

code:

   - Getronics verlengt aanmeldingstermijn obligaties 
   - IBM gaat chips produceren voor Nvidia 
   - UPC: InterComm in beroep tegen ratificatie schuldsanering 
   - Magnus en Sofon gaan samenwerken op ERP-gebied 
   - Getronics-obligatiehouders eisen uitstel BAVA

Zo zijn er 20 regels, nu wil ik eigenlijk die headlines onderverdelen in 2 kolomen. Liefst in 2 variable: var 1 met deel 1 van nieuws (voor kolom 1) en var2 voor kolom 2...

Heeft iemand een id hoe ik dit moet maken/ aanpakken?

alvast bedankt.

[DeverauX]

Oke je wilt text manipuleren. In wat voor formaat heb je de data, plain text?
Dan zou je met het TextStream object bij elke line van je file een variabele kunnen declareren die bij elke loop +1 en vervolgens een conditional statement waarbij je het aantal regels verdeeld over twee kolommen.

[Kermit.de.Kikker]

Het makkelijkste lijkt me om ze op te splitsen in een array met de split functie:
arNieuw =split (strNieuws,"-")
en dan vervolgens met een (for) loopje in twee variabellen wegschrijven (<11 en > 10)

[Verwijderd]

devraux schreef op 27 maart 2003 @ 16:52:
Oke je wilt text manipuleren. In wat voor formaat heb je de data, plain text?
Dan zou je met het TextStream object bij elke line van je file een variabele kunnen declareren die bij elke loop +1 en vervolgens een conditional statement waarbij je het aantal regels verdeeld over twee kolommen.

Wil je hier mee zeggen dat ik het "bestand" (variable) regel voor regel moet uitlezen?

De bron trouwens http://nu.nl/deeplink_html/ -> en dan (natuurlijk) "Net" nieuws

[Verwijderd]

Kermit.de.Kikker schreef op 27 March 2003 @ 16:54:
Het makkelijkste lijkt me om ze op te splitsen in een array met de split functie:
arNieuw =split (strNieuws,"-")
en dan vervolgens met een (for) loopje in twee variabellen wegschrijven (<11 en > 10)

MMm keej, begin een beeld te krijgen, maar ik snap niet helemaal hoe je het dan wilt doen, ik begrijp dat splitsen in comma's zodat je elke regel appart hebt... Wil je dan zoiets doen?

ASP:

<%
For arNieuw = 1 to 10
    Response.Write (arNieuw)
Next

'Tabel2
For arNieuw = 11 to 21
    Response.Write (arNieuw)
Next
%>

Wat nou als het aantal regels soms varieërt tussen bijv 20 en 22?

[Kermit.de.Kikker]

Ok, ik post hier niet zo vaak dus hoop dat dit werkt

ASP:

<%
arNieuw =split (strNieuws,"-")
intNumRec = ubound (arNieuws)

for intRowCounter = 0 to intNumRec
 if (intNumRec /2)  > intRowCounter then
   str1 = str1 & arNieuws(intRowCounter)
 else
   str2 = str2 & arNieuws(intRowCounter)
 end if
next


%>

wat je doet is bepaald het aantal headlines, dan loop je het array door en op de helft gooi je het in een ander variabele.

edit ff de faq gelezen en de code format aangepast en then toegevoegd

[ Voor 17% gewijzigd door Kermit.de.Kikker op 27-03-2003 17:10 ]

[Verwijderd]

Kermit.de.Kikker schreef op 27 March 2003 @ 17:07:
Ok, ik post hier niet zo vaak dus hoop dat dit werkt

ASP:

<%
arNieuw =split (strNieuws,"-")
intNumRec = ubound (arNieuws)

for intRowCounter = 0 to intNumRec
 if (intNumRec /2)  > intRowCounter then
   str1 = str1 & arNieuws(intRowCounter)
 else
   str2 = str2 & arNieuws(intRowCounter)
 end if
next


%>

wat je doet is bepaald het aantal headlines, dan loop je het array door en op de helft gooi je het in een ander variabele.

edit ff de faq gelezen en de code format aangepast en then toegevoegd

Tof dat je zo met me meedenkt, maar op een of andere vage manier splitst hij die text niet bij de "-"

error:

code:

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'ubound' 

/nu.nl.asp, line 33

En ja, de veriable staan natuurlijk goed

[ Voor 7% gewijzigd door Verwijderd op 27-03-2003 17:29 . Reden: wat vergeten! ]

[JohanDM]

Er zit een klein typfoutje in

ASP:

arNieuw =split (strNieuws,"-")

Dat moet zijn

ASP:

arNieuws =split (strNieuws,"-")

[Verwijderd]

Gaaf !!! het werkt super! geweldig!

Woei! /me happy & meteen een hele hoop geleerd! Tnx iedereen!

[Verwijderd]

of de xml newsfeed gebruiken ;-)