Telefonino.net network
 
| 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 » |

Torna indietro   WinTricks Forum > Software > Programmazione

Notices

Rispondi
 
Strumenti discussione
Vecchio 05-09-2004, 16.25.50   #1
radial85
Newbie
 
Registrato: 09-08-2004
Messaggi: 19
radial85 promette bene
"SOTTRAZIONI" TRA STRINGHE IN VB 6.0

E' possibile in Visual Basic 6.0 fare delle "sottrazioni" fra stringhe?
Forse con un esempio mi spiego meglio....

Stringa1=Ciao come va
Stringa2=va

Stringa1-Stringa2=Ciao come
radial85 non è collegato   Rispondi citando
Vecchio 05-09-2004, 16.31.09   #2
Dav82
Gold Member
Top Poster
 
Registrato: 18-07-2002
Messaggi: 6.399
Dav82 promette bene
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!
Dav82 non è collegato   Rispondi citando
Vecchio 05-09-2004, 18.04.51   #3
radial85
Newbie
 
Registrato: 09-08-2004
Messaggi: 19
radial85 promette bene
Già... ma come faccio a fare quello che hai detto??
radial85 non è collegato   Rispondi citando
Vecchio 05-09-2004, 18.14.26   #4
radial85
Newbie
 
Registrato: 09-08-2004
Messaggi: 19
radial85 promette bene
Forse ci sono, si dovrebbe riuscire con 2 vettori. L'unico problema è: come faccio a prendere il singolo carattere di una stringa?
radial85 non è collegato   Rispondi citando
Vecchio 05-09-2004, 18.27.44   #5
Dav82
Gold Member
Top Poster
 
Registrato: 18-07-2002
Messaggi: 6.399
Dav82 promette bene
Mi spiace non poterti aiutare, di VB non so proprio nulla, neppure queste cose di base sui tipi di dato
Dav82 non è collegato   Rispondi citando
Vecchio 05-09-2004, 18.54.09   #6
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne è un gioiello raroLoryOne è un gioiello raroLoryOne è un gioiello raro
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
LoryOne non è collegato   Rispondi citando
Vecchio 06-09-2004, 11.30.26   #7
radial85
Newbie
 
Registrato: 09-08-2004
Messaggi: 19
radial85 promette bene
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.
radial85 non è collegato   Rispondi citando
Vecchio 06-09-2004, 12.09.40   #8
LoryOne
Gold Member
WT Expert
 
Registrato: 09-01-2002
Loc.: None of your business
Messaggi: 5.505
LoryOne è un gioiello raroLoryOne è un gioiello raroLoryOne è un gioiello raro
Ooooooook vaaaaaaaaaaaaaaa bene ! (Y)
LoryOne non è collegato   Rispondi citando
Vecchio 07-09-2004, 11.38.09   #9
NS-1
Hero Member
 
L'avatar di NS-1
 
Registrato: 09-05-2002
Loc.: COMO
Messaggi: 1.135
NS-1 promette bene
ascolti per caso una radio di Milano?

ooooooooooK vaaaaaaaaaaaaaaaaaaBene...
___________________________________

...ad ogni alba sorgerà il tuo profumo
NS-1 non è collegato   Rispondi citando
Vecchio 24-09-2004, 12.58.14   #10
MrVortex
Senior Member
 
L'avatar di MrVortex
 
Registrato: 14-04-2004
Loc.: Sky Jerusalem
Messaggi: 232
MrVortex promette bene
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
MrVortex non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

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

Orario GMT +2. Ora sono le: 07.36.47.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.