表格单元格名称转为行列

function LowerColToIndex(value: string): Integer;
var
  I:Integer;
  c:Char;
begin
  if value='' then
  begin
    Result:=0;
    Exit;
  end;
  if Length(value)<>1 then
  begin
    Result:=0;
    Exit;
  end;

  c:=value[1];
  I:=Ord(c);
  Result:=I-97+1;
end;


function UppColToIndex(value: string): Integer;
var
  I:Integer;
  c:Char;
begin
  if value='' then
  begin
    Result:=0;
    Exit;
  end;
  if Length(value)<>1 then
  begin
    Result:=0;
    Exit;
  end;

  c:=value[1];
  I:=Ord(c);
  Result:=I-65+1;
end;

//表格单元格名称转为行列
function GetCellRefNameColRow(sRefName: string; var nCol, nRow:
    Integer): Boolean;
var
  I,ilen:integer;
  iicol,iiRow:Integer;
  sC:string;
begin
  nCol:=0;
  nRow:=0;

  ilen:=Length(sRefName);
  for I := 1 to ilen do
  begin
    sC:=sRefName[I];
    if sC='' then
       continue
    else if ((sC>='A') and (sC<='Z')) then
    begin
       iicol:=UppColToIndex(sC);
       nCol:=nCol*26+iicol;
    end
    else if ((sC>='a') and (sC<='z')) then
    begin
       iicol:=LowerColToIndex(sC);
       nCol:=nCol*26+iicol;
    end
    else if ((sC>='0') and (sC<='9')) then
    begin
       iiRow:=StrToInt(sC);
       nRow:=nRow *10+ iiRow;
    end;
  end;

  Result:=true;
end;

发布了30 篇原创文章 · 获赞 9 · 访问量 9万+
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览