TODAYSPPC 모바일

일본어 사이트 클리핑 문제입니다. (프로그램적인)
글쓴이:Nemesys

, Hit : 550

안녕하세요.
이번에 클리핑 사이트(일반적인 사이트에서 필요없는부분은 추려 pda에서 보기 좋게 만든 사이트)를 만들려고 하는데요.

대강의 방법을 말씀드리면
xmlhttp로 사이트 내용을 불러서 정규식으로 처리후 이를 다시 html로 만들어 로딩을 빠르게 하는거죠.

위와 같은 방법으로 영문 및 한글은 문제 없이 완성했습니다.
그런데 일본어가 발목을 잡네요.

일본어 같은 경우는 중간에 특히 카타카나가 물음표(?)로 깨져버립니다.
예를 들면 아래와 같이요

「この上なくいい人」阪?の井川慶投手とは。(17:49)
au向け三洋製?末「A5405SA」、中身の秘密。(17:11)
コカコ?ラの新製品。アメリカよりも2週間早く日?で先行販?。(12:05)
5月9日「アイスクリ??の日」に多?のイベント開催。(10:08)
今日のなりスケ?4月21日。(08:27)
「東京ウォ?カ?」の隔週??がス??ト。(07:18)
【豆腐グルメ】アイスクリ??、ユ?スクリ??♪???像アリ?。(03:29)
鈴木?美が復活、4月22日にシングル??へ。(17:47)

위의 문제를 해결하기 위해
데브피아, 구글뉴스그룹, 일본asp사이트 등등을 돌아다녀봤는데 마땅한 해결방법이 없더라구요.

하나의 해결방법이
xmlhttp를 이용 바이너리로 내용을 불러 스트림객체로 바로 바이러니로 html로 는 작성가능한데
문제는 html내용을 수정해 줘야하거든요.
해서 아스키 로 변경하면 일본어는 여지 없이 위와 같은 부분이 깨집니다.

깨지지 않은 html파일을 fso로 불러오면 이 역시 위와같이 되고요.

해서 부탁드리겠습니다.
위와 같은 문제점을 해결하는 방법이 없을까요?
데브피아 여러분들 제발 부탁드립니다~

현재 서버상태
Windows2000 Server, 일본어 IME 설치 완료.

참고

아래는 바이너리를 아스키로 변경하는 사용자함수입니다.
그런데 이를 이용해도 역시 일본어 문제는 해결불가능해서 제가 중간에 아예 코드에 따라서 다른 일본어 코드(깨지지않고 뜻은같은)로 변경하는 부분을 넣었습니다. 이 역시 크나큰 성능의 저하 때문에 사용이 불가능하고 완벽하지도 않아서 접어두었습니다.

Public Function BinDecode(byVal binData)
  Dim i, byteChr, strV
  For i = 1 to LenB(binData)
   byteChr = AscB(MidB(binData,i,2))
   If byteChr > 127 Then
    i = i + 1
    Select Case '&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2)))
        Case '&HA5AD'
            strV = strV & Chr('&H834C')
        Case '&HA5AF'
            strV = strV & Chr('&H834E')
        Case '&HA5D9'
            strV = strV & Chr('&H8378')
        Case '&HA5DA'
            strV = strV & Chr('&H8379')
        Case '&HA5DD'
            strV = strV & Chr('&H837A')&Chr('&HA1EB')
        Case '&HA5E0'
            strV = strV & Chr('&HA4E0')
        Case '&HA5BF'
            strV = strV & Chr('&HA4BF')
        Case '&HA5DC'
            strV = strV & Chr('&HA4BC')
        Case '&HA5DB'
            strV = strV & Chr('&HA4DB')
        Case '&HA5BB'
            strV = strV & Chr('&HA4BB')
        Case '&HA5DF'
            strV = strV & Chr('&HA4DF')
        Case '&HA5AB'
            strV = strV & Chr('&HA4AB')
        Case '&HA5BD'
            strV = strV & Chr('&HA4BD')
        Case '&HA5C0'
            strV = strV & Chr('&HA4C0')
        Case '&HA5DE'
            strV = strV & Chr('&HA4DE')
        Case '&HA5BA'
            strV = strV & Chr('&HA4BA')
        Case '&HA5AE'
            strV = strV & Chr('&HA4AE')
        Case Else
            strV = strV & Chr('&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))))'&'/&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2)))
    End Select
'   Response.Write '&H' & Hex(byteChr) & Hex(AscB(MidB(binData,i,2))) &Chr('&HB5FE')
'   Response.End
   Else
    strV = strV & Chr(byteChr)
   End if
  Next
  BinDecode = strV
End Function

이것은 제가 한글 및 영문 사이트를 클립하기위해 편집한 함수 입니다. 일본어를 제외하곤 문제없습니다.

Dim clippingtitle, source
Dim subTitle
Dim siteFont

' ===========================
'  Function to GetHTMLBin
' ===========================
Function GetHTMLBin(URLaddress)
    Dim Http
    Set Http = Server.CreateObject('MSXML2.ServerXMLHTTP')
    Http.Open 'GET', URLaddress, False
    Http.Send
    GetHTMLBin = Http.responseBody
    Set Http = Nothing
End Function

' ===========================
'  Function to BinToText
' ===========================
Function BinToText(varBinData, intDataSizeInBytes)    ' as String
    Const adFldLong = &H00000080
    Const adVarChar = 200
    Set objRS = CreateObject('ADODB.Recordset')
    objRS.Fields.Append 'txt', adVarChar, intDataSizeInBytes, adFldLong
    objRS.Open
    objRS.AddNew
    objRS.Fields('txt').AppendChunk varBinData
    BinToText = objRS('txt').Value
    objRS.Close
    Set objRS = Nothing
End FunctionDim clippingtitle, source
Dim subTitle
Dim siteFont

Select Case siteName
Case 'narinari'
        clippingtitle='NariNari.com'
        source='http://narinari.com/'
        If sort='List' Then
            GetURL = 'http://narinari.com/'
            HTMLBin = GetHTMLBin(GetURL)
            html = BinToText(HTMLBin,32000)
            html = RegExpReplace('<html>[sS]*<td width=''10'' valign=''top'' td> </td>', html, '')
            html = RegExpReplace('<p> </p>[sS]*</html>', html, '')
            html = RegExpReplace('<img.[^>]*>|<p.[^>]*>|</p>]*>|</p>|<table.[^>]*>|<td.[^>]*>|<a class='MIME' href=''http.*>', html, '')
            html = RegExpReplace('/logs/?', html, 'clipView.htm?siteName=narinari&html=')
        Else
            GetURL = 'http://narinari.com/logs/?'&Request('html')
            HTMLBin = GetHTMLBin(GetURL)
            html = BinToText(HTMLBin,32000)
            html = RegExpReplace('<html>[sS]*<TR><TD><P>', html, '')
            html = RegExpReplace('[sS]*</html>', html, '')
            html = RegExpReplace('</P><Hr size=1></TD></TR></TABLE>', html, '<br>')
            html = RegExpReplace('<font size=5>', html, '<font style=''font-weight:bold;''>')

        End If
Selec End

Nemesys

회원님의 소개글이 없습니다.
정보력:0
친절도:

T.T

정보력:0
친절도:

04-22 12:05
218.53.223.47

아무도 답변을..T.T

댓글쓰기 작성자

패스워드