praegune kellaaeg 24.04.2024 12:37:22
|
Hinnavaatlus
:: Foorum
:: Uudised
:: Ärifoorumid
:: HV F1 ennustusvõistlus
:: Pangalink
:: Telekavad
:: HV toote otsing
|
|
autor |
sõnum |
|
konverteri
HV vaatleja
liitunud: 20.10.2015
|
20.03.2017 02:04:07
Programmeerimine Visual Basic 6.0s Enterprise Edition. |
|
|
Kas keegi saaks mulle töötava programmi rida rea kauppa lahti seletada?
Privaatne Sub Command1_Click()
Dim StartPos, Counter As Integer
Dim FindString, ReplaceText As Stringid
FindString = "test"
ReplaceText = "MyString"
For Counter= 1To Len(Text1.Text)
StartPos =Instr(Text1.Text, FindString)
StartPos > 0 Then
Text1.SelStart = StartPos -1
Text1.SellLength = Len(FindString)
Text1.SelText = " " + ReplaceText
End If
Next
End Sub
Programmi ülesanne.
Programm muudab sisestatud texti seest sõna test ära MyStringiks.
|
|
tagasi üles |
|
|
infidel
HV kasutaja
liitunud: 31.01.2004
|
20.03.2017 10:41:07
Re: Programmeerimine Visual Basic 6.0s Enterprise Edition. |
|
|
Selgitused sellised:
vb:
|
Private Sub Command1_Click() 'Algab moodul, mis on seotud nupule Command1 klõpsamisega Dim StartPos, Counter As Integer ' defineeritakse täisarvulised muutujad StartPos (algväärtus) ja Counter (lugeja) Dim FindString, ReplaceText As String ' defineeritakse tekstilised muutujad FindString (otsisõna) ja ReplaceText (asendatav tekst) FindString = "test" ' FindString saab väärtuseks "test" ReplaceText = "MyString" ' ReplaceText saab väärtuseks "MyString" For Counter= 1To Len(Text1.Text) ' algab tsükkel, mille käigus käiakse läbi muutuja Counter väärtused alates 1st kuni Text1.Text (tekstivälja Text1 väärtus) pikkuseni. StartPos =Instr(Text1.Text, FindString) ' StartPos saab väärtuseks FindStringi esimese vaste Text1.Texti sees if StartPos > 0 Then ' Kui StartPos on suurem kui 0 (vaste on olemas), siis alustatakse tingimuslikku osa Text1.SelStart = StartPos -1 'Text1 seest valitakse koht, mille algus on 1 võrra väiksem kui StartPos Text1.SelLength = Len(FindString) ' Valiku pikkuseks on FindString pikkus Text1.SelText = " " + ReplaceText ' Valitud tekst asendatakse ReplaceText väärtusega. End If ' tingimusliku osa lõpp Next ' võetakse ette tsükli järgmine samm End Sub ' mooduli lõpp
|
9. real oli ilmselt IF puudu, lisasin selle. Mõned autokorrektuurist tulnud kalad olid ka (string - stringid, private - privaatne).
|
|
Kommentaarid: 35 loe/lisa |
Kasutajad arvavad: |
|
:: |
0 :: |
0 :: |
34 |
|
tagasi üles |
|
|
|
lisa lemmikuks |
|
|
sa ei või postitada uusi teemasid siia foorumisse sa ei või vastata selle foorumi teemadele sa ei või muuta oma postitusi selles foorumis sa ei või kustutada oma postitusi selles foorumis sa ei või vastata küsitlustele selles foorumis sa ei saa lisada manuseid selles foorumis sa võid manuseid alla laadida selles foorumis
|
|
Hinnavaatlus ei vastuta foorumis tehtud postituste eest.
|