vb6.0 코드 vb.net으로 변환
볼수록매력
2023.04.01
Private Function EncodeString(str As String) As String Dim strLen As Long strLen = Len(str)
Dim i As Long, Buf(1) As Byte, Temp As String For i = 1 To strLen If Mid(str, i, 2) = \u Then Buf(0) = Val(&H & Mid(str, i + 4, 2)) Buf(1) = Val(&H & Mid(str, i + 2, 2)) Temp = Buf EncodeString = EncodeString & Temp i = i + 5 Else EncodeString = EncodeString & Mid(str, i, 1) End If Next i End Function
닷넷에서 이 함수를 이용하려하는데 빨간색 부분에서 Byte 의 1차원 배열입니다. 형식의 값을 String 로 변환할수없습니다라는 오류가나오는데 어떻게해야할가요..
-
발랄한그1녀
스트링으로 선언된 Temp에 배열인 Buf를 넣으니까 에러가나는것이니까
Temp를 배열로 선언하던가 Buf(0) 이런식으로 한개의 배열값을 넣어주거나... -
처녀자리
무슨함수지?