Newsgroup: it.comp.lang.visual-basic
Titolo: [?]Rendere maiuscola la prima lettera..

Come posso fare per rendere maiuscole tutte le prime lettere delle parole
contenute in una stringa??e ad eliminare un carettere tutte le volte che
compare ??
Per intenderci:
Voglio cancella re la lettera: a
Voglio rendere maiuscole le prime lettere;
Per es abbakjha iuaha uiaaaia g yaai agaiau g aeapa ap kaja--->
Bbkjh Iuh Uii G Yi Giu G Ep P Kj
Probabilmente è una stupidata, ma nn chiedetemi di guardare sull'HELP,
perche sul mio PC è già tando se gira VB!!(P100; HD1Gb)
Grazie
MaViMo
-- 
Posted from [62.10.88.74] by way of 
oe50.law12.hotmail.com
 [64.4.18.22] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 compare ??
se hai VB6, c'è la funzione replace.
ad es.
xx$=replace("ecchime!!!!", "e", "")
restituisce "cchim!!!!"
il primo argomento è la parola in cui cercare, il secondo è la stringa da
cercare, e il terzo è la stringa nuova, che, se è "" comporta l'eliminazione
della stringa cercata.
MarioH

 compare ??
replace(Stringa, <carattere>, "")
quindi, riassumendo
puoi richiamare il tutto cosi' :
Iniziale = "abbakjha iuaha uiaaaia g yaai agaiau g aeapa ap kaja"
Finale = PrimaMaiuscola(Replace(Iniziale, "a",""))
Ciao
Enrico

 wrote


 contenute in una stringa??
strMiaStringa = StrConv("ciao, come va?", vbProperCase)
Faber

 ha scritto


Vedi la funzione format e vbProperCase
BYE


 semplicemente non fa un beep.
eh, si... il fatto è che Format mi da' l'impressione di una funzione un
po' troppo complessa per fare solamente una conversione di quel tipo...
e poi non ha un nome benaugurante  :)
Faber

 ha scritto nel messaggio
news:9depmb$hvfjm$1...@ID-66268.news.dfncis.de...

Peccato che dopo aver eseguito
strMiaStringa = StrConv("ciao,come va?bene,e tu?", vbProperCase)
il valore sia
strMiaStringa = "Ciao,come Va?bene,e Tu?"
invece di
strMiaStringa = "Ciao,Come Va?Bene,E Tu?"
...
A questo proposito ecco che supplisce la mia funzioncina... :)))
'***********************************************************
'* Esempio: converte "mi piace il visual basic" in "Mi Piace Il Visual Basic"
'*
Public Function MaiuscolaInizialeAdOgniParola(s As String) As String
  Dim l As Integer
  Dim dest As String
  l = Len(s)
  If l > 0 Then
    Dim i, ascii  As Integer
    Dim ignora As Boolean
    ignora = True
    i = 1
    While (i <= l)
      ascii = Asc(Mid(s, i, 1))
      If IsSpace(ascii) Or IsPunctuation(ascii) Then
        ignora = True
        dest = dest & Chr(ascii)
      Else
        If ignora And IsLowerCase(ascii) Then
          dest = dest & Chr(ascii - 32)
        Else
          dest = dest & Chr(ascii)
        End If
        ignora = False
      End If
      i = i + 1
    Wend
    MaiuscolaInizialeAdOgniParola = dest
  Else
    MaiuscolaInizialeAdOgniParola = s
  End If
End Function

 strMiaStringa = "Ciao,Come Va?Bene,E Tu?"
si'. ed e' giusto, perche'in dattilografia le parole sono separate da
spazi. se ci badi, anche l'italia diventa L'italia, perche' anche
l'apostrofo non divide, all'inglese.
grazie cmq per la funzione.
ciao, a.


Grazie a tutti!!!!!
(anche per la comprensione!!)
*-O MaViMo *-O
-- 
Posted from [62.10.88.25] by way of 
oe8.law12.hotmail.com
 [64.4.18.112] 



maddai ?
manco la fatica di scrivere tutto quel codice!! :))
buona a sapersi!!

 buona a sapersi!!
si', ma guarda la correzione by faber.




Nella tua funzione mi sorge unn problema:
Quando arriva  a IsSpace si blocca dicendomi che non è una funzione valida,
X'?
Uso VB6
Grazie 1000
MaViMo
-- 
Posted from [62.10.87.214] by way of 
oe35.law12.hotmail.com
 [64.4.18.92] 


 ha scritto

OOOOOPPPPPPPSSSSSSSSSSS... Sorry... (ero convinto fossero funzioni di VB, invece le avevo
scritte io)
Private Const PUNCTUATION As String = ",.;:!?'-+%()=<>"
Public Function IsPunctuation(ascii As Integer) As Boolean
  IsPunctuation = InStr(PUNCTUATION, "" & Chr(ascii)) <> 0
End Function
Public Function IsSpace(ascii As Integer) As Boolean
  IsSpace = (ascii = vbKeySpace Or ascii = vbKeyReturn Or ascii = 10 Or ascii = vbKeyTab)
End Function
Public Function IsLowerCase(ascii As Integer) As Boolean
  IsLowerCase = (ascii >= 97 And ascii <= 122)
End Function