Avaleht
uus teema   vasta Tarkvara »  Programmeerimine »  Programmeerimine Visual Basic 6.0s Enterprise Edition. märgi kõik teemad loetuks
märgi mitteloetuks
vaata eelmist teemat :: vaata järgmist teemat
Hinnavaatlus :: Foorum :: Uudised :: Ärifoorumid :: HV F1 ennustusvõistlus :: Pangalink :: Telekavad :: HV toote otsing
autor
sõnum Saada viide sõbrale. Teata moderaatorile
otsing:  
konverteri
HV vaatleja

liitunud: 20.10.2015
sõnum 20.03.2017 02:04:07 Programmeerimine Visual Basic 6.0s Enterprise Edition. vasta tsitaadiga
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
vaata kasutaja infot saada privaatsõnum
infidel
HV kasutaja
infidel

liitunud: 31.01.2004



Autoriseeritud ID-kaardiga
sõnum 20.03.2017 10:41:07 Re: Programmeerimine Visual Basic 6.0s Enterprise Edition. vasta tsitaadiga
Selgitused sellised:

vb:
  1. Private Sub Command1_Click() 'Algab moodul, mis on seotud nupule Command1 klõpsamisega
  2. Dim StartPos, Counter As Integer ' defineeritakse täisarvulised muutujad  StartPos (algväärtus) ja Counter (lugeja)
  3. Dim FindString, ReplaceText As String ' defineeritakse tekstilised muutujad FindString (otsisõna) ja ReplaceText (asendatav tekst)
  4. FindString = "test" ' FindString saab väärtuseks "test"
  5. ReplaceText = "MyString" ' ReplaceText saab väärtuseks "MyString"
  6.  
  7. 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.
  8.       StartPos =Instr(Text1.Text, FindString) ' StartPos saab väärtuseks FindStringi esimese vaste Text1.Texti sees
  9.       if StartPos > 0 Then ' Kui StartPos on suurem kui 0 (vaste on olemas), siis alustatakse tingimuslikku osa
  10.                 Text1.SelStart = StartPos -1 'Text1 seest valitakse koht, mille algus on 1 võrra väiksem kui StartPos
  11.                 Text1.SelLength = Len(FindString) ' Valiku pikkuseks on FindString pikkus
  12.                 Text1.SelText  = " " + ReplaceText ' Valitud tekst asendatakse ReplaceText väärtusega.
  13. End If ' tingimusliku osa lõpp
  14. Next ' võetakse ette tsükli järgmine samm
  15.  
  16. 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
vaata kasutaja infot saada privaatsõnum
näita postitusi alates eelmisest:   
uus teema   vasta Tarkvara »  Programmeerimine »  Programmeerimine Visual Basic 6.0s Enterprise Edition.
[vaata eelmist teemat] [vaata järgmist teemat]
 lisa lemmikuks
näita foorumit:  
 ignoreeri teemat 
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.