LogOutOpen

[code=Delphi(Pascal)]
//******************************************************************************
//  エラーログ出力関数
//------------------------------------------------------------------------------
//  style         : KtLogOpen
//  parameter     : var LogFile : TextFile: エラーログ
//  return value  : Result  : String
//******************************************************************************
Function KtLogOpen(var tLogFile: TextFile; sFilePath: String) : Integer;
var
  iRet    : Integer;
  sFull,               //フルパス
  sDir    : String;    //ディレクトリ名
begin

  iRet   := ST_OK;

  //CSV格納フォルダパスセット
  sDir  := gsCsvPath;
  sFull := gsCsvPath + sFilePath;

  if (not DirectoryExists(sDir) and (sDir <> '')) then begin
    ForceDirectories(sDir);  //フォルダの作成
  end;

  //ディレクトリの作成が行えなかったときは終了
  if (not DirectoryExists(sDir)) then begin
    iRet := ST_ER;
  end;

  if (iRet = ST_OK) then begin
    if (FileExists(sFull) = True) then begin
      if (RenameFile(sFull,sFull) <> True) then begin
        iRet := ST_ER;
      end;
    end;
  end;

  if (iRet <> ST_OK) then begin
    Result := iRet;
    exit;
  end;

  //ログファイルの作成
  AssignFile(tLogFile, sFull);
  iRet := IOResult;
  if (FileExists(sFull) = True) then Append (tLogFile);

  Result := iRet
end;

//******************************************************************************
//  エラーログ出力関数
//------------------------------------------------------------------------------
//  style         : KtLogOut
//  parameter     : sErrMsg : エラーメッセージ
//                  iCsvCnt: Integer;
//                  sCsvRec: String
//  return value  : Result  : String
//******************************************************************************
procedure KtLogOut(var tLogFile : TextFile; sErrMsg: String; iCsvCnt: Integer; sCsvRec: String);
const
  _SV = #9;
var
  iRet     : Integer;
  strWork  : String;    //ディレクトリ名
begin

  //初回のみ、リテラル行を書込み
  if (gbFirstFlg = False) then begin
    //エラーログ読込チェック
    gbFirstFlg := True;

    //ファイルのオープン
    ReWrite(tLogFile);
    iRet := IOResult;
    if (iRet <> 0) then exit;

    strWork :=           'ファイル作成日'               + _SV;  //ファイル作成日
    strWork := strWork + 'ファイル作成時間'             + _SV;  //ファイル作成時間
    strWork := strWork + '入力者コード(システム固有)' + _SV;  //入力者コード(システム固有)
    strWork := strWork + 'CSV行番号'                    + _SV;  //CSV行番号
    strWork := strWork + 'メッセージ'                   + _SV;  //メッセージ
    strWork := strWork + 'CSVデータ内容';                       //CSVデータ内容

    //1行出力
    Writeln(tLogFile, strWork);
    iRet := IOResult;
    if (iRet <> 0) then exit;
  end;

  //ファイルのオープン
  Append (tLogFile);
  iRet := IOResult;
  if (iRet <> 0) then exit;

  //エラー内容を元のレイアウトと同様にセット
  strWork :=           IntToStr(Sdateget2)      + _SV;  //ファイル作成日
  strWork := strWork + IntToStr(giSysTime)      + _SV;  //ファイル作成時間
  strWork := strWork + KPR111EAF.T0041.DataText + _SV;  //入力者コード(システム固有)
  strWork := strWork + IntToStr(iCsvCnt)        + _SV;  //CSV行番号
  strWork := strWork + sErrMsg                  + _SV;  //エラーメッセージ
  strWork := strWork + sCsvRec;                         //CSVデータ内容

  //1行出力
  Writeln(tLogFile, strWork);
  iRet := IOResult;
  if (iRet <> 0) then exit;

end;
[/code]

资源下载链接为: https://pan.quark.cn/s/f989b9092fc5 今天给大家分享一个关于C#自定义字符串替换方法的实例,希望能对大家有所帮助。具体介绍如下: 之前我遇到了一个算法题,题目要求将一个字符串中的某些片段替换为指定的新字符串片段。例如,对于源字符串“abcdeabcdfbcdefg”,需要将其中的“cde”替换为“12345”,最终得到的结果字符串是“ab12345abcdfb12345fg”,即从“abcdeabcdfbcdefg”变为“ab12345abcdfb12345fg”。 经过分析,我发现不能直接使用C#自带的string.Replace方法来实现这个功能。于是,我决定自定义一个方法来完成这个任务。这个方法的参数包括:原始字符串originalString、需要被替换的字符串片段strToBeReplaced以及用于替换的新字符串片段newString。 在实现过程中,我首先遍历原始字符串,查找需要被替换的字符串片段strToBeReplaced出现的位置。找到后,就将其替换为新字符串片段newString。需要注意的是,在替换过程中,要确保替换操作不会影响后续的查找和替换,避免遗漏或重复替换的情况发生。 以下是实现代码的大概逻辑: 初始化一个空的字符串result,用于存储最终替换后的结果。 使用IndexOf方法在原始字符串中查找strToBeReplaced的位置。 如果找到了,就将originalString中从开头到strToBeReplaced出现位置之前的部分,以及newString拼接到result中,然后将originalString的查找范围更新为strToBeReplaced之后的部分。 如果没有找到,就直接将剩余的originalString拼接到result中。 重复上述步骤,直到originalStr
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值