Message Board  

Re: delphi5でのXML変換

CSV→XMLなら比較的難しくない気がしますが、DelphiもXMLも初心者というのは厳しいかもしれません。ちょっと参考までに、即興で書いてみましたが、どうでしょう？関数名を"CSVtoXML"とし、引数にファイル名を与えるとします。例えば、以下のようなデータ形式（CSV形式）を想定しています。
（最初の1行はデータの項目名です。）

=============
[data.csv]
名前,性別,年齢
太郎,男,26
花子,女,24
=============

高速化したいのであればポインタでプログラムするのが一般的です。今回は簡略化のためにTStringListを使ってファイルを読み込んでいます。かなり強引ですが…（笑）

function CSVtoXML(const FileName : String) : String ;
var i,j : Integer ;
　　ls,lsItem,lsData : TStringList ;
begin
　if Not FileExists(FileName) then Exit ;
　Result := '' ;
　ls := TStringList.Create ; //データ行
　lsData : TStringList.Create ; //解析中の行
　lsItem : TStringList.Create ; //項目名
　try
　　ls.LoadFromFile(FileName) ;
　　if ls.Count = 0 then Exit ; //データが０行なら終了
　　lsItem.CommaText := ls[0] ; //0行目（項目名）情報をlsItemへ
　　For i := 1 to ls.Count-1 do //データを1行ごとに解析→変換
　　begin
　　　 lsData.CommaText := ls[i] ; //i行目のCSV情報をlsDataへ
　　　 For j := 0 to lsData.Count-1 do
　　　　 Result := Result + #13#10 +
　　　　　　　　　　　　　Format('<%s>%s</%s>',
　　　　　　　　　　　　　　　　[lsItem[j],lsData[j],lsItem[j]]) ;
　　end ;
　finally
　　ls.Free ;
　　lsItem.Free ;
　　lsData.Free ;
　end ;
end ;

[プログラム実行結果（たぶん...）]
<名前>太郎</名前>
<性別>男</性別>
<年齢>26</年齢>
<名前>花子</名前>
<性別>女</性別>
<年齢>24</年齢>

＊commaText関数が意外に便利です。先ほども言ったように、速度重視ではないので、数千行もあるデータの変換には向きません。

From: 管理人

2010/06/29 (Tue) 21:36 ... No.62

Re: delphi5でのXML変換

早速の回答ありがとうございます。

これを参考にさせて頂こうと思います。

From: ono

2010/06/30 (Wed) 08:32 ... No.63

Re: タイピングソフトの作り方

こんにちは。
マイナーコンテンツが参考になったようで良かったです。
今はVisual C#が出てますから、そちらの方が汎用性も高くていいと思ったりしてます。Delphiの開発者が作っているので、仕様も似てますよね。私はez-HTMLのようなデカいアプリを作る気力はもうないのでDelphiでちょこちょこやっていくつもりです（笑）

わざわざ、ご報告ありがとうございました。
プログラミング、がんばってください。

From: 管理人

2010/06/18 (Fri) 23:13 ... No.60

Re: 遅ればせながら感謝します

ご利用ありがとうございます。
次期バージョンではもう少し高速化しますので、気長にお待ち頂ければと思います。

よろしくお願いします。

From: 管理人

2010/04/25 (Sun) 17:18 ... No.58

Re: 初めまして。

はじめまして。ご指摘どうもありがとうございます。
スタイルシート解説ページは何かの拍子で文字化けしたりしなかったりするようですね
これは私の方でも確認したのですが、でちょっと原因は良く分かりません…

From: 管理人

2010/04/25 (Sun) 17:17 ... No.57

Re: エディッター使用させていただきます。

ご利用ありがとうございます。
サイトの立ち上げは私と同じくらいなんですね。
これからもよろしくお願いします。

From: 管理人

2010/04/25 (Sun) 17:13 ... No.56

Re: 感謝の意をこめて

こんにちは。そこまでして頂けて、どうもありがとうございます。
自分でも搭載した事を忘れかけていたのですが、メニューの「標準」→「ヘッダの編集」→「作成エディタ情報」に組み込んでいた自分はしたたかだったかもしれません（笑）

From: 管理人

2010/04/19 (Mon) 01:19 ... No.52

Re: はじめまして＾＾

赤文字で記述されていると思いますが、
ソフトウェアのアイコンをクリックするとダウンロードできます。

よろしくお願いします。

From: 管理人

2010/04/15 (Thu) 23:38 ... No.50

Re: はじめまして

はじめまして。
ご利用とお褒めの言葉を頂きまして恐縮です。
リンクウェアはお手数おかけしますが、
わざわざご報告ありがとうございました。
これからもウェブサイト製作頑張ってください。

From: 管理人

2010/04/15 (Thu) 23:35 ... No.49

Re: はじめまして。

はじめまして。ご感想ありがとうございます。
この掲示板に赤い文字はちょっと明るすぎましたね（笑）
Windows 7での動作は確認しておりませんが、
無事動いているようで良かったです。
エラー等ありましたら、サポート掲示板によろしくお願いします。

From: 管理人

2010/04/15 (Thu) 23:34 ... No.48