Pitää poistaa esim huutomerkin ja kysymysmerkin välissä oleva teksti sekä samalla huutomerkki ja kysymysmerkki. Miten?
Code: Select all
txt$="asdfg!ggrwe?aauutr"
txt=poista(txt,"!","?")
function poista(txt,a,b)
???
endfunction
Code: Select all
txt$="asdfg!ggrwe?aauutr"
txt=poista(txt,"!","?")
function poista(txt,a,b)
???
endfunction
Mikäli ymmärsin ongelmasi oikein, niin STRREMOVE()-funktio voisi auttaa.DJ-Filbe wrote:Miten voin poistaa merkkijonon keskeltä tietyn osan:
Pitää poistaa esim huutomerkin ja kysymysmerkin välissä oleva teksti sekä samalla huutomerkki ja kysymysmerkki. Miten?Code: Select all
txt$="asdfg!ggrwe?aauutr" txt=poista(txt,"!","?") function poista(txt,a,b) ??? endfunction
DJ-Filbe wrote:Miten voin poistaa merkkijonon keskeltä tietyn osan:
Pitää poistaa esim huutomerkin ja kysymysmerkin välissä oleva teksti sekä samalla huutomerkki ja kysymysmerkki. Miten?Code: Select all
txt$="asdfg!ggrwe?aauutr" txt=poista(txt,"!","?") function poista(txt,a,b) ??? endfunction
Code: Select all
Function poista (Str$,a$,b$)
Return StrRemove (t,InStr (t,a),InStr (t,b)-InStr (t,a)+1)
EndFunction
Tai näin:DJ-Filbe wrote:Miten voin poistaa merkkijonon keskeltä tietyn osan:
Pitää poistaa esim huutomerkin ja kysymysmerkin välissä oleva teksti sekä samalla huutomerkki ja kysymysmerkki. Miten?
Code: Select all
txt$="asdfg!ggrwe?aauutr"
txt=poista(txt,"!","?")
Function poista$(txt$,a$,b$)
Return GetWord(txt, 1, a) + GetWord(txt, 2, b)
EndFunction
En ole ihan 100% varma, mutta käsittääkseni HTML:ssä ei voi olla sisäkkäisiä tageja, tarkoittaen siis sitä, että kahden <-merkin välissä on aina täsmälleen yksi >-merkki. Algoritmina homma näin:DJ-Filbe wrote:Pitäisi poistaa tagit HTML-dokumentista ja jättää pelkkä teksti jäljelle. How?
Ensin pitänee poistaa HTML-tiedostoon sisältyvät mahdolliset javascriptit ja tyylitiedostot, sillä ne voivat sisältää esim vertailuoperaattoreita < tai >, jotka sotkisivat muuten hyvän algoritmin Osaan kyllä tämänSPuntte wrote:En ole ihan 100% varma, mutta käsittääkseni HTML:ssä ei voi olla sisäkkäisiä tageja, tarkoittaen siis sitä, että kahden <-merkin välissä on aina täsmälleen yksi >-merkki. Algoritmina homma näin:DJ-Filbe wrote:Pitäisi poistaa tagit HTML-dokumentista ja jättää pelkkä teksti jäljelle. How?
1. Siirrä kursori syötteen alkuun.
2. Lue syötettä, kunnes vastaan tulee <-merkki. Mikäli näin ei tapahdu vaan syöte loppuu, HTML-tagit on poistettu. Tulosta muokattu syöte.
3. Tallenna nykyinen kursorin sijainti.
4. Lue syötettä, kunnes vastaan tulee >-merkki. Mikäli näin ei tapahdu vaan syöte loppuu, se on viallinen.
5. Poista syötteestä kaikki data tallennetusta kursorin sijainnista nykyiseen kursorin sijaintiin.
6. Siirrä kursori takaisin tallennettuun sijaintiin.
7. Toista kohdasta 2.
Lisäksi attribuutitDJ-Filbe wrote:Ensin pitänee poistaa HTML-tiedostoon sisältyvät mahdolliset javascriptit ja tyylitiedostot, sillä ne voivat sisältää esim vertailuoperaattoreita < tai >, jotka sotkisivat muuten hyvän algoritmin ;) Osaan kyllä tämän :DSPuntte wrote:En ole ihan 100% varma, mutta käsittääkseni HTML:ssä ei voi olla sisäkkäisiä tageja, tarkoittaen siis sitä, että kahden <-merkin välissä on aina täsmälleen yksi >-merkki. Algoritmina homma näin:DJ-Filbe wrote:Pitäisi poistaa tagit HTML-dokumentista ja jättää pelkkä teksti jäljelle. How?
1. Siirrä kursori syötteen alkuun.
2. Lue syötettä, kunnes vastaan tulee <-merkki. Mikäli näin ei tapahdu vaan syöte loppuu, HTML-tagit on poistettu. Tulosta muokattu syöte.
3. Tallenna nykyinen kursorin sijainti.
4. Lue syötettä, kunnes vastaan tulee >-merkki. Mikäli näin ei tapahdu vaan syöte loppuu, se on viallinen.
5. Poista syötteestä kaikki data tallennetusta kursorin sijainnista nykyiseen kursorin sijaintiin.
6. Siirrä kursori takaisin tallennettuun sijaintiin.
7. Toista kohdasta 2.
Code: Select all
hiiri=LoadImage("media\\hiiri.bmp")
repeat
..
DrawImage hiiri,MouseWX(),MouseWY()
drawscreen
Code: Select all
DrawToWorld OFF,ON,OFF
DrawImage hiiri,MouseWX(),-MouseWY()
Code: Select all
hiiri=LoadImage("media\cursor.bmp")
Repeat
DrawImage hiiri, MouseX() - ImageWidth( hiiri ) / 2, MouseY() - ImageHeight( hiiri ) / 2
DrawScreen
Forever
Code: Select all
DrawToWorld ON,OFF,OFF
For puu.rakennukset = Each rakennukset
If ObjectsOverlap (hiiri_obj,puu\obj) Then
Box ObjectX(puu\obj)-64,ObjectY(puu\obj)+64,96,96,0
EndIf
Next puu
Hiiren oikea -> Ominaisuudet -> Yhteensopivuus -> Suorita tämä ohjelma järjestelmänvalvojanaKille wrote:[angst]Coolbasic lakkasi ensin värjäämästä komentoja. Uudelleenasensin sen ja vielä kolmen uudelleenkäynnistyksen jälkeen herjasi "previous program runningia". Löysin kyllä foorumeilta ratkaisun (suorita järjestelmänvalvojana), mutta outoa on se, että eilen cb toimi ihan ongelmitta. (sammuttaessa windows päivittyi) Onko tähän mitään pysyvää ratkaisua, ettei aina tarvisi säätää?
Kiitos vinkistä, tuo toimii hyvin!Viltzu wrote:Hiiren oikea -> Ominaisuudet -> Yhteensopivuus -> Suorita tämä ohjelma järjestelmänvalvojanaKille wrote:[angst]Coolbasic lakkasi ensin värjäämästä komentoja. Uudelleenasensin sen ja vielä kolmen uudelleenkäynnistyksen jälkeen herjasi "previous program runningia". Löysin kyllä foorumeilta ratkaisun (suorita järjestelmänvalvojana), mutta outoa on se, että eilen cb toimi ihan ongelmitta. (sammuttaessa windows päivittyi) Onko tähän mitään pysyvää ratkaisua, ettei aina tarvisi säätää?
Näin Win7 (Suomenkielinen) saa käynnistymään aina järjestelmänvalvojana.