如题:
- VBScript code
function getvalue(qz,str) dim y,i,s,j y=right(year(trim(date())),2) for i=1 to len(str) s=mid(str,i,1) if cint(s)>0 then j=i exit for end if next if cint(j)>len(str) then j=len(str) i=cint(right(str,len(str)+1-j))+1 i=right("0000"&cstr(i),4) getpzh=qz&y&iend function
------解决方案--------------------------------------------------------
public string getvalue(string qz,string str){
string y,s;int i,j;
y=DateTime.Now.Year.ToString();
y=y.Substring(y.Length-2,2);
for(i=1;1<str.Length;i++)
{
s=str.Substring(i,1);
if (int.Parse(s) > 0) { j = i; break; }
}
if (j > str.Length) j = str.Length;
//下面的就是些substring了,下班要走了。
}