Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare spazi bianchi in una stringa

Qualcuno sa se esiste una funzione che consente di eliminare gli spazi
bianchi all'interno di una stringa??? ho trovato la trim ma elimina quelli
all'inizio e alla fine, ma nn in mezzo
Come fare??
Grazie
Yuri
--------------------------------
Inviato via 
http://usenet.libero.it

 Come fare??
Tu vorresti qualcosa per sotituire gli spazi con una stringa vuota, giusto?
Proviamo con l'inglese: Replace?
Quindi:
Stringa_Pulita=Replace$(Stringa_Originale," ",vbnullstring)
Ciao
Alberto


Replace$ ???? Su vb5 questa funzione non esiste nemmeno!!
Attendo delucidazioni


 Attendo delucidazioni
Se ti spieghi sempre così bene, puoi restare in attesa finchè vuoi...
Ciao
Alberto


altre? se vb5 non ha la replace, *implementati* una funzione che
si comporta allo stesso modo, oppure se vuoi farti del male usa le
regular expression sempre che pui aggiungere il riferimento
a Microsoft VbScript Regular Expression,
comuqnue se ti implementi una funzione di replace tua risolvi
il problema
--
bye BlackMagic
ICQ# 85485468

 ha scritto nel messaggio
news:E8Npa.62492$iy5.1...@twister2.libero.it...


 il problema
Ok Grazie mille!!


     TogliSpazi = StrOUT

 il problema
  Tiè te la fornisco io una VERSIONE RIDOTTA della replace:
'@==================================================================================
'@
'@$Descrizione:
'@
'@ Funzione di sostituzione di tutte le occorrenze di una
'@ sottostringa in una stringa.
'@
'@ $Parametri:
'@ vsSourceString = Stringa sorgente
'@ vsSubString = Sottostringa da sostituire
'@ vsNewSubString = Nuova sttostringa
'@
'@ $Valore restituito:
'@ stringa = Stringa con substringa sostituita
'@ stringa sorgente = Se non è stata trovata nessuna occorrenza della
sottostringa
'@
'@ $Data di creazione : Hai tempi del VB4 !!!
'@
'@===============================================================================
Public Function Replace(ByVal vsSourceString As String, _
                        ByVal vsSubString As String, _
                        ByVal vsNewSubString As String) As String
Dim nSymbPos As Long
Dim nStartPos As Long, nEndPos As Long
Dim sRETc As String
 
If vsSourceString = vbNullString Then
   Replace = vsSourceString
Else
   nSymbPos = 1
   nStartPos = 1
   Do While nSymbPos > 0
 
      nSymbPos = InStr(nStartPos, vsSourceString, vsSubString)
      nEndPos = nSymbPos - nStartPos
      If nSymbPos = 0 Then nEndPos = Len(vsSourceString) - nStartPos + 1
 
      sRETc = sRETc + Mid$(vsSourceString, nStartPos, nEndPos) + vsNewSubString
      nStartPos = nSymbPos + Len(vsSubString)
   Loop
   Replace = Left$(sRETc, Len(sRETc) - Len(vsNewSubString))
End If
End Function
 A quei tempi ero ancora indeciso sulla Naming Convention da adottare!!!
 Naturalmente è una versione 0.0 :-) puoi ottimizzarla ed implementarla ( se
necessario correggerla ! ) a tuo piacimento.
 Ciao



[CUT]
se fai cosě gli semplifichi troppo la vita :-))
indicagli la strada,
ma la soluzione dovrebbe implementarsela da solo, altrimenti va a finire
che al prossimo che arriva gli scrivi anche la funzione che per convertire
i caratteri da minuscolo a maiuscolo
natulamente imho e senza polemiche :-))


 natulamente imho e senza polemiche :-))
  Ma naturalmente!!!!
Ciaoooo


 '@ $Data di creazione : Hai tempi del VB4 !!!
Povera lingua depredata delle vocali e delle q... o abbondata delle h dove
non servono! ;-)

 ha
scritto:

  LoL tanto è un commento non da errore di sintassi ehehehehehehhehe, cmq devo
iniziare a preoccuparmi perchè mi comincia capitare di frequente...


 frequente...
aHiaHiaHiaHi allora... guai se scappa nei msgbox o nelle descrizioni una
roba cosě! ;-)

 roba così! ;-)
  Già, tocca che inizio a "passare" per Word prima di postare qualcosa o di
scrivere programmi ! heeheh


 scrivere programmi ! heeheh
...che inizi...

 ...che inizi...
  Appunto...
