Develop
2013.04.23 16:20
[vb] 문자열에서 태그 제거함수 (Visual Basic)
조회 수 22617 댓글 0
첨부 '1' |
|
---|
스샷 먼저.. ㅎㅎ
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
번호 | 분류 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|---|
789 | Develop | [java] Sieve of Eratosthenes (에라토스테네스의 체) | hooni | 2013.04.23 | 9335 |
788 | Database | [sql] 간단한 통계 서브쿼리 예제.. | hooni | 2013.04.23 | 15082 |
787 | Develop | [js] 사진첩에 쓸 내용 - 마우스 오버로 바꾸기 | hooni | 2013.04.23 | 6336 |
786 | Develop | [js] 폼(form) 전송시 중복 클릭 방지 간단한 구문 | hooni | 2013.04.23 | 9314 |
785 | Etc | GSM에서 음성이 실리는 과정 요약.. | hooni | 2013.04.23 | 17514 |
784 | Develop | [ajax] 샘플 코드와 한글처리에 대한 간단한 설명 | hooni | 2013.04.23 | 6840 |
783 | PPT | [doc] 정보보호학술대회 논문지 ㅋㅋ | hooni | 2013.04.23 | 12173 |
782 | Develop | [c] 전위 표기법으로 연산 예제.. | hooni | 2013.04.23 | 9302 |
781 | Develop | [c] 프로그램 코드(c/c++)를 html 파일로 변환 | hooni | 2013.04.23 | 7675 |
780 | Develop | [c] 구조체 배열 예제 (학생 성적 계산) | hooni | 2013.04.23 | 7664 |
779 | Develop | [c] 숫자 맞추는 게임.. | hooni | 2013.04.23 | 6927 |
778 | Develop | [js] php의 number_format() 함수와 같은.. ㅋㅋ | hooni | 2013.04.23 | 6929 |