<?xml version="1.0" encoding="UTF-8"?><rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
		>
<channel>
	<title>FilemakerからSmartyを操作する関数。 へのコメント</title>
	<atom:link href="http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/feed/" rel="self" type="application/rss+xml" />
	<link>http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/</link>
	<description>PerlとかPHPとかMySQLとか...がんばっても8割だ。</description>
	<lastBuildDate>Fri, 26 Aug 2011 07:28:21 +0000</lastBuildDate>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.org/?v=3.0</generator>
	<item>
		<title>サザンカの宿 より</title>
		<link>http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/comment-page-1/#comment-104</link>
		<dc:creator>サザンカの宿</dc:creator>
		<pubDate>Thu, 15 Jul 2010 01:19:18 +0000</pubDate>
		<guid isPermaLink="false">http://agilmente.com/?p=69#comment-104</guid>
		<description>ご指導お願いしておきながら、私も忙殺され頂きましたアドバイスを拝見するタイミングを逸していました。
申し訳ありません。
頂いた内容、試みまして、ご報告させて頂きます。
取り急ぎ､御礼申し上げます。
サザンカの宿</description>
		<content:encoded><![CDATA[<p>ご指導お願いしておきながら、私も忙殺され頂きましたアドバイスを拝見するタイミングを逸していました。<br />
申し訳ありません。<br />
頂いた内容、試みまして、ご報告させて頂きます。<br />
取り急ぎ､御礼申し上げます。<br />
サザンカの宿</p>
]]></content:encoded>
	</item>
	<item>
		<title>admin より</title>
		<link>http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/comment-page-1/#comment-99</link>
		<dc:creator>admin</dc:creator>
		<pubDate>Mon, 28 Jun 2010 11:06:47 +0000</pubDate>
		<guid isPermaLink="false">http://agilmente.com/?p=69#comment-99</guid>
		<description>すみません。なかなかこちらに関する答えを返す時間がとれずにおります。
申し訳ありません。

未確証の処理で、なおかつかなり複雑な処理なのですが、おそらくは以下のような手順になろうかと思います。

positionなどを使ってテキスト検索して位置を取得
↓
色付する前のテキスト｜色付けするテキスト｜色付けしたあとのテキスト
の3つに分割して変数に格納します
↓
色付するテキストにTextColorなどを使って色付け
↓
3つに分割したテキストを再連結

という手順を使えば、検索した文字列にカラーなどを付けることは可能かと思います。
position関数を使えば、
検索したい文字列を何回目の登場位置なのか指定して検索することができるので、
繰り返し検索用のスクリプトを作っておけば、
次の検索というような手順は可能でしょう。

色付けを消すのも同じように専用のスクリプトを用意すれば解決できると思います。

ただ、テキストフィールド中の特定の文字列へ背景を設定するということをやったことがないので、残念ながら方法がわかりません。

かなりざっくりとしたヒントになりますが、お試しください。</description>
		<content:encoded><![CDATA[<p>すみません。なかなかこちらに関する答えを返す時間がとれずにおります。<br />
申し訳ありません。</p>
<p>未確証の処理で、なおかつかなり複雑な処理なのですが、おそらくは以下のような手順になろうかと思います。</p>
<p>positionなどを使ってテキスト検索して位置を取得<br />
↓<br />
色付する前のテキスト｜色付けするテキスト｜色付けしたあとのテキスト<br />
の3つに分割して変数に格納します<br />
↓<br />
色付するテキストにTextColorなどを使って色付け<br />
↓<br />
3つに分割したテキストを再連結</p>
<p>という手順を使えば、検索した文字列にカラーなどを付けることは可能かと思います。<br />
position関数を使えば、<br />
検索したい文字列を何回目の登場位置なのか指定して検索することができるので、<br />
繰り返し検索用のスクリプトを作っておけば、<br />
次の検索というような手順は可能でしょう。</p>
<p>色付けを消すのも同じように専用のスクリプトを用意すれば解決できると思います。</p>
<p>ただ、テキストフィールド中の特定の文字列へ背景を設定するということをやったことがないので、残念ながら方法がわかりません。</p>
<p>かなりざっくりとしたヒントになりますが、お試しください。</p>
]]></content:encoded>
	</item>
	<item>
		<title>サザンカの宿 より</title>
		<link>http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/comment-page-1/#comment-90</link>
		<dc:creator>サザンカの宿</dc:creator>
		<pubDate>Thu, 24 Jun 2010 06:24:38 +0000</pubDate>
		<guid isPermaLink="false">http://agilmente.com/?p=69#comment-90</guid>
		<description>初めて通信します。
