Contents

Views 22626 Comment 0
Atachment
Attachment '1'
?

Shortcut

PrevPrev Article

NextNext Article

Larger Font Smaller Font Up Down Go comment Print
?

Shortcut

PrevPrev Article

NextNext Article

Larger Font Smaller Font Up Down Go comment Print

스샷 먼저.. ㅎㅎ

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
No. Category Subject Author Date Views
1089 System/OS 네트워크 용어 정리 file hooni 2022.11.20 1350
1088 PPT 네오웹 세미나 자료~ secret hooni 2013.05.28 0
1087 System/OS 나중에 해봐야지.. libconv 설치.. ㅡ,.ㅡ; hooni 2013.04.23 19284
1086 Develop 객체지향 프로그래밍에 대한 개념.. (객체) file hooni 2013.04.23 7310
1085 System/OS 개인적으로 쓰고 있는 zshrc 파일 hooni 2022.02.25 835
1084 System/OS 개인적으로 쓰고 있는 bash_profile hooni 2015.01.16 850
1083 Etc 개발자가 알아야할 10가지 보안팁으로 코드 보호하기 hooni 2013.04.23 16403
1082 System/OS [펌] 마이크로서비스, 모노리포, SRE, ... 덮어놓고 구글 따라하면 안 되는 기술들 file hooni 2020.10.15 951
1081 Develop [펌] 게임 엔진 만든거 공개합니다. hooni 2015.02.21 2359
1080 Develop [자료구조] 트리(tree) 용어정리 file hooni 2003.04.23 11067
1079 Etc [용어] POC, Pilot, BMT에 대한 IT 업계에서 통용되는 의미 hooni 2014.01.02 41962
1078 Etc [세미나] XML 레포트.. hooni 2003.04.23 19703
Board Pagination Prev 1 ... 3 4 5 6 7 8 9 10 11 12 ... 98 Next
/ 98