VB Source
한글을 2byte 로 계산하기 위해 아래로 같은 변경하여 위치의 byte들을 가져온다.
1 2 3 4 5 6 7 8 |
Public Function Data_Cut(sDat, Start_len, last_len) As String Dim Tmp_Chk As String Tmp_Chk = StrConv(MidB(StrConv(sDat, vbFromUnicode), Start_len, last_len), vbUnicode) Data_Cut = Tmp_Chk End Function |
To C# Source
C# 으로 변경하면 다음과 같이 사용할수 있다.
ks_c_5601-1987 Encode 로 변경하면 한글은 2바이트로 인식한다.
1 2 3 4 5 6 7 8 9 10 |
static string getWordByByte(string sDat, int Start_len, int last_len) { System.Text.Encoding myEncoding = System.Text.Encoding.GetEncoding("ks_c_5601-1987"); byte[] buf = myEncoding.GetBytes(sDat); return myEncoding.GetString(buf, Start_len, last_len); } |