Osa merkeistä sensuuriin

lalalallaaaaal

Formilla kysytään yhdessä TextBoxissa tallennettavan tiedoston nimeä, ja TextBoxiinhan voi syöttää myös erikoismerkkejä /\?: jne...
Jos tiedostonimessä on näitä merkkejä, pukkaa tallennettaessa erroria.

Miten kiellettyjen merkkien käytön voi estää kokonaan? Ensiksi tuli mieleen replace(), mutta enhän minä edes tiedä mitkä kaikki merkit ovat kiellettyjä. Neuvokeeh...

3

333

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kunde

      lisää koodiin kiellettyjä merkkejä, nyt vain /\?

      Private Sub Text1_KeyPress(KeyAscii As Integer)
      Select Case KeyAscii
      Case Asc("/"), Asc("\"), Asc("?") ' tässä voit valita mitä merkkejä ei voida syöttää
      KeyAscii = 0
      Case Else
      End Select
      End Sub

      • lalalallaaaaal

        Mitänkä tämä menisi vb.netissä? Googlella löysin tällaista:


        Private Sub frmGame_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        Dim keyascii As Integer = AscW(e.KeyChar)
        End Sub


        Ei onnistu pistämällä keyascii = 0.


      • Orwell
        lalalallaaaaal kirjoitti:

        Mitänkä tämä menisi vb.netissä? Googlella löysin tällaista:


        Private Sub frmGame_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles MyBase.KeyPress
        Dim keyascii As Integer = AscW(e.KeyChar)
        End Sub


        Ei onnistu pistämällä keyascii = 0.

        Pistä sinne kontrollin KeyPress eventiin ao. koodin pätkä. Pitäisi estää a,b ja c kirjainten kirjoitus.

        Select Case e.KeyChar
        Case "a","b","c"
           e.Handled=True
        Case Else
           e.Handled=False
        End Select


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      92
      1939
    2. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      278
      1771
    3. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      307
      1575
    4. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      183
      1455
    5. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      89
      1040
    6. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      51
      1007
    7. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      56
      977
    8. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      56
      968
    9. 67
      944
    10. Miksi mies tuntee näin?

      Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui
      Ikävä
      40
      941
    Aihe