Newsgroup: it.comp.lang.visual-basic
Titolo: estrai prima lettera da una stringa

Ciao,
sono una "alle prime armi" in Vb. Sto realizzando un piccolo
progetto, e devo estrarre/leggere da una stringa la prima
lettera/carattere, solo che non ricordo più la funzione corrispondente a
questo tipo di operazione.
Potete rinfrescarmi la memoria, please.
Grazie
a tutti,
Laura.
--------------------------------
Inviato via 
http://usenet.iol.it

 wrote in message
213Z82Z52Z179Y...@usenet.iol.it...


Grazie mille.
Il mio era un super vuoto di memoria, anche perchè è da poco
che utilizzo Vb e le funzioni non sono poche...pian pianino spero di
impararlo anch'io, perchè la ritengo una materia bella ed interessante che
mi coinvolge ogni giorno che passa!!!
Ciao,Laura.



Ma il terzo parametro non è il numero di caratteri da estrarre?
--
Emiliano Coimbra
------NO SPAM----------
togli 123 dall'indirizzo per rispondere
coimbraem...@katamail.com

 > lettera/carattere, solo che non ricordo piů la funzione


 ha scritto nel messaggio
news:213Z82Z52Z179Y...@usenet.iol.it...


Potete rinfrescarmi la memoria, please.
Consiglio a tutti:
Le funzioni stringa terminano con $ (Mid$, Left$, Right$, Trim$ AndSoOn$),
quelle normali lavorano/restituiscono variant, con tutte le complicazioni
del caso.
Ciao

 del caso.
ehila', le z lombarde ! :)
mi obbligate a togliermi la curiosita' - pero' qualche timing potreste
darlo voi, sgrunt !
per far prima ho ripreso l'exe esemplificativo di ieri sera. il cmdWrite
scrive un file di 10k righe abc bca cab ecc.
il read prova a recuperare la prima lettera dall'array (dich as string)
caricato col file e a scriverla in un secondo file.
ciao, a.
Private Sub cmdreadFile_Click()
    Dim time1: time1 = Timer
    Text1 = Text1 & vbCrLf & "-------------------"
    Text1 = Text1 & vbCrLf & Format(Timer - time1, "##0.00") & " -
reading..."
    DoEvents
    Dim j As Integer
    Dim fNum As Integer, fName As String, fName2 As String
    fName = App.Path & "\test10k.txt"
    fNum = FreeFile
    Open fName For Input As #fNum
    While Not EOF(fNum)
        Line Input #fNum, aFile(j)
        j = j + 1
    Wend
    Close #fNum
    fName = App.Path & "\test10k_left.txt"
    fNum = FreeFile
    Open fName For Output As #fNum
    time1 = Timer
    For j = 0 To 9999
        Print #fNum, Left(aFile(j), 1)
    Next
    Close #fNum
    Text1 = Text1 & vbCrLf & Format(Timer - time1, "##0.000") & " -
complete: left()"
    DoEvents
    fName = App.Path & "\test10k_left$.txt"
    fNum = FreeFile
    Open fName For Output As #fNum
    time1 = Timer
    For j = 0 To 9999
        Print #fNum, Left$(aFile(j), 1)
    Next
    Close #fNum
    Text1 = Text1 & vbCrLf & Format(Timer - time1, "##0.000") & " -
complete: left$()"
    Text1.SelStart = Len(Text1)
    DoEvents
End Sub
-------------------
0,13 - created C:\vbprove\text\string_funcs\test10k.txt
-------------------
0,00 - reading...
0,070 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()
-------------------
0,01 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,061 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,060 - complete: left$()
-------------------
0,01 - reading...
0,060 - complete: left()
0,060 - complete: left$()
-------------------
0,01 - reading...
0,060 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()
-------------------
0,01 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,01 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,070 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,061 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()
-------------------
0,01 - reading...
0,061 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,070 - complete: left$()
-------------------
0,01 - reading...
0,060 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,051 - complete: left()
0,060 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,060 - complete: left()
0,050 - complete: left$()
-------------------
0,00 - reading...
0,050 - complete: left()
0,050 - complete: left$()


### inizio Form1.frm ###
' 4 command e 4 label (sempre piu' difficile :-)
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Const LENCOUNT = 1000000
Dim s As String
Dim i As Long
Private Sub Command1_Click()
    Dim StartTime As Long
    Dim result As String
    StartTime = GetTickCount
    For i = 1 To LENCOUNT
        result = Left$(s, 1)
    Next
    Label1.Caption = GetTickCount - StartTime
End Sub
Private Sub Command2_Click()
    Dim StartTime As Long
    Dim result As String
    StartTime = GetTickCount
    For i = 1 To LENCOUNT
        result = Left(s, 1)
    Next
    Label2.Caption = GetTickCount - StartTime
End Sub
Private Sub Command3_Click()
    Dim StartTime As Long
    Dim result As String
    StartTime = GetTickCount
    For i = 1 To LENCOUNT
        result = Right$(s, 1)
    Next
    Label3.Caption = GetTickCount - StartTime
End Sub
Private Sub Command4_Click()
    Dim StartTime As Long
    Dim result As String
    StartTime = GetTickCount
    For i = 1 To LENCOUNT
        result = Right(s, 1)
    Next
    Label4.Caption = GetTickCount - StartTime
End Sub
Private Sub Form_Load()
    s = "ABCDEFGHIJ"


 &ŁT%#@ patch di OE5?!?!
http://vene.dave.it/mail/intro.asp
ma, ripeto, ti conviene oe55.
lo danno gratis con ie55 :)
scherzi a parte, crolla un po' meno spesso.
un po'.
ciao, a.

 con tutti le singole parti migliori).
vero. in pratica... vero ma quasi inutilizzabile. ho messo appunto la
matrice _e_ il file perche' con vb mettersi a fare solo operazioni per
la tempistica e' suicida. lavorare un po' in ram e un po' in disco (e
tutto sommato fregarsene un po' dei tempi, se il dislivello non e'
abissale) e', credo, assolutamente tipico di vb -- della filosofia, di
vb, intendo. e guadagnare 300 us quando una query ti fa perdere 30"--
boh.
detto questo, e' ovvio che tu e zanna siete nel giusto e corretto. non
volevo certo mettere in discussione l'enunciato.
ma credo che continuero', salvo casi _molto_ particolari, a evitare il
dollaro. ancora ancora fosse stato len?() ... sssh, che non se ne
accorgano in ms, seno' localizzano le funzioni...
btw: i doevents avrai notato che non potevano influire li'. e i
risultati sono abbastanza stabili da dimostrarlo.
se in questa padella padana trovo un po' d'ossigeno, provo i tuoi
codici. poi al meeting te li porto su carta che me li autografi con
dedica :)
ciao, a.

 ciao, a.
Mitin'?
Quale mitin'?
Mi sono perso qualche puntata?
C'e' un meeting a cui partecipa pure Roal?
Ciaotutti,
Asterix

 C'e' un meeting a cui partecipa pure Roal?
al momento, com'e' ovvio, virtuale.
ma non disperiamo.
possiamo puntare su
meeting.net