|
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. | NEI PREFERITI | .:: | RSS Forum | RSS News | NEWS web | NEWS software | |
| PUBBLICITA' | | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | | CERCA nel FORUM » | |
05-09-2004, 16.25.50 | #1 |
Newbie
Registrato: 09-08-2004
Messaggi: 19
|
"SOTTRAZIONI" TRA STRINGHE IN VB 6.0
Forse con un esempio mi spiego meglio.... Stringa1=Ciao come va Stringa2=va Stringa1-Stringa2=Ciao come |
05-09-2004, 16.31.09 | #2 |
Gold Member
Top Poster
Registrato: 18-07-2002
Messaggi: 6.399
|
Non conosco VB però posso darti qualche dritta che magari si rivela utile (o totalmente fuori strada )
Puoi cercare l'inizio della stringa da sottrarre nella stringa più grossa, e di questa più grossa prendi la parte prima dell'inizio e quella dopo l'inizio + la lunghezza della stringa da togliere. In sostanza: "Ciao come va oggi amico?" "va" si trova al carattere 10, per cui prendi i caratteri fino al 9 e poi dal (9+2) = 11. Ripeti questo fino a che non trovi più occorrenze di "va" nella stringa. Attento a come cerchi il "va" perchè magari c'è la parola "valigia" e tu la mutili senza pietà! In questo caso direi di cercare " va ", con spazio prima e dopo.... ma c'è anche la punteggiature " va," e così via... magari una bella regular expression aiuta! O magari aiuta di più qualcuno che conosce VB! |
05-09-2004, 18.04.51 | #3 |
Newbie
Registrato: 09-08-2004
Messaggi: 19
|
Già... ma come faccio a fare quello che hai detto??
|
05-09-2004, 18.14.26 | #4 |
Newbie
Registrato: 09-08-2004
Messaggi: 19
|
Forse ci sono, si dovrebbe riuscire con 2 vettori. L'unico problema è: come faccio a prendere il singolo carattere di una stringa?
|
05-09-2004, 18.27.44 | #5 |
Gold Member
Top Poster
Registrato: 18-07-2002
Messaggi: 6.399
|
Mi spiace non poterti aiutare, di VB non so proprio nulla, neppure queste cose di base sui tipi di dato
|
05-09-2004, 18.54.09 | #6 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Credo che in Vb6 ci sia l'istruzione remove$.
Credo si possa fare anche con split. Ad ogni modo: Codice:
Public Function Func_RimuoviStringa(ByVal S As String, ByRef S1 As String) As String 'Rimuove da una stringa un suo segmento. 'S Contiene la stringa di ricerca. 'S1 Contiene la stringa di rimozione. Dim Ty As Long, Yt As Long Ty = Len(S1) If Ty Then Yt = InStr(S, S1) While Yt S = IIf(Yt = 1, Mid$(S, Ty + 1), Left$(S, Yt - 1) & Mid$(S, Ty + Yt)) Yt = InStr(S, S1) Wend End If: Func_RimuoviStringa = S End Function Ultima modifica di LoryOne : 05-09-2004 alle ore 19.19.32 |
06-09-2004, 11.30.26 | #7 |
Newbie
Registrato: 09-08-2004
Messaggi: 19
|
Grazie dell'aiuto. Siccome la parte che dovevo sottrarre era sempre e comunque la parte finale della stringa ci sono riuscito così:
StringaIntera = "Ciao come va" ParteDaSottrarre = " va" LungIntera = Len(StringaIntera) LungSottrarre = Len(ParteDaSottrarre) LunghezzaRisultato = LungIntera - LungSottrarre Risultato = Left(StringaIntera, LunghezzaRisultato) Left preleva i caratteri di una stringa partendo da sx. |
06-09-2004, 12.09.40 | #8 |
Gold Member
WT Expert
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
|
Ooooooook vaaaaaaaaaaaaaaa bene ! (Y)
|
07-09-2004, 11.38.09 | #9 |
Hero Member
Registrato: 09-05-2002
Loc.: COMO
Messaggi: 1.135
|
ascolti per caso una radio di Milano?
ooooooooooK vaaaaaaaaaaaaaaaaaaBene...
___________________________________
...ad ogni alba sorgerà il tuo profumo |
24-09-2004, 12.58.14 | #10 |
Senior Member
Registrato: 14-04-2004
Loc.: Sky Jerusalem
Messaggi: 232
|
Da profano ma non era più semplice scrivere:
k=instr(dovecercare$,cosacercare$) if k>0 and len(dovecercare$)-len(cosacercare$)<>k then stringatronca=mid$(dovecercare$,1,k-1)+mid$(dovecercare$,k,len(dovecercare$)-k) elseif k>0 and len(dovecercare$)-len(cosacercare$)<>k stringatronca=left$(dovecercare$,len(dovecercare$)-k) endif nel primo caso: "sto andando a pescare" "pes" risultato "sto andando a care" nel secondo caso:"sto andando a pescare" "pescare" risulato "sto andando a " credo che ci siano errori non l'ho provato l'ho fatto a memoria e non posso accertarmene subito perchè ho da fare una presentazione powerpoint per un seminario da presentare per lunedì ed ho tempo solo per le 13:45 di oggi. Pace a voi. P.S. "Comunque l'istruzione di ricerca è INSTR"
___________________________________
Apocalisse 3:20 Ecco, io sto alla porta e picchio: se uno ode la mia voce ed apre la porta, io entrerò da lui e cenerò con lui ed egli meco. http://www.pacetv.it - http://www.coopsela.it |
Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti) | |
Strumenti discussione | |
|
|
Discussioni simili | ||||
Discussione | Autore discussione | Forum | Risposte | Ultimo messaggio |
[VB] Proprietà .hide e .show in VB .net | RunDLL | Programmazione | 1 | 04-05-2006 23.10.34 |
Stringhe sql. | Fast-M | Programmazione | 0 | 05-05-2005 11.08.18 |
Stringa sql e VB?! | Fast-M | Programmazione | 16 | 24-10-2004 17.32.11 |
Sql e VB. | Fast-M | Programmazione | 1 | 20-10-2004 08.28.58 |
Outlook Express e VB | edir | Programmazione | 3 | 28-07-2004 22.44.14 |