Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Text1, List1Box
Forum - Visual Basic 6 - Text1, List1Box

Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
ciao a tutti, se ho un List1 e un Text1

dove, nel Text1 scrivo "ciao"

aggiungo quello che ho scritto nel List1

List1.AddItem "ciao"

se voglio memorizzare la scritta "ciao" in un File di testo, so come, affinché si memorizzi.

Ma se io voglio cancellare il "ciao" dal file di testo o voglio cancellare, solo "o" e far rimanare "cia" ? Come faccio?

PM Quote
Avatar
Matteus (Ex-Member)
Newbie


Messaggi: 10
Iscritto: 05/04/2007

Segnala al moderatore
Postato alle 19:42
Mercoledì, 16/05/2007
Devi scrivere questa "formula":
List1.RemoveItem (ciao)

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 2:07
Domenica, 20/05/2007
mi spiego meglio.

sto creando un progettino, avente un text, un combo e un list

quando nel text, vado a scrivere qualsiasi termine, lui lo memorizza nel "file.txt" che si trova nella cartella della mia applicazione

se io, ho appena salvato, "ciao", "come stai", "da dove vieni"

sempre aggiungendo

List1.AddItem text1 ' che é quello che io scrivo, ogni volta

come faccio a cancellare il "ciao", "come stai" e altro?

e inoltre, se voglio cancellare, solo una parola di un testo?

"ciao", solo "o" ?

ok?

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 9:37
Domenica, 20/05/2007
vediamo se ho capito bene io...

Dim cartella As String, documento As String, FileNumber As Integer

cartella = "percorso della cartella dove creare il file di testo" (es. "D:\pippero")
documento = "percorso della medesima cartella + il nome che volete dare al file" (es. "D:\pippero\pippu.txt")
FileNumber = FreeFile ' restituisce un numero identificativo per il file da aprire

Open documento For Output As #FileNumber ' Crea un nome di file e se già esiste lo sovrascrive

testo = Text1.text 'assegna alla variabile il contenuto della textbox che contiene il testo

Print #FileNumber, testo ' Scrive il testo nel file

Close #FileNumber ' Chiude il file.


in questo modo lui ti salva un file.txt il cui contenuto è dato da ciò che scrivi nel text1.text

se per esempio scrivi "fracchio" lui ti salva un file di testo con dentro scritto fracchio, e se vuoi scrivere solo fracc cancellio hio e ripremi il commandbutton


pero mi sa di non avere azzeccato la tua richiesta...8-|

PM Quote
Avatar
albertking82 (Member)
Pro


Messaggi: 112
Iscritto: 14/08/2006

Segnala al moderatore
Postato alle 22:24
Lunedì, 21/05/2007
Effettui una lettura del file di testo!
Poi controlli riga per riga le stringa e poi grazie alla funzione mid(nomestringa,inizio,numchar) puo estrarre la stringa desiderata e scriverla in un nuovo file oppure utilizza la modalità output sul file in questione.

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 22:32
Lunedì, 21/05/2007
potresti farmi un esempio.

ad esempio:

nel text1 gli scrivo: "ciao"

quindi

List1.AddItem text1

memorizzo nel file "file1.txt" ciò che ho scritto nel List1

poi, se voglio cancellare

"ciao" come faccio?

e se voglio cancellare solo "o" etc..

grazie

PM Quote
Avatar
motoboy (Ex-Member)
Pro


Messaggi: 152
Iscritto: 05/04/2007

Segnala al moderatore
Postato alle 20:08
Martedì, 22/05/2007
credo di aver capito cosa vorresti e cosa intendi.
Ti spiego tutto ;)

hai una maschera formata da text, List

al text = "ciao"
vorresti aggiungerlo

List1.AddItem text1.text

prova così!


se poi vuoi salvare tutti gli elementi

PercorsoFileDiTesto = App.Path & "\" & "file.txt"
Open PercorsoFileDiTesto For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Close #1

fin qui credo che non sia molto difficile vero?

se vuoi cancellare l'elemento indice situato nella List

List1.RemoveItem 0

0 corrisponde all'indice

per caricare il file ovviamente un File.txt..

devi

Dim oggetto As String
Open App.Path & "\" & "file.txt" For Input As #1
Do Until EOF(1)
List1.AddItem oggetto
Loop
Close #1

spero fin qui di essere stato molto chiaro.

per cancellare tutta la lista

List1.clear

direi che non c'é altro.

Fammi sapere ;)

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 19:46
Giovedì, 24/05/2007
sii. Grazie.
SEI UN GRANDE MOTOBOY. PERFETTO
Grazie Ancora.
:k::k::k::D:D

PM Quote