Private Sub Form_Load()
Text1.Text = "0."
Text1.Enabled = False
Text1.Alignment = 2
End Sub
Private Sub Command1_Click(Index As Integer)
Text1 = Left(Text1, Len(Text1) - 1)
Text1 = Text1 & Index
Text1 = Text1 & "."
If Left(Text1, 1) <> "0" Then
Exit Sub
Else
Text1 = Right(Text1, Len(Text1) - 1)
End If
End Sub
설명:
Text1 = Left(Text1, Len(Text1) - 1)
두개의 함수가 들어 있습니다.
Left라는 함수와 Len이라는 함수
먼저 Len은 문자열의 길이를 구하는 함수입니다.
Len(Text1) => text1에 들어 있는 문자열의 길이를 반환해 줍니다.
Left(문자변수, 숫자변수) 문자변수에 있는 내용중
왼쪽에서 숫자변수의 값만큼을 선택해서 반환해 줍니다.
ex)
Data = "ABCDEF"
a = left(Data, 2)
a라는 문자변수에 Data의 값중 왼쪽에서 두개
즉 a라는 변수에 "AB"라는 데이타가 들어갑니다.
Len과 Left를 합쳐서 나온
Text1 = Left(Text1, Len(Text1) - 1) 은
Text1에서 text1의 길이-1만큼의 내용을 text1에 넣으라는것이되죠
즉 text1의 마지막글자를 제외한 나머지를 text1에 넣게됩니다.
약간의 횡설수설이 있네요..ㅎㅎ
참고하세요
p.s
right는 left와는 반대로 오른쪽에서부터 데이타를 가져옵니다.
카페 게시글
질문/답변
Re:text1=left(text1.len(text1)-1) 이뜻이 뭐예ㅒ요?
피닉스79
추천 0
조회 74
03.05.12 13:55
댓글 2
북마크
번역하기
공유하기
기능 더보기
다음검색
첫댓글 Text1 = Left(Text1, Len(Text1) - 1) <----text1은 변수로 쓰신건가요?음...저게 돌아갈까?;;제가 아는바랑 틀려서;;
Left(문자열, 길이) text1 문자열의 왼쪽에서부터 길이만큼 자르기입니다. 결국 Text1 = Left(Text1, Len(Text1) - 1) 은 text1 문자열의 마지막 문자 "." 를 제외한 문자열을 text1에 나타내라는 것입니다. 참고로 text1은 변수가 아니라 text1.text 과 같은 것입니다.