Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

(n00b vraag) cmd nodig voor vervangen van een letter oid

msnaddonz
8 antwoorden
  • Ik ben zelf laatste tijd een beetje aan het rotzooien met VB, en had een leuk idee voor een progje.. maar nu kan ik iets niet vinden.

    Ik zoek namelijk een command om bijv. de [b:dc25fb2fae]a[/b:dc25fb2fae] te vervangen voor een [b:dc25fb2fae]4[/b:dc25fb2fae], een [b:dc25fb2fae]e[/b:dc25fb2fae] voor een [b:dc25fb2fae]3[/b:dc25fb2fae], etc.


    alvast bedankt voor de moeite om dit te lezen ;)
  • [code:1:2d479df3a3]
    'de string waarin het staat is invoer$
    'de string waarin de zoekletter staat is zoek$
    'de string waarin de verandernaarletter staat is naar$
    do until instr(invoer$,zoek$) = 0
    x = instr(invoer$,zoek$)
    mid$(invoer$,x)=naar$
    loop
    [/code:1:2d479df3a3]
    (niet getest)
  • [quote:fb7b5e4edb="Phruster"]Ik ben zelf laatste tijd een beetje aan het rotzooien met VB, en had een leuk idee voor een progje.. maar nu kan ik iets niet vinden.

    Ik zoek namelijk een command om bijv. de [b:fb7b5e4edb]a[/b:fb7b5e4edb] te vervangen voor een [b:fb7b5e4edb]4[/b:fb7b5e4edb], een [b:fb7b5e4edb]e[/b:fb7b5e4edb] voor een [b:fb7b5e4edb]3[/b:fb7b5e4edb], etc.
    [/quote:fb7b5e4edb]
    Hallo prutser :),
    Welke [i:fb7b5e4edb]a[/i:fb7b5e4edb] of [i:fb7b5e4edb]e[/i:fb7b5e4edb] wil je vervangen?
    Van een string, toetsenbordinvoer, etc…
    [quote:fb7b5e4edb="phruster"]
    alvast bedankt voor de moeite om dit te lezen ;)[/quote:fb7b5e4edb]
  • Ik heb een textbox waar je iets in kan typen.
    Als je dan op een knopje drukt moet in een textbox daaronder dus de text veranderd worden (oftewel eigenlijk moet daar een compleet nieuwe text komen die zeg maar wordt nagekeken en verbeterd.. soort van spellingscontrole, maar dan vraagt hij niets)
  • [quote:410fa4f214="Phruster"]Ik ben zelf laatste tijd een beetje aan het rotzooien met VB, en had een leuk idee voor een progje.. maar nu kan ik iets niet vinden.

    Ik zoek namelijk een command om bijv. de [b:410fa4f214]a[/b:410fa4f214] te vervangen voor een [b:410fa4f214]4[/b:410fa4f214], een [b:410fa4f214]e[/b:410fa4f214] voor een [b:410fa4f214]3[/b:410fa4f214], etc.
    alvast bedankt voor de moeite om dit te lezen ;)[/quote:410fa4f214]
    L33t-5p34K Generator!!!###
    Ninjalane - L33t Dictionary
    [quote:410fa4f214="Phruster"]
    Ik heb een textbox waar je iets in kan typen.
    Als je dan op een knopje drukt moet in een textbox daaronder dus de text veranderd worden (oftewel eigenlijk moet daar een compleet nieuwe text komen die zeg maar wordt nagekeken en verbeterd.. soort van spellingscontrole, maar dan vraagt hij niets)[/quote:410fa4f214]
    [code:1:410fa4f214]
    newstring = ''
    for i=1 to Length(s)
    select case mid(s,i,1)
    case 'a'
    newstring = newstring & '4'
    case 'b'
    newstring = newstring & 'b'
    case 'c'
    newstring = newstring & 'c'
    case …
    next i[/code:1:410fa4f214]
  • als ik dat invoer werkt het natuurlijk niet en ik kan het ook niet werkend maken…

    zou iemand plz een klein stukje van die code kunnen maken dat echt direct werkt? dan kan ik er daarna zelf verder aan sleutelen :)
  • Een complete spellingschecker. Ja, da's wel heel wat anders als simpelweg de ene letter door een andere vervangen.

    Heb je MSWord? Dan plak je eenvoudig weg die spellingchecker aan je programma. Dat is gewoon een com-object.
    Zoiets dus.

    Formpje maken met daarop een textbox (txtEditor genoemd hier) en een commandbutton (cmdOk). In je project een referentie zetten naar Microsoft Word Object library en draaien maar.

    [code:1:2264d47381]
    Private Sub cmdOk_Click()
    Dim wordObject As Word.Application
    Dim docObject As Word.Document
    Dim strTekst As String
    Dim strfilename As String

    On Error GoTo ERROR_HANDLER

    Set wordObject = New Word.Application

    wordObject.WindowState = 2
    wordObject.Visible = True

    ' Creëer nieuw document in de docs collectie.
    Set docObject = wordObject.Documents.Add()

    'Geef document wat inhoud.
    docObject.Content = txtEditor.Text
    'En gooi daar de spellingchecker overheen.
    docObject.CheckSpelling

    'Vervang de oorspronkelijke tekst door de gewijzigde versie.
    strTekst = docObject.Content

    'Haal dat door word toegevoegde karakter eraf.
    txtEditor.Text = Left$(strTekst, Len(strTekst) - 1)

    'Sluit en vernietig document.
    docObject.Close False
    Set docObject = Nothing

    'Sluit en vernietig word object.
    wordObject.Application.Quit True
    Set wordObject = Nothing

    ' Voor test, om te laten zien dat de boel in ieder geval foutloos gelopen heeft.
    ' MsgBox "Spell Check Complete"

    Exit Sub

    ERROR_HANDLER:

    MsgBox "Spelling check mislukt" & vbCr & Err.Number & ": " & Err.Description

    End Sub

    [/code:1:2264d47381]

    [edit]
    PS. Je krijgt alleen iets van word te zien als de spellingchecker een fout constateert. Dn krijg je dat spellingcheck boxje. Dus denk niet te snel dat het niet werkt. Geef echt een fout woord in.
    [/edit]
  • [quote:c14fab0ad5="Phruster"]Ik zoek namelijk een command om bijv. de [b:c14fab0ad5]a[/b:c14fab0ad5] te vervangen voor een [b:c14fab0ad5]4[/b:c14fab0ad5], een [b:c14fab0ad5]e[/b:c14fab0ad5] voor een [b:c14fab0ad5]3[/b:c14fab0ad5], etc.[/quote:c14fab0ad5]
    http://www.virtuaserver.dk/ewdnl/msnaddonz/leesartikel.php?nummer=7

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.