visual basic filteren van text

[Verwijderd]

hoj

ik krijg dus ALLE text wat hier benede staat in een strreceived .. dus van een server maar.....
weet iemand hoe ik uit de text hieronder alleen de txt NA de maps/ kan filteren en in een listbox kan zetten ?
zodat ik krijg :
cs_thunder.bsp
cs_747.bsp
dus voor elke map naam 1 additem om het zomaar te zeggen
en zoals de dir: cstrik en -------- moete gwoon weg dus.



ÿÿÿÿl
Dir: cstrike
-------------
(fs) cstrike/maps/cs_thunder.bsp
(fs) cstrike/maps/cs_747.bsp
(fs) cstrike/maps/cs_assault.bsp
(fs) cstrike/maps/cs_backalley.bsp
(fs) cstrike/maps/cs_estate.bsp
(fs) cstrike/maps/cs_italy.bsp

Dir: valve
-------------

Dir: valve
-------------

[disjfa]

dan moet je een loopje maken:

dim pathnaam
dim bestandnaam
do until bestandnaam = ""
[overzetten naar listbox]

bestandnaam = dir
loop

ik geloof dat ie zo was

[tus]

Tekst na die laatste slash krijg je zo

code:

Debug.Print Right$( sMetSlash, Len(sMetSlash) - InStrRev( sMetSlash, "/", -1, vbTextCompare ) )

[Verwijderd]

tis geen txt file

ik kreeg deze data via udp binne in een string

dus als :
ÿÿÿl|Dir: cstrike|-------------||(fs)st rike/maps/cs_thunder.bsp|(fs) cstrike/maps/cs_747.bsp|(fs) cstrike/maps/

en die | zijn enters dus als jem in een richtextbox doet komt alles wel onder elkaar
maar als jem in een listbox wil plante doet die dus gwoon 1 zin van al die data achter elkaar met die | er tusse ..






test = Right$(strReceived, Len(strReceived) - InStrRev(strReceived, "cstrike", -1, vbTextCompare))

dat werkt wel MAAR dan pakt die alleen het laatste deel
en de hele datazin bestaat uit die dele
damn dis moeilijk uit te legge

k kan ook nie paste die data string want deze txtbox ziet het ook als enter

dit zit er in :

Dir: cstrike|-------------|(fs) cstrike/maps/cs_thunder.bsp|(fs) cstrike/maps/cs_747.bsp|(fs) cstrike/maps/cs_assault.bsp|(fs) cstrike/maps/cs_backalley.bsp|(fs) cstrike/maps/cs_estate.bsp|(fs) cstrike/maps/cs_italy.bsp|
(fs) cstrike/maps/de_dust.bsp|(fs) cstrike/maps/de_dust2.bsp|(fs) cstrike/map/blablal
en elke | is een chr(enter)
dus als jem in een txt box doet .. standaard zie je dit als 1 zin zonder een spatie er tussen
help !@#$@#$

kan je niet doen b.v. als die een cs*.bsp of een de*.bsp tegen komt hij die der uithaald en dan in een listboxt plant ?!

[Verwijderd]

ghmz

k dag al wel dat niemand id had

nja

[MrBrown]

