|
Ulepszona funkcja STR - uaktualnienie (Jelcyn) |
|
|
|
Napisał Administrator
|
|
wtorek, 24 styczeń 2006 |
|
Ulepszona
wersja Funkcji STR
Funkcja STR konwertuje cyfre na String. Niestety konwertując
np liczbę 5 otrzymujemy " 5" Czasami
ta spacja jest niewygodna, jak np chcemy utoworzyć plik o nazwie
XXX+liczba+".dat"
Mnie to denerwuje i dlatego napisałem funkcję STR2 która nie
zostawia na początku Spacji (z liczby 5 otrzymujemy "5")
Funkcja nie maże minusa przy liczbach ujemnych (liczby ujemne
przy funkcji STR nie mają na początku spacji) Oto ta funkcja :
Public Function STR2(X As Variant) As
String
' Ulepszona wersja funkcji STR
STR2 = Trim(X)
End Function
A oto przykład wykorzystania tej funkcji :
Dim A As Byte
For A = 1 To 3
MsgBox "PLIK" + STR2(A) + ".DAT"
' A to efekt instrukcji STR, usuń komentarz, aby zobaczyć różnice
' MsgBox "PLIK" + Str(A) + ".DAT"
Next A
Aby dodać komentarz zaloguj się. Jeśli nie masz konta, załóż je sobie. Tylko zarejestrowani użytkownicy mogą pisać komentarze. Powered by AkoComment 2.0! |