Contents

조회 수 25597 댓글 0
Atachment
첨부 '1'
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

스샷 먼저.. ㅎㅎ

exp.jpg


Function DelTag(mystr As Variant) As String

'태그제거 함수
    
    If IsNull(mystr) = True Then
        'Null 처리부분
        DelTag = ""
        Exit Function
    End If
    
    Dim Pointed_Char As String
    Dim Switch_Value As Boolean
    Dim Result As String
    Dim Pnt_of_Str As Integer
    
    Switch_Value = True
    
    For Pnt_of_Str = 1 To Len(mystr)
        '전체 글자 갯수 만큼 루프를 수행
        Pointed_Char = Mid(mystr, Pnt_of_Str, 1)
        
        '한글자씩 처리한다
        If Pointed_Char = "<" Then
             
            If (Asc(Mid(mystr, Pnt_of_Str + 1, 1)) >= 65 And
                Asc(Mid(mystr, Pnt_of_Str + 1, 1)) <= 122) Or _
                Mid(mystr, Pnt_of_Str + 1, 1) = "/" Then
                
                '첫번째 글자가 영문 알파벳 이거나 "/"이면 스위치는 false
                 Switch_Value = False
            End If
            
            If (Asc(Mid(mystr, Pnt_of_Str + 2, 1)) >= 65 And
                Asc(Mid(mystr, Pnt_of_Str + 2, 1)) <= 122) Or _
                Mid(mystr, Pnt_of_Str + 2, 1) = "/" Then
                
                '두번째 글자가 영문 알파벳 이거나 "/"이면 스위치는 false
                Switch_Value = False
            End If
                        
        End If
        
        If Switch_Value = True Then
            '스위치 값이 true일때만 result에 문자를 더해나간다
            Result = Result & Pointed_Char
        End If
        
            
        If Pointed_Char = ">" Then
            '닫히는 꺽쇄 괄호를 만나면 무조건 스위치값은 true
            Switch_Value = True
        End If
    Next Pnt_of_Str

    DelTag = Result
    
End Function


[출처] http://blog.naver.com/devace?Redirect=Log&logNo=20063206854


?

List of Articles
번호 분류 제목 글쓴이 날짜 조회 수
399 Develop [chm] C++ 문법 가이드 file hooni 2013.04.23 8931
398 Develop [c] 시어핀스키 가스킷..(p.582, A.2 - 두번째) hooni 2003.04.23 8921
397 Develop [c] 네트워크 관련 프로그래밍 (포트스캔 탐지 샘플) file hooni 2013.04.23 8917
396 Develop [c] IP 스푸핑(ip spoof) 소스 - 정리해야 함 file hooni 2003.04.23 8912
395 Develop [c] 프로세스 정보 출력하기.. file hooni 2003.04.23 8848
394 Develop [php] 데이터를 엑셀,워드 형태로 변환할 때 헤더(ms-office) hooni 2013.04.23 8843
393 Develop [java] 컴포넌트 배치 ㅡ.,ㅡ; hooni 2003.04.23 8840
392 Develop [c] 정수를 2진수로 변환 (재귀,비트연산) file hooni 2003.04.23 8791
391 Develop [c] 단기과정[01/08] 과제.. 파스칼 삼각형 file hooni 2003.04.23 8774
390 Develop [c] 농구팀 점수 산출 프로그램 소스 file hooni 2003.04.23 8768
389 Develop [js] 이미지 사이즈를 동적으로 조절.. hooni 2013.04.23 8754
388 Develop [c] 프로그램 코드(c/c++)를 html 파일로 변환 file hooni 2013.04.23 8740
Board Pagination Prev 1 ... 33 34 35 36 37 38 39 40 41 42 ... 71 Next
/ 71