Keskustelu: Ohjelmointikysymykset: VB6: Kova kasa ongelmia

Älkää sanoko että lues oppaita vaan suoria vastauksia näihin jotka tulevat omaan harjoittelu projekteihini. eli
kysymys 1

CommonDialog.Filter = "Kaikki muodot (*.*)|*.*| (*.txt)|*.rtf"
CommonDialog.FilterIndex = 2
CommonDialog.Action = 2
save = CommonDialog.Orientation

eli mitä pitäisi loppuun lisätä että tämä tallentaisi?

ja jos tunnistaisi sanan vaikka mo niin se laittaisi text1.text:iin moi sanan?

lues oppaita! X-)

koodivinkeissä taisi olla jokin tallentamisesta vb :ssä

Jos tallennettava teksti nyt vaikka on Text1-nimisessä tekstilaatikossa, niin kirjoita näin:

'valittavat tiedostopäätteet
CommonDialog.Filter = "Tekstitiedostot (*.txt)|*.txt|Kaikki tiedostot (*.*)|*.*"
'ikkunan otsikko
CommonDialog.DialogTitle = "Tallenna tiedosto"
'näytetään tallennusikkuna
CommonDialog.ShowSave
'jos tiedoston nimi ei ole tyhjä (painettu Peruuta)
If CommonDialog.FileName <> "" Then
    'jos tiedosto on jo olemassa
    If Dir(CommonDialog.FileName) <> "" Then
        'jos käyttäjä ei halua tallentaa päälle...
        If MsgBox("Tiedosto on jo olemassa. Haluatko tallentaa päälle?", vbYesNo) = vbNo Then
            '...poistutaan aliohjelmasta
            Exit Sub
        End If
    End If
    'tallennetaan teksti tiedostoon
    Open CommonDialog.FileName For Output As #1
    Print #1, Text1.Text
    Close #1
End If

Toisesta kysymyksestäsi en saanut tolkkua.

lainaus:

Jos tallennettava teksti nyt vaikka on Text1-nimisessä tekstilaatikossa, niin kirjoita näin:

'valittavat tiedostopäätteet
CommonDialog.Filter = "Tekstitiedostot (*.txt)|*.txt|Kaikki tiedostot (*.*)|*.*"
'ikkunan otsikko
CommonDialog.DialogTitle = "Tallenna tiedosto"
'näytetään tallennusikkuna
CommonDialog.ShowSave
'jos tiedoston nimi ei ole tyhjä (painettu Peruuta)
If CommonDialog.FileName <> "" Then
    'jos tiedosto on jo olemassa
    If Dir(CommonDialog.FileName) <> "" Then
        'jos käyttäjä ei halua tallentaa päälle...
        If MsgBox("Tiedosto on jo olemassa. Haluatko tallentaa päälle?", vbYesNo) = vbNo Then
            '...poistutaan aliohjelmasta
            Exit Sub
        End If
    End If
    'tallennetaan teksti tiedostoon
    Open CommonDialog.FileName For Output As #1
    Print #1, Text1.Text
    Close #1
End If

Toisesta kysymyksestäsi en saanut tolkkua.

kiitti antti. Siis sitä että kirjoitan tekstikenttään sanaa jasmin ja heti kun on tullut tarpeeksi kirjaimia teksti kenttään niin silloin se vaihtaa sanan jasminiksi. niinkuin t9 sanakirja kännykässä

Eli homma hoituu vaikkapa näin tekstilaatikon change-tapahtumassa:

Private Sub Text1_Change()   'kun tekstikentän Text1 sisältöä muutetaan
If Text1.Text = "jasmin" Then 'jos tekstikentässä lukee jasmin
    Text1.Text = "jasmini"     'niin muutetaan sen tekstiksi jasmini
End If
End Sub

kiitos hessu! :)