login register Sysop! about ME  

2019년 04월 26일 18시 01분 00초,     조회수 : 205
  제목 : bytesArray2string
SEQ : 164159 글쓴이 : mani

작성 포맷 : TEXT 모드, 자동 줄바꿈 사용

이리저리 삽질만 하다가.. 조언좀 얻으러 왔습니다.

string 문자열을 byte array 로 변환 처리는 했는데.. 역으로 byte array를 string 으로 

변환이 어렵네요.. ;;

조언좀 부탁 드립니다.

아래는 string 을 byte array 로 변경하는 함수 입니다.

	   Public Function StringToBytes(ByVal txt, ByVal Charset)
	   	   Dim R
	   	   Dim tempBytes
	   	   Dim binarysArray	   : binarysArray = StringToBinary(txt, Charset)
 
	   	   ReDim tempBytes(LenB(binarysArray)-1)
	   	   For R = 1 To LenB(binarysArray)
	   	   	   tempBytes(R-1) = AscB(MidB(binarysArray, R, 1))
	   	   Next 
	   	   StringToBytes = tempBytes
	   End Function 

	   Public Function StringToBinary(ByVal txt, ByVal Charset)
	   	   Const adTypeBinary = 1
	   	   Const adTypeText = 2

	   	   Dim oStream : Set oStream = CreateObject("ADODB.Stream")
	   	   
	   	   With oStream
	   	   	   .Charset	   = Charset
	   	   	   .Type	   	   = adTypeText
	   	   	   .Open
	   	   	   .WriteText txt
	   	   	   .Flush
	   	   	   .Position	   = 0
	   	   	   .Type	   	   = adTypeBinary
	   	   	   If LCase(Charset) = "utf-8" Then 
	   	   	   .Position	   = 3
	   	   	   End If 
	   	   	   StringToBinary	   = .Read
	   	   	   .Close
	   	   End With
 
	   	   Set oStream = Nothing 
	   End Function



제목 작성자 날짜 조회
bytesArray2string mani 2019-04-26 205

 
 
.NET과 Java 동영상 기반의 교육사이트

로딩 중입니다...

서버 프레임워크 지원 : NeoDEEX
based on ASP.NET 3.5
Creative Commons License
{5}
{2} 읽음   :{3} ({4})