ファイルメーカー8.0(Mac-OSスノーレパード)で足踏みしていますド素人です。
A4サイズで17000頁の文献の単純に該当検索としてデータ化しています。
検索例/[尾]の文字を検索しますと、該当しますA4にはほぼ目一杯に文字があり、検索した[尾]の文字が何処にあるのか?　目で読みながら確認・探し出すの大変です。
これでは、他の頁にも[尾]がある場合は、最悪になります。
★出来れば、検索した文字に色が被ってくれると有り難いのですが…。
※1/該当する文字[尾]の色は出力時にも着色されているのが理想です。
※2/再検索(単純に検索モードに切り替えるだけです)・又は検索終了(モード)で、着色は無くなるとなればと思っています。
そもそも、検索やソートも見よう見まねで作成した程の、ド素人です。
ご指導頂ければと希望いたします。
宜しくお願いします。

サザンカの宿</description>
		<content:encoded><![CDATA[<p>初めて通信します。<br />
ファイルメーカー8.0(Mac-OSスノーレパード)で足踏みしていますド素人です。<br />
A4サイズで17000頁の文献の単純に該当検索としてデータ化しています。<br />
検索例/[尾]の文字を検索しますと、該当しますA4にはほぼ目一杯に文字があり、検索した[尾]の文字が何処にあるのか?　目で読みながら確認・探し出すの大変です。<br />
これでは、他の頁にも[尾]がある場合は、最悪になります。<br />
★出来れば、検索した文字に色が被ってくれると有り難いのですが…。<br />
※1/該当する文字[尾]の色は出力時にも着色されているのが理想です。<br />
※2/再検索(単純に検索モードに切り替えるだけです)・又は検索終了(モード)で、着色は無くなるとなればと思っています。<br />
そもそも、検索やソートも見よう見まねで作成した程の、ド素人です。<br />
ご指導頂ければと希望いたします。<br />
宜しくお願いします。</p>
<p>サザンカの宿</p>
]]></content:encoded>
	</item>
	<item>
		<title>ACT より</title>
		<link>http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/comment-page-1/#comment-22</link>
		<dc:creator>ACT</dc:creator>
		<pubDate>Thu, 11 Sep 2008 01:03:22 +0000</pubDate>
		<guid isPermaLink="false">http://agilmente.com/?p=69#comment-22</guid>
		<description>ご教示有難うございます。
早速挑戦してみます。

</description>
		<content:encoded><![CDATA[<p>ご教示有難うございます。<br />
早速挑戦してみます。</p>
]]></content:encoded>
	</item>
	<item>
		<title>admin より</title>
		<link>http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/comment-page-1/#comment-21</link>
		<dc:creator>admin</dc:creator>
		<pubDate>Wed, 10 Sep 2008 05:46:18 +0000</pubDate>
		<guid isPermaLink="false">http://agilmente.com/?p=69#comment-21</guid>
		<description>&gt;ACTさん

VerticalTabを\r\nに変換ということですね。
（Basicが苦手なので、あまりちゃんと読んでいません。すみません）
なでしこの機能としては可能でしょう。

現在、Filemaker用にプログラムを書いている時間がないので、
手順だけ書いておきます。

適宜、Filemaker用プログラムに書き換えてお使いください。

──────

#ファイル指定ファイルを変数「READDATA」に読み込む。
READDATAに「a.txt」を開く。
#VerticalTabを「\r\n」に変換
CONVERTDATAは、READDATAの「{\11}」を「{\13,10}」に置換。
#変換した内容を保存
CONVERTDATAを「b.txt」へ保存。

──────

