string manipulatie vb2008

[Jayster2]

Een klasgenoot van mij heeft in html iets geschreven dat namen kan invoegen en naar een file kan schrijven. Nu is het per regel: <naam>:<achternaam >. Nu wil ik deze file in VB2008 openen en verwerken in variablen maar ik heb de achternaam niet nodig. Is er een manier om alles te negeren na ( en inclusief ) de " : " ?

Bijv de line: "Simon:De Jong"
Word: "Simon"

De file word op een basic manier geimport, per regel:

        Dim lijstpath As String = Environment.CurrentDirectory + "\namenlijst.txt"
        Dim lijstreader As StreamReader = File.OpenText(lijstpath)
        Dim i as integer = 0
        Do While lijstreader.Peek() >= 0
            varLijst[i] = basereader.ReadLine()
            i = +1
        Loop
        basereader.Close()

Ik kan altijd nog vragen aan hem om de file anders te formulieren. Ik kon geen tutorial of iets dergelijks vinden.

Groetjes

 

[That Guy]

Ehm zoiets?

dim mijnString as string = "Test:Achternaam"
dim iLen as integer = mijnString.length   [COLOR="SeaGreen"]'of: len(mijnString) - ik weet niet hoe dit in vb.NET gaat[/COLOR]
dim alleenVoornaam as string

for i as integer = 0 to iLen   [COLOR="SeaGreen"]'loop door de string[/COLOR]
   if mid$(mijnString,i,1) = ":" then   [COLOR="SeaGreen"]'als de ":" is gevonden[/COLOR]
      alleenVoornaam = left$(mijnString,i-1)   [COLOR="SeaGreen"]'haal rechterkant eraf[/COLOR]
     [COLOR="SeaGreen"] 'eventueel escape je de loop[/COLOR]
   end if
next i

nu, dit is gewoon loopen totdat je een ":" tegenkomt en dan de linkerkant nemen. Ik denk dat in vb.NET wel iets is ingebouwd hiervoor, maar dat weet ik niet. Dit zou zowiezo moeten werken.


:thumb:

 

[Jayster2]

Bedankt voor de hulp. Hij geeft 2 fouten

alleenVoornaam = Left$(mijnString, i - 1) 

- 'Public Property Left() As Integer' has no parameters and its return type cannot be indexed.

- Type character '$' does not match declared data type 'Integer'.

 

[evertVB]

Probeer even uit of jouw VB-versie "Left" kent zonder $-teken.
Of zoek even in de help-index van jouw visual basic naar Left of Left$

 

[That Guy]

Het moet inderdaad Left zonder $ zijn. Zie ook http://bytes.com/topic/visual-basic-net/answers/369816-left-mid-right-vb-net.

 

[Jayster2]

Thanks voor alle hulp, het zal nu waarschijnlijk wel werken.

 

[Koen B]

je zou ook kunnen doen:

dim naam() as string
naam = split(MijnString,":")

naam(0) geeft dan de voornaam en naam(1) de achternaam