当前位置： 移动技术网 > IT编程>脚本编程>VBScript > 好玩的vbs特色代码第1/6页

好玩的vbs特色代码第1/6页

2017年12月12日  | 移动技术网IT编程  | 我要评论
用什么来表示组合？比如从5个数里面选n个数，你怎么用一个数字来表述你的选择结果？注意是一个数字。 硬盘的权限就是一个例子，参考脚本手册filesystem文件attribu

' 将数字计数的列号转换成excel中的列名, n, 待转换的列号, 从1开始
function getcolname(n)
  dim mystring, myarray
  mystring = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
  myarray = split(mystring, ",")
  if (n-1)<26 then
    getcolname = myarray(n-1)
  else
    if (n mod 26) > 0 then
      getcolname = myarray(n\26-1)&myarray((n mod 26)-1)
    else
      if (n\26) > 1 then
        getcolname = myarray(n\26-2)&"z"
      else
        getcolname = myarray(n\26-1)&"z"
      end if
    end if
  end if
end function

function getcolname(n)
  if (n-1)<26 then
    getcolname = chr(64+n)
  else
    getcolname = chr(64+(n\26))&chr(64+(n mod 26))
  end if
end function

6

123456

您可能感兴趣的文章:

如您对本文有疑问或者有任何想说的，请点击进行留言回复，万千网友为您解惑！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网