Miten saisin omaan visual basic projektiini sellaisen ominaisuuden mitä on yleisimmissä teksti editoreissa eli kirjotetaan rivi numero ja painetaan ok niin sarkain on sillä rivillä?
Olisi ehkä maailman siistein juttu, jos kertoisit käytätkö esim. Textboxia, Rtboxia vai mitä?
Ihan koodivinkeistä löytyi seuraava:
https://www.ohjelmointiputka.net/koodivinkit/
kiitos etenin jonkin verran jo mutta miten saisin vielä siirretty sarkaimen sille tietylle riville? käytän textboxia mutta jos sitä ei saa siinä mitenkään siirrettyä niin voin käyttää myös rtboxia...
Valmista toimintoa ei taida olla, mutta voit kokeilla niin, että etsit silmukalla rivivaihtomerkkejä ja kasvatat muuttujaa aina kun sellainen löytyy. Kun löytyy oikea rivivaihto (esim. kolmas rivivaihto, jos haluat siirtää sarkaimen kolmannelle riville), niin vaihdat SelStart-ominaisuuden osoittamaan siihen kohtaan tekstiä, josta rivivaihto löytyi.
Esim.
For i = 1 To Len(Text1.Text) 'Käydään merkit läpi If Mid$(Text1.Text, i, 2) = vbCrLf Then 'Jos löytyy rivivaihto am = am + 1 'Kasvatetaan muuttujaa If am = 3 Then Text1.SelStart = i + 1 'Jos kolmas rivi niin siirretään tekstiosoitinta End If Next i
kiitos hunajavohveli tuo toimii täydellisesti kun ottaa tuolta text1.selstart = i + 1 kohdasta tuon + 1:sen pois... vähän offtopic: miten saisin vielä omaan editoriini sellaisen "Etsi / korvaa sana" toiminnon?
No vaikka Replace-funktiolla.
Replace-funktio ei taida varmistaa korvausta vaan käy heti kaikki läpi. Luulisin näin.
Tavalliseen etsimiseen voit soveltaa tuota hunajavohvelin antamaa pätkää. kun käydään kaikki merkit läpi, katsotaan i:nnestä merkistä Mid-funktiolla etsittävän sanan pituuden verran eteenpäin. Mikäli ne täsmää, on etsittävä löytynyt. Jos haluat,, ettei kirjainkoolla ole väliä, niin vertaile molempia vaikka Lcase-funktiolla käsiteltynä.
Tai Ucase functiolla
Sain toimimaan kiitoksia avusta...
Aihe on jo aika vanha, joten et voi enää vastata siihen.