목록함수 (7)

아미(아름다운미소)

asp 변수에서 숫자만 걸러내는 함수

숫자 ASCII코드는 48번부터 57번 입니다. Function RefNumeric(inputStr) a = inputStr result = "" For i = 1 To Len(a) checkStr = Mid(a, i, 1) If Asc(checkStr) > 47 And Asc(checkStr) < 58 Then result = result & checkStr End If Next RefNumeric = result End Function inputStr = "테 스 트12345 67890" Response.write RefNumeric(inputStr) 결과 : 1234567890
랭귀지/ASP 2019. 10. 23. 11:14
MSSQL 특수문자제거 함수

특수문자제거 함수 CREATE FUNCTION DBO.UFN_REMOVE_SPECIAL_CHARS ( @mString varchar(256) ) RETURNS VARCHAR(256) BEGIN IF @mString IS NULL BEGIN RETURN NULL; END DECLARE @mString2 VARCHAR(256) = ''; DECLARE @mLen INT = len(@mString); DECLARE @mInt INT = 1; WHILE @mInt
데이타베이스/MSSQL 2018. 1. 13. 17:30
[asp] 유용함수 정리

[asp] 유용함수 정리 '' 'HTML 태그제거 ' Function StripTags( htmlDoc ) Dim rex Set rex = New Regexp rex.Pattern= "]+>" rex.Global=True StripTags =rex.Replace(htmlDoc,"") End Function '=========================================================================== '함수명 : DB_IN_STR 'INPUT : cur_str ==> 검사할 문자열 '기능설명 : DB입력할때 ' 만 '' 로 교체 '===========================================================================..
랭귀지/ASP 2018. 1. 11. 17:30
[ASP]마지막 문자열

마지막 문자열 구하기 Option Explicit Dim str : str = "100|5|0||2028|1090|서울특별시 강남구 삼성동" Response.write SearchAddress(str) Function SearchAddress(byRef paramStr) Dim ipos Dim strLen Dim Result '------------------------------------------------ ' 입력되는 인자의 전체 길이. '------------------------------------------------ strLen = Len(paramStr) '------------------------------------------------ ' 문자 '|' 마지막에 위치하는 자리 수 ..
랭귀지/ASP 2017. 12. 26. 10:00
[ASP] 숫자관련함수

- 숫자 확인후 3자리마다 , 해주고 숫자가 아니면 문자 그대로 보내줌 Function ChkNumericToValue(CheckValue) If ISNumeric(CheckValue) Then ChkNumericToValue = FormatNumber(CheckValue,0) Else ChkNumericToValue = CheckValue End If End Function - Comma 뺀 숫자만 추출 Function ChkToMComma(CheckValue) dim CheckMomma If Len(CheckValue) > 0 Then CheckValue = replace(CheckValue, ",","") ChkToMComma = CheckValue Else ChkToMComma = "" End I..
랭귀지/ASP 2017. 12. 22. 16:30
[ASP]문자관련함수

- 문자열 바이트길이 가져오기 '-------------------------------------------------------- ' Function Name : GetLength ' Description : 문자열 바이트길이 가져오기 ' Example : GetLength("문자열") ' output : 6 ' -------------------------------------------------------- Function GetLength(strText) Dim nByteLen, nIdx, nLenIdx, nTextLenth If IsNull(strText) Then GetLength = 0 Exit Function End If nByteLen = 0 nTextLenth = Len(strTex..
랭귀지/ASP 2017. 12. 22. 15:30
[ASP]날짜관련함수

- 윤달 체크 function get_month_lastday(year, mon) dim month_day(12) month_day(1) = 31 month_day(2) = 28 month_day(3) = 31 month_day(4) = 30 month_day(5) = 31 month_day(6) = 30 month_day(7) = 31 month_day(8) = 31 month_day(9) = 30 month_day(10) = 31 month_day(11) = 30 month_day(12) = 31 if mon = 2 and isdate(year & "-" & mon & "29") then get_month_lastday = 29 else get_month_lastday = month_day(mon) ..
랭귀지/ASP 2017. 12. 22. 14:00
Prev 1 Next