Jos minulla tekstinpätkä jossa on jokin lause ja keskellä sitä lausetta on * merkki.
Kuinka saan tehtyä sellaisen jutun että ohjelmani tunnistaa tuon tähti merkin ja laskee vasemmalta päin monta kirjainta siinä on ja poistaa ne ja myöskin sen tähden.
Tähti merkin oikealle puolelle oleva teksti pitäisi jäädä.
Olen kyllästynyt yrittämään tätä...
Kuinka saan tehtyä sellaisen jutun että ohjelmani tunnistaa tuon tähti merkin ja laskee vasemmalta päin monta kirjainta siinä on ja poistaa ne ja myöskin sen tähden.
Tähti merkin oikealle puolelle oleva teksti pitäisi jäädä.
Olen kyllästynyt yrittämään tätä...
Vastaukset 3
Vanhimmat
Vaikka tällaisella funktiolla...
Private Function GetText(ByVal sWord As String) As String
Dim lPos As Long
lPos = InStr(1, sWord, "*")
'Jos '*' ei löydy, ei palauteta mitään
If lPos = 0 Then Exit Function
GetText = Mid$(sWord, lPos 1, Len(sWord))
End Function
kunha alko kiinnostaa. tekisin jotai uutta mielelläni ku noi laskin hommat tympii
Tämä on sitten VB6:lle. Funktio jolle annat lauseen parametrina. Palauttaa nimessään tähden kohdan.
En koittanut toimiiko, mutta jotenkin näin:
Public function findStar(lause as string)_
as integer
for i = 1 to len(lause)
if mid(lause, i, 1) = "*" then findStar=i
next i
end function