Minulla on tekstitiedostoon tallennettu suku ja etunimi puolipisteellä erotettuna toisistaan. Nyt tiedosto pitäisi selailuvaiheessa palauttaa eri riville sukuni ja etunimi. Miten saisin sen jaettu eri riveille?
Option Explicit 'Esitellään muuttuja ObjTextStream, joka on tyyppiä TextSream Dim ObjTextStream As scripting.TextStream Private Sub cmdSeuraava_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim rivi As String 'luetaan suku ja etunimi muuttujaan rivi rivi = ObjTextStream.ReadLine ’Rivi sisältää sukunimen ja etunimen ja se pitäisi saada eri tiveille tulostettua txtSuku = ObjTextStream.rivi ’ txtEtu =
Tutustu tiedostonkäsittely-oppaaseen (https://www.ohjelmointiputka.net/oppaat/opas.
ja Split() -funktioon (https://www.ohjelmointiputka.net/hak/?kieli=Visual Basic&nimi=Split)
Split-funktiolla moinen tosiaan onnistuu (VB:n kuutosversiossa). Funktio jakaa merkkijonon taulukkoon tietyn merkin kohdalta, esimerkiksi:
Dim nimi As String, tiedot() As String nimi = "eka;toka" tiedot = Split(nimi, ";") MsgBox tiedot(0) 'eka MsgBox tiedot(1) 'toka
Aihe on jo aika vanha, joten et voi enää vastata siihen.