動作環境
RAD Studio 10.2 Tokyo Update 3
処理概要
- L"1,1,2,2,3,3,1,1" を L"2,2,3,3,2,2,"へ置換
- 変換テーブル（例: 下記)に基づき置換
| 変換元 | 変換先 |
|---|---|
| 1 | 2 |
| 2 | 3 |
| 3 | 1 |
実装
Unit1.h
//---------------------------------------------------------------------------
# ifndef Unit1H
# define Unit1H
//---------------------------------------------------------------------------
# include <System.Classes.hpp>
# include <Vcl.Controls.hpp>
# include <Vcl.StdCtrls.hpp>
# include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // IDE で管理されるコンポーネント
TButton *Button1;
void __fastcall Button1Click(TObject *Sender);
private: // ユーザー宣言
String __fastcall obtainReplacedString(String srcCsv, String fromCsv, String toCsv);
public: // ユーザー宣言
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
# endif
Unit1.cpp
//---------------------------------------------------------------------------
# include <vcl.h>
# pragma hdrstop
# include <memory>
# include "Unit1.h"
//---------------------------------------------------------------------------
# pragma package(smart_init)
# pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String srcstr = L"1,1,2,2,3,3,1,1,2,2"; // 変換対象csv
String fromTBL = L"1,2,3"; // 変換元table
String toTBL = L"3,2,1"; // 変換先table
String res = obtainReplacedString(srcstr, fromTBL, toTBL);
}
String __fastcall TForm1::obtainReplacedString(String srcCsv, String fromCsv, String toCsv)
{
//前提条件:
// fromStrとtoStrは同じインデックスに変換元と変換先の文字列が格納されている
// 1. 前処理
std::unique_ptr<TStringList> srcSL(new TStringList);
std::unique_ptr<TStringList> fromSL(new TStringList);
std::unique_ptr<TStringList> toSL(new TStringList);
srcSL->StrictDelimiter = true;
srcSL->Delimiter = ',';
srcSL->DelimitedText = srcCsv;
fromSL->StrictDelimiter = true;
fromSL->Delimiter = ',';
fromSL->DelimitedText = fromCsv;
toSL->StrictDelimiter = true;
toSL->Delimiter = ',';
toSL->DelimitedText = toCsv;
if (fromSL->Count != toSL->Count) {
return L""; // error (変換テーブルの不整合)
}
// 2. 置換処理
String res = L"";
for(int si=0; si < srcSL->Count; si++) { // si: srcSL index
String tostr = L""; // 置換先の文字列
if (res.Length() > 0) {
res += L",";
}
for(int fi=0; fi < fromSL->Count; fi++) { // fi: fromTBL index
if (srcSL->Strings[si] == fromSL->Strings[fi]) {
tostr = toSL->Strings[fi]; // 前提: fromSLとtoSLは同じインデックスが対応
break;
}
}
if (tostr.Length() > 0) {
res += tostr;
} else {
res += srcSL->Strings[si];
}
}
return res;
}
//---------------------------------------------------------------------------
結果
String res = obtainReplacedString(srcstr, fromTBL, toTBL);の後でブレークした場合
- srcCsv
- { u"1,1,2,2,3,3,1,1,2,2" }
- res
- { u"3,3,2,2,1,1,3,3,2,2" }
意図したとおりに置換されている。
関連
If StrictDelimiter is False, spaces and non-printable character are also used as delimiters.
以下の処理で使用予定。