수다닷컴

아래 빨간부분 과같이 질문에 대한 해답을 얻었습니다.다음 단계는 제가 해보려고 했는데쉽지가 않더군요.이어서 질문은아래와 같이 16진수를 아스키 문자형으로 변환은 성공 하였습니다.예를 들어 아스키 문자가ABCDEFGHIJ라고 출력 됩니다.이 출력되는 순서를 다시 지정하고 싶습니다.ABCDEFGHIJ라는 출력이 텍스트박스에 나오면이것을 DCBAKGFEJI로 지정 하고 싶군요다시 숫자로 예를 들면 텍스트박스에1234567891 이라는숫자가 있으면 배열 위치 재지정을 해서 4321876519 출력하는 방법을 부탁드립니다.
Dim str1 As String, str2 As String
Dim i As Integer

Text1(0).Text = 3030303030303030
str1 = Text1(0).Text

For i = 1 To Len(Text1(0).Text) Step 2
str2 = str2 + Chr(Val(&H & Mid(Text1(0).Text, i, 2)))
Next i
Text1(0).Text = ABCDEFGHIJ 이렇게 출력 되는 것을또는 Text1(0).Text = 1234567891 이렇게 출력 되는 것을아래와 같이 출력 배열을 수정 하고 싶습니다.출력에서 Text1(0).Text = DCBAKGFEJI또는 아래와 같이 출력 배열을 수정 하고 싶습니다.출력에서 Text1(0).Text = 4321876519고수님 부탁드립니다.

신청하기