sinstassi di VB5

[allejo]

Vorrei sapere se in VB5 esiste queste funzioni
Mid,Instr,Left,Right???????

Grazie

[Toeke]

Mid(string, start[, length])

[code]
Dim MyString, InizioWord , FineWord , CentroWords
MyString = "Mid Function Demo" ' stringa di esempio
InizioWord = Mid(MyString, 1, 3) ' Ritorna "Mid".
FineWord = Mid(MyString, 14, 4) ' Ritorna "Demo".
CentroWords = Mid(MyString, 5) ' Ritorna "Function Demo".
[code]

Toeke

[Toeke]

Left(string, length)

Dim AnyString, MyString 
AnyString = "Hello World"   
MyString = Left(AnyString, 1)   ' Ritorna "H".
MyString = Left(AnyString, 7)   ' Ritorna "Hello W".
MyString = Left(AnyString, 20)   ' Ritorna "Hello World".

Toeke

[Toeke]

Right(string, length)

Dim AnyString, MyString 
AnyString = "Hello World"  
MyString = Right(AnyString, 1)   ' Ritorna "d".
MyString = Right(AnyString, 6)   ' Ritorna " World".
MyString = Right(AnyString, 20)   ' Ritorna "Hello World".

Toeke

[Toeke]

InStr([start, ]string1, string2[, compare])

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"   

SearchChar = "P"   ' Search for "P".
' A textual comparison starting at position 4. Returns 6.
MyPos = Instr(4, SearchString, SearchChar, 1)   
' A binary comparison starting at position 1. Returns 9.
MyPos = Instr(1, SearchString, SearchChar, 0)
' Comparison is binary by default (last argument is omitted).
MyPos = Instr(SearchString, SearchChar)   ' Ritorna 9.
MyPos = Instr(1, SearchString, "W")   ' Returns 0

Toeke

[Mabi]

Si, esistono tutte.
Quelle che mancano sono ad esempio la StrReverse o la Replace.

Ciao

[Toeke]

StrReverse(string1)

Dim MyStr
MyStr = StrReverse("VBScript") 'MyStr contains "tpircSBV".

[Toeke]

Originariamente inviato da Mabi
Si, esistono tutte.
Quelle che mancano sono ad esempio la StrReverse o la Replace.

Ciao

a me risulta ci siano

Replace(expression, find, replacewith[, start[, count[, compare]]])

[Mabi]

A me invece, risulta non esistano in VB5.