[RISOLTO] Chatterbot ALICE

[Will32]

Ciao.

Ho scritto questo :

Codice: [Seleziona]

  DIM utente AS String
  DIM alice AS String
  DIM hfile AS File
  
  utente = TextBox1.text
  
  hfile = OPEN User.Home &/ "Memoria.txt" FOR CREATE 
  
  IF utente = "ciao" THEN 
  TextBox2.text = "Ciao anche a te !"
  alice = TextBox2.Text
  hfile.Save(User.Home &/ "Memoria.txt", utente & "  " & alice)
  END IF 

In pratica, se l'utente scrive ciao nella textbox1, nella textbox2 il programma scrive Ciao anche a te e salva le due stringhe in un file di testo.

Ecco il problema => se io, la prossima volta che apro il programma e scrivo ciao, esso va a cercare nel file la risposta di ciao ( che è Ciao anche a te ) e non me la scrive più sul file.
Così si crea una specie di dizionario di frasi.

Un aiutino, grazie !  

[Ceskho]

In pratica vuoi che il programma cerchi nel file la prima parola e come risposta dia la seconda?

[Mi risulta sempre pi difficile capirti.... ]

[Will32]

Ti faccio un esempio :


>> io scrivo ciao ed il programma, nel file, scrive una risposta per ciao
>> scrivo sono will32 e il programma scrive, nel file , una risposta per sono will32
>> chiudo il programma
<< lo riapro
<< scrivo ancora  ciao e, il programma, va a vedere nel file la risposta a ciao e la scrive nella textbox2
<< scrivo ancora sono will32 e, il programma, va a cercare la rispaosta a sono will32 e la scrive nella textbox2

Capito ? 

Così, si forma un dizionario di frasi con domanda e risposta !

[Ceskho]

Capito ? 

No. Se il programma fa questa cosa la prima volta può farla benissimo sempre....cioè se crea una risposta a ciao, lo farà in qualche modo e quel modo lo può usare sempre. Non capisco la cosa di salvare in un file.

[Picavbg]

A proposito, ciao.
Vediamo se ho capito:
Tu vorresti fornire la risposta attraverso il tuo dizionario memorizzato in un file. Il file però non esiste; lo vai creando mana mano che che da utente fornisci per la prima volta la risposta ad una parola che hai scritto prima.
Cioè:
scrivi "ciao" in TexBox1.text   »» il programma cerca nel file e non trova il termine
--> in questo caso ti dovrebbe fornire una ripsosta del tipo " termine non trovato - inserisci risposta da memorizzare"
scrivi allora in TextBox2.Text  »» "Ciao anche a te"
---> il programma rileva la risposta e la conserva nel file

poi scrivi di nuovo: "ciao" in TexBox1.text   »» il programma cerca nel file e questa volta la trova
---> n questo caso ti fornisce la ripsosta:  "Ciao anche a te"
e così via di seguito.

Ho capito bene?
Ciao

[Will32]

Esatto Picavbg ! 

Ceskho, mi deludi un po' ! 

[Will32]

Se riesco a risolvere il  problema, lascio i sorgenti in Progetti in cerca d'aiuto, così mi date una mano a scrivere il dizionario ! 

Però prima, mi aiutate con il codice !
Grazie, ciao .

P.S

Sono ben accette numerosi aiuti ! 

[Ceskho]

Secondo me questo sistema è sbagliato....io opterei per due software distinti: uno che crea il dizionario ed uno che funge da chat...

Il primo verrebbe corredato già di un dizionario pieno, all'utente spetta solo il compito di aggiungere e personalizzare...

[Will32]

Si puo fare così, ma come ??  

Il problema è sul software che funge da chat.
Per l'altro, non dovrei avere problemi !

[fsurfing]

@will32

ti sei scordato di mettere il link al tuo sito nella firma

[Ceskho]

Si puo fare così, ma come ??  

Il problema è sul software che funge da chat.
Per l'altro, non dovrei avere problemi !

Il primo software è semplicemente un form di editor del testo più o meno...hai due textbox, una che salva la frase dell'utente e l'altra che salva la risposta

Il form della chat deve semplicemente cercare nel file il testo che viene scritto e restituire la risposta.

[Will32]

Proverò e vi farò sapere !
 

P.S

L'ho fatto apposta a non mettere il link, penso che stia meglio.
Comunque @electro, se lo vuoi vedere è questo il link : sites.google.com/site/alinachatterbot
Ciao 

[fsurfing]

ma quindi un chatterbot lo hai già realizzato o sbaglio?

se si ti basta fare un porting del codice

[Will32]

Sì, ne ho gia fatto uno ma ..., quando ero agli inizi.
E' un codice banale e totalmente diverso !!
 

[Will32]

Ecco il codice per il primo programma ( editor di domanda e risposta ) :

Codice: [Seleziona]

  DIM memoria AS File
  DIM domanda AS String
  DIM risposta AS String
  
  risposta = TextBox1.Text
  domanda = TextBox2.Text
  
  memoria = OPEN User.home &/ "Memoria.txt" FOR CREATE 
  memoria.Save(User.home &/ "Memoria.txt", domanda & " " & risposta)

Ecco l'esempio di cosa scrive sul file :

Codice: [Seleziona]

ciao Ciao anche a te !

Adesso, devo fare in modo che , se nel programma della chat scrivo ciao, esso va a cercare la stringa ciao e trova la risposta .
Non so che codice posso usare !
Aiutino