Kijk eens naar het principe regular expressions (zie msdn), en probeer er een te maken die checkt op /*.bsp, waar * de naam van de map is. (zal iets worden van /[\w]?\.bsp ofzo)

[Verwijderd]

t werkt allemaal nie luitjes

[Verwijderd]

hgmm


k ben nu aan het filtere dus

maar als ik dat afdruk in een listbox
komt voor het additem dinge
dus telkens weer

en zwart balkje testaan
ik weet nie welke char dat is hoe kan ik daar achter komen ?
k denk zelf een enter maar als ik :


Private Sub Command1_Click()
Dim A As Variant
Dim i As Integer
i = 1
A = Parse(Text1.Text, chr(13)) <<-- dit werkt niet hoe kan ik dat zwarte balkje omzette in een char zodat die daar op gaat filteren ??


Do While A(i) <> " "
On Error GoTo end1:

MsgBox A(i)
List1.AddItem A(i)
i = i + 1

Loop
end1:
End Sub

[Verwijderd]

JAAAAAAAAAAAAAAA


KEPPUT #@$@

t was gwoon domweg

chr(10)

en nie 13

waar is 10 voor btw ?

[Verwijderd]

dit zit in 1 string.........
cs_thunder.bsp cs_747.bsp cs_assault.bsp cs_backalley.bsp cs_estate.bsp cs_italy.bsp cs_militia.bsp cs_office.bsp cs_siege.bsp de_survivor.bsp de_torn.bsp de_aztec.bsp de_cbble.bsp de_dust.bsp de_dust2.bsp de_inferno.bsp de_nuke.bsp de_prodigy.bsp de_storm.bsp de_train.bsp de_vegas.bsp de_vertigo.bsp


hmmm hoe krijg ik elke textding wat aan elkaar zit.. dus
cs_thunder.bsp of cs_747.bsp in een listbox?

[marcusk]

Op zaterdag 20 oktober 2001 01:18 schreef nasher het volgende:
t was gwoon domweg

chr(10)

en nie 13

waar is 10 voor btw ?

in windows vormen chr(13) en chr(10) samen een enter, maar jij krijgt je tekst waarschijnlijk binnen via een linux server, waarbij het alleen chr(10) is.

hmmm hoe krijg ik elke textding wat aan elkaar zit.. dus
cs_thunder.bsp of cs_747.bsp in een listbox?

met een loopje de spaties bepalen en dan de stringetjes ertussen pakken?

[Verwijderd]

juh

een counter strike serv...
udp ..


mare k vat nog nie hoe dit werkt

dit zit in 1 string.........
cs_thunder.bsp cs_747.bsp cs_assault.bsp cs_backalley.bsp cs_estate.bsp cs_italy.bsp cs_militia.bsp cs_office.bsp cs_siege.bsp de_survivor.bsp de_torn.bsp de_aztec.bsp de_cbble.bsp de_dust.bsp de_dust2.bsp de_inferno.bsp de_nuke.bsp de_prodigy.bsp de_storm.bsp de_train.bsp de_vegas.bsp de_vertigo.bsp

hmmm hoe krijg ik elke textding wat aan elkaar zit.. dus
cs_thunder.bsp of cs_747.bsp in een listbox?

[Verwijderd]

code:

Dim arr
arr=Split("cs_thunder.bsp cs_747.bsp cs_assault.bsp cs_backalley.bsp cs_estate.bsp cs_italy.bsp cs_militia.bsp cs_office.bsp cs_siege.bsp de_survivor.bsp de_torn.bsp de_aztec.bsp de_cbble.bsp de_dust.bsp de_dust2.bsp de_inferno.bsp de_nuke.bsp de_prodigy.bsp de_storm.bsp de_train.bsp de_vegas.bsp de_vertigo.bsp"," ")
Dim i

For i=0 To UBound(arr)
  listbox.AddItem arr(i)
Next

...should do the trick.

[disjfa]

Op zaterdag 20 oktober 2001 01:18 schreef nasher het volgende:
JAAAAAAAAAAAAAAA


KEPPUT #@$@

t was gwoon domweg

chr(10)

en nie 13

waar is 10 voor btw ?

staat voor een algemene enter, 13 is ook voor hetzelfde, maar 10 werkt.........
ik check alleen op 10 zelf, 13 boeit me nie, en dat maakt ook nie uit wrom weet ik ook nie idd

greetz

[Verwijderd]

Dim arr
Dim i

txtget.Text = Replace(strReceived, Chr(10), " ", 1)
txtget.Text = Replace(txtget.Text, Chr(13), " ", 1)
txtget.Text = Replace(txtget.Text, weg, " ", 1)
txtget.Text = Replace(txtget.Text, weg2, " ", 1)
txtget.Text = Replace(txtget.Text, weg3, " ", 1)
txtget.Text = LTrim(txtget.Text)
txtget.Text = RTrim(txtget.Text)
arr = Split(txtget.Text, " ")
For i = 0 To UBound(arr)
List3.AddItem arr(i)
Next

damn damn damn hij plaatst telkens tussen een additem een lege regel
heb ik nie goed gefilterd??

[Narf109]

Op zaterdag 20 oktober 2001 01:18 schreef nasher het volgende:
chr(10)

en nie 13

waar is 10 voor btw ?

Carriage return en Linefeed
ofwel VbCrLf

[Verwijderd]

tnx


btw

kep et nu goed

er zate 2 spaties tusse dus vandaar dat die der 1 weg haalde

en voor de andere een additem deed.. dat hebk nu dus gefixt

oe 23423 dage overgedaan eehhe
nja
ik ga f ZzZZzZz

[Verwijderd]

ok voor de gene die mijn probleem wou wete met mijn zeer onduidelijke uitleg dit is ut dus

txtget.Text = Replace(strReceived, Chr(10), " ", 1)
txtget.Text = Replace(txtget.Text, Chr(13), " ", 1)
txtget.Text = Replace(txtget.Text, weg, " ", 1)
txtget.Text = Replace(txtget.Text, weg2, " ", 1)
txtget.Text = Replace(txtget.Text, weg3, " ", 1)
txtget.Text = LTrim(txtget.Text)
txtget.Text = RTrim(txtget.Text)
txtget.Text = Replace(txtget.Text, " ", " ", 1)



arr = Split(txtget.Text, " ")
Dim i
For i = 0 To UBound(arr)
List3.AddItem arr(i)
Next


tnx 4 ppl die msg sende