09/10/2018, 17:38
ASP - kiểm tra 1 từ trong 1 chuỗi ?
Kiểm tra từ có trong 1 chuỗi ( từ là các ký tự liên tục cách nhau 1 khoảng trắng ) nếu count thấy từ nào dài quá 20 ký tự thì thêm 1 khoảng trắng vào ký tự 21 .
Đây là đoạn code của mình mới viết , nhưng khi nhập dữ liệu thì bị xoá trắng hết . hu hu
function chk(s)
dim str
str=s& " "
dim i,words
words=split(str," ")
for i=0 to ubound(words)
if len(words(i))>20 then
chk=true
exit for
end if
next
end function
Đây là đoạn code của mình mới viết , nhưng khi nhập dữ liệu thì bị xoá trắng hết . hu hu
function chk(s)
dim str
str=s& " "
dim i,words
words=split(str," ")
for i=0 to ubound(words)
if len(words(i))>20 then
chk=true
exit for
end if
next
end function
Bài liên quan
dim words, i
words=split(str," ")
for i=0 to ubound(words)
if len(words(i))>20 then words(i) = Left(words(i),20) & " " & Mid(words(i),21)
next
FString = Join(words," ")
Set words = Nothing
end function
Usage: s = FString(s)