Ciao ragazzi sto cercando di eseguire un programmino che mi aggiunga del testo ad una porzione scritta su un'altra text, in pratica il testo viene aggiornato quindi con copia ed incolla ci sarebbero parti duplicate(cosa che non voglio che avvenga) avete consigli su come eseguire questo programmino es
text1
io ti guarderò
illuminata con il neon
delle vetrine
poi ti nutrirò di coca-
cola e di popcorn
------------------------------------
text2
io ti guarderò parte già esistente
illuminata con il neon parte già esistente
delle vetrine parte già esistente
poi ti nutrirò di coca- parte già esistente
cola e di popcorn parte già esistente
dentro ad un cine parte inesistente nella text1 riportarla
ti racconterò le mie parte inesistente nella text1 riportarla
'dovrà aggiungere solo
dentro ad un cine
ti racconterò le mie
c'è un alternativa al metodo instr dato che ho provato, e si verificano in alcuni testi instr = 0 quindi sballa tutto anche se il testo prelevato dalla text1 esiste nella text2 che viene aggiornata
mi scuso per essermi spiegato male abbiamo due text una dove faccio seleziona tutto copia ed incolla nella text2 e l'altra è dove dovrebbe apparire il testo senza ricopiare tutto filtrare la parte mancante e aggiungerla
il codice generato da me è
Private Sub Command1_Click()
conta = Len(Text1.Text)
contatot = Len(Text2.Text)
If Text1.Text = "" Then
Text1.Text = Text2.Text
Else
If conta > 20 Then
porzionetesto = Mid$(Text1.Text, (conta - 20), 20)
iniziocopia = InStr(1, Text2.Text, porzionetesto)
porzionetesto2 = Mid$(Text2.Text, iniziocopia + 20, (contatot - iniziocopia))
Text1.Text = Text1.Text & porzionetesto2
End If
End If
solo che come avevo scritto prima raramente si verifica che instr = 0 e copia parti sbagliate consigli? Migliorie ?
Ultima modifica effettuata da Aangelus il 22/05/2011 alle 20:20 |