こんな感じでしょうか。
もうひとつの手としては、ファイルメーカーのエクスポート機能に頼らず、
なでしこの二次元配列操作の機能を使って、
CSVを出力するということも考えられるでしょう。
（パフォーマンスが落ちる可能性はありますが。）</description>
		<content:encoded><![CDATA[<p>&gt;ACTさん</p>
<p>VerticalTabを\r\nに変換ということですね。<br />
（Basicが苦手なので、あまりちゃんと読んでいません。すみません）<br />
なでしこの機能としては可能でしょう。</p>
<p>現在、Filemaker用にプログラムを書いている時間がないので、<br />
手順だけ書いておきます。</p>
<p>適宜、Filemaker用プログラムに書き換えてお使いください。</p>
<p>──────</p>
<p>#ファイル指定ファイルを変数「READDATA」に読み込む。<br />
READDATAに「a.txt」を開く。<br />
#VerticalTabを「\r\n」に変換<br />
CONVERTDATAは、READDATAの「{\11}」を「{\13,10}」に置換。<br />
#変換した内容を保存<br />
CONVERTDATAを「b.txt」へ保存。</p>
<p>──────</p>
<p>こんな感じでしょうか。<br />
もうひとつの手としては、ファイルメーカーのエクスポート機能に頼らず、<br />
なでしこの二次元配列操作の機能を使って、<br />
CSVを出力するということも考えられるでしょう。<br />
（パフォーマンスが落ちる可能性はありますが。）</p>
]]></content:encoded>
	</item>
	<item>
		<title>ACT より</title>
		<link>http://agilmente.com/blog/2008/09/06/filemaker%e3%81%8b%e3%82%89smarty%e3%82%92%e6%93%8d%e4%bd%9c%e3%81%99%e3%82%8b%e9%96%a2%e6%95%b0%e3%80%82/comment-page-1/#comment-20</link>
		<dc:creator>ACT</dc:creator>
		<pubDate>Wed, 10 Sep 2008 04:04:31 +0000</pubDate>
		<guid isPermaLink="false">http://agilmente.com/?p=69#comment-20</guid>
		<description>いつも勉強させて頂いております。
ちょっと行き詰まっております。
ファイルメーカーからエクスポートしたCSVデータを「なでしこプラグイン」で改行処理は出来ますでしょうか？
現在はWSHにて
---------------------
On Error Resume Next
Dim ReadFile, FileData, Henkan, WriteFile

Set FS = WScript.CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set ReadFile =FS.OpenTextFile(&quot;a.txt&quot;)
FileData = &quot;&quot;
Do Until ReadFile.AtEndOfStream
	FileData = FileData &amp; ReadFile.ReadLine &amp; vbCrLf
Loop
ReadFile.Close

Henkan = Replace(FileData, Chr(11), vbCrLf)

Set WriteFile =FS.CreateTextFile(&quot;a.txt&quot;)
WriteFile.Write Henkan
WriteFile.Close

If Err.Number  0 Then
 MsgBox(&quot;エラーが起きました。&quot;)
End If
-----------------
として処理しています。</description>
		<content:encoded><![CDATA[<p>いつも勉強させて頂いております。<br />
ちょっと行き詰まっております。<br />
ファイルメーカーからエクスポートしたCSVデータを「なでしこプラグイン」で改行処理は出来ますでしょうか？<br />
現在はWSHにて<br />
&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;&#8212;<br />
On Error Resume Next<br />
Dim ReadFile, FileData, Henkan, WriteFile</p>
<p>Set FS = WScript.CreateObject(&#8220;Scripting.FileSystemObject&#8221;)<br />
Set ReadFile =FS.OpenTextFile(&#8220;a.txt&#8221;)<br />
FileData = &#8220;&#8221;<br />
Do Until ReadFile.AtEndOfStream<br />
	FileData = FileData &amp; ReadFile.ReadLine &amp; vbCrLf<br />
Loop<br />
ReadFile.Close</p>
<p>Henkan = Replace(FileData, Chr(11), vbCrLf)</p>
<p>Set WriteFile =FS.CreateTextFile(&#8220;a.txt&#8221;)<br />
WriteFile.Write Henkan<br />
WriteFile.Close</p>
<p>If Err.Number  0 Then<br />
 MsgBox(&#8220;エラーが起きました。&#8221;)<br />
End If<br />
&#8212;&#8212;&#8212;&#8212;&#8212;&#8211;<br />
として処理しています。</p>
]]></content:encoded>
	</item>
</channel>
</rss>

