begin
if bstop then break;
readln(f, str);
StrDomain := '';
StrData_Type := '';
StrContent := '';
ITypePos := 0;
Ipos := 0;
if (pos(UpperCase(' CNAME '), UpperCase(str)) > 0) then
begin
ipos := pos('. ', str);
if ipos > 0 then
begin
StrDomain := Trim(Copy(str, 1, ipos - 1));
Delete(Str, 1, ipos + length('. '))
end
else StrDomain := '';
StrData_Type := 'CNAME';
ITypePos := pos(UpperCase(' CNAME '), UpperCase(str));
delete(Str, 1, ITypePos + length(' CNAME ') - 1);
StrContent := Trim(Copy(Str, 1, Length(Str) - 1));
SaveToDataBase(StrDomain, StrData_Type, StrContent);
end
如果我想变成,StrDomain=空的时候,这条记录不导入,要怎么修改,请指点.
if bstop then break;
readln(f, str);
StrDomain := '';
StrData_Type := '';
StrContent := '';
ITypePos := 0;
Ipos := 0;
if (pos(UpperCase(' CNAME '), UpperCase(str)) > 0) then
begin
ipos := pos('. ', str);
if ipos > 0 then
begin
StrDomain := Trim(Copy(str, 1, ipos - 1));
Delete(Str, 1, ipos + length('. '))
end
else StrDomain := '';
StrData_Type := 'CNAME';
ITypePos := pos(UpperCase(' CNAME '), UpperCase(str));
delete(Str, 1, ITypePos + length(' CNAME ') - 1);
StrContent := Trim(Copy(Str, 1, Length(Str) - 1));
SaveToDataBase(StrDomain, StrData_Type, StrContent);
end
如果我想变成,StrDomain=空的时候,这条记录不导入,要怎么修改,请指点.
if bstop then break;
readln(f, str);
StrDomain := '';
StrData_Type := '';
StrContent := '';
ITypePos := 0;
Ipos := 0;
if (pos(UpperCase(' CNAME '), UpperCase(str)) > 0) then
begin
ipos := pos('. ', str);
if ipos > 0 then
begin
StrDomain := Trim(Copy(str, 1, ipos - 1));
Delete(Str, 1, ipos + length('. '))
end
else StrDomain := '';
StrData_Type := 'CNAME';
ITypePos := pos(UpperCase(' CNAME '), UpperCase(str));
delete(Str, 1, ITypePos + length(' CNAME ') - 1);
StrContent := Trim(Copy(Str, 1, Length(Str) - 1));
if length(StrDomain) <> 0 then
SaveToDataBase(StrDomain, StrData_Type, StrContent); end