Keskustelu: Ohjelmointikysymykset: VB6: .Ini tiedostot app kansiosta listboxiin

Otsikkoni kertoo jo jonkin verran että minun pitäisi saada kaikki *.ini tiedostot App.path kansiosta ohjelman listboxiin. Olen onnistunnut jo se verran että if lauseella saan yhden *.ini tiedoston listboxiin mutta en osaa loopata muita sinne. Koodini on tälläinen

Private Sub Form_Load()
palle = Dir(App.Path & "\*.ini")
If palle <> "" Then
Open palle For Input As #5
List1.AddItem palle
Close #5
End If

Ensimmäisen Dir-kutsun jälkeen tyhjä Dir hakee seuraavan tiedoston samalla hakuehdolla.

palle = Dir(App.Path & "\*.ini")
while palle <> ""
  List1.AddItem palle
  palle = Dir //Haetaan seuraava tiedosto
wend

Hmm tuo ei toimi. Kun käy stepillä läpi niin se heittää kaikki komennot keltaisiksi jotka ovat Private Sub Form_Load() proseduurin sisällä.

EDIT: nytten sain toimimaan kiitos.

Vielä olisi kaksi kysymystä koskien samaa ohjelmaa
Kun lataan ne tuohon listboxiin (siis nuo *.ini tiedostot app.path kansiosta) niin voisinko saada listboxissa tuon päätteen siitä pois. esim: jos sinne latautuu omani.ini tiedosto niin se näkyy listboxissa "omani.ini" niin voinko saada sen näkymään jotenki pelkkänä "omani" nimellä siellä listboxissa?

Ja toinen vähän offtopic kysymys mutta koskee samaa ohjelmaa voiko vb:ssä lukea tietyltä riviltä tietyn sanan jotenkin?
esim: jos minulla lukee rivillä "Moi heps haha mitä niin voikun 80.220.47.651 181.684.218" niin voinko lukea tuon 80.220.47.651 "sanan" sieltä jotenkin textboxiin?

Cc kirjoitti:

niin voisinko saada listboxissa tuon päätteen siitä pois

Älä kysy, voiko: tietysti voi.
Tutustu funktion 'Left' (ja Right ja Mid) toimintaan.

Cc kirjoitti:

niin voinko lukea tuon 80.220.47.651 "sanan" sieltä jotenkin textboxiin?

Millä tavalla "lukea"? Tiedätkö ko. sanan etukäteen ja haluat saada tietää, esiintyykö se ko. rivillä, vai onko rivi aina samanlaista muotoa, jossain vain tuo IP vaihtuu?

Ensimmäisessä tapauksessa InStr hoitaa homman, jälkimmäisessä nuo ensimmäisestä kysymyksestä tutut Left, Right ja Mid.

Blaze kirjoitti:

Älä kysy, voiko: tietysti voi.
Tutustu funktion 'Left' (ja Right ja Mid) toimintaan.

Olisiko mitään esimerkkiä?

Cc kirjoitti:

Blaze kirjoitti:

Älä kysy, voiko: tietysti voi.
Tutustu funktion 'Left' (ja Right ja Mid) toimintaan.

Olisiko mitään esimerkkiä?

Left: https://www.ohjelmointiputka.net/hak/?kieli­=Visual Basic&nimi=Left
Right: https://www.ohjelmointiputka.net/hak/?kieli­=Visual Basic&nimi=Right
Mid: https://www.ohjelmointiputka.net/hak/?kieli­=Visual Basic&nimi=Mid

Sain tuon toimimaan mutta kun listboxiin tulee sellaisia kuin
Omani.ini, kotiverkko.ini, jees.ini, muut.ini ja pari muuta niin miten saan noista kaikista tuon .ini:n pois kun nuo ovat eripituisia?

Tarvit tiedon, millä kohalla se pilkku on. InStr kertoo.

Edit: tai no, turhaa vaivaa, sehän on aina neljäs merkki oikealtapäin. Ja merkkijonon pituudenhan sai Len-funktiolla.

Kuten huomaat, kaikki päättyvät termillä ".ini". Eli ota pois viimeiset 4 merkkiä:

tied = "kotiverkko.ini"
tied = Right(tied, Len(tied) - 4)
' Nyt tied = "kotiverkko"

sqwiik: Siinä piti muuttaa Right Leftiksi niin alkoi toimimaan en kyllä tiedä miksi silleen mutta kunhan toimii niin samase minulle.

Ja tuohon toiseen kysymykseen vielä. Voiko vb:llä lukea tiedostosta tietyn sanan esim: "Moi heps haha mitä niin voikun 80.220.47.651 181.684.218" tuollaisesta tuon 80.220.47.651 ip osoitteen rivi pysyy aina yhtä pitkänä vain nuo 2 numero sarjaa muuttuvat siellä.

EDIT: vielä yksi offtopic kysymys voiko hidden tiedostoja poistaa jotenkin?