Keskustelu: Ohjelmointikysymykset: VB.NET: (vb) merkkijonon muuntaminen

Millä koodilla saisin ohjelmani muuntamaan tekstin TextBox:ista. Ohjelman olisi tarkoitus poimia kaikki sanat ja muuttaa tietyt sanat joksikin muuksi esim: kun ohjelma törmää suomenkieliseen tekstiin niin se kääntää sen suomeksi. mutta tarkoitukseni olisi tehdä koodin avulla joku oma ohjelmointikieli. Jos tämän koodin saisi Vb.Net:ille mutta vb6:lle kin käy. Koodin olisi olla vhän samanlainen kuin joku ohjelma jolla pystyy kääntämään lauseita suomeksi. mutta mieluiten niin että siinä ei ole rajoituksia sille montako sanaa se käntää. Kiitos jo valmiiksi!

Visual Basic 6:

Text1.Text = Replace(Text1.Text, "vanha", "uusi")

Visual Basic .NET:

TextBox1.Text = TextBox1.Text.Replace("vanha", "uusi")

Kiitos... mutta jos sovellan tätä oman html editorin kanssa jossa on omat "tagit" niit kuinka saan esim linkin muunnettua. jos minun kielessä se olisi "(linkki/osoite/Linkkinnimi\Linkki)" ja html: "<a href="osoite">Linkin nimi</a>" kuinka saan "-merkit muunnetuksi kun visual basic ei salli koodissa "-merkkejä.

Merkkijonon sisällä lainausmerkkejä täytyy olla kaksi. Eli jos merkkijono on <a href="osoite">Linkin nimi</a>, se täytyy ilmoittaa muodossa "<a href=""osoite"">Linkin nimi</a>".

Kokeilu tota Visula basic 6:ssa ja .Net:issä mutta eihän sillä pysty muuttamaan kuin yhden asian tekstistä... Hain jotain sellasta koodia et se olis tavallaan "Kääntäjä" ja tallentais loppu tulokse tiettyyn kansioon "käännettynä"

No eipä tietenkään, mutta kun noita laittaa useamman peräkkäin, niin sittenhän se onnistuu. Voit laittaa alkuperäiset ja muutetut merkkijonot taulukkoon ja sitten käydä taulukon silmukassa läpi.

Kiitos... en keksiny tota enkä mitään kunnolla toimivaksi... kun on "opiskellu" visual Basic:iä vasta 3-4 kuukautta.

Keksin tossa helpon Sensuurin joka tarvii vaan text1:sen
ja CommandButtonin .

Ja tietenkin koodin

Private Sub Command1_Click()
Dim kiro(1) As String
kiro(1) = "H******"
'ja muita kiro sanoja ...
For i = 1 To 1 'kiro sano jen määrä
Text1.Text = Replace(Text1.Text, kiro(i), "****")
Next i
End Sub

Petrinm:

lainaus:

'ja muita kiro sanoja ...
'kiro sano jen määrä

Niin sun vissiin kannattais opetella kirjottamaan Suomen kieltä suht virheettömästi ennen kuin rupeet koodaamaan. Oon lukenu nyt muutaman sun kirjoittaman vastauksen ja niistä kyllä huomaa että on se äikkä vähän hakusessa, tai noh ei ihan nii vähääkään.

Huom: suomen kieltä

vastauksia lisää... koskaan ei voi olla liian paljon vaihtoehtoja