tcl

0熱

2答えて

TCLで何らかの理由で40x12を抽出できないようです。これに関する助け？ set l "zzzzzmbl01a40x12bbbbbbb" set prefix "zzzzz" if {[regexp "^${prefix}(.+)(l01|l02|l03|l04).+(\d+x\d+).+$" $l match var1 var2 var3]} { puts $var1 puts $va

0熱

1答えて

TCLOO：プライベートメソッドとメソッドコールバックとして

Tcloo（自己コンパイルされたTCL 8.6.7）を使用して、クライアントソケットを実装しました。私はfolowing問題があります：私はどのように唯一のオブジェクト指向を使用して宣言が::私はのためのイベントコールバックとしてクラスのメソッドを登録するにはどうすればよいクラスを作成するときにメソッドをプライベートにすることができをソケット私は次のことを試してみました：ちゃんイベント$

0熱

2答えて

TCL TCL CスレッドとTCLスクリプトスレッドからvwait変数を設定する

My C++アプリケーションはTCL（8.6.7）を組み込み、同時に名前付きパイプ（dll）とTCPソケット（TCLスクリプト）を介してデータを取得する必要があります。パイプとソケットを介して同時にデータを取得するためにTCLスレッドを使用したいと思います。 TCL C API経由の1つのスレッド（threadPipe）は、名前付きパイプからのデータ読み取りを管理し、別のスレッドはTCLスクリプト

-4熱

1答えて

テキストファイル内の文字列を検索し、検索した文字列の後ろに行を出力します

文字列のテキストファイルを検索するソリューションを探しています。「Hello」と言いましょう。新しいテキストファイルにテキストファイル、それが全体の行の次の行とプリントにスキップたとえば、テキストファイルの内容： Hello password:xxxxx user:xxxxx Foo password:xxxx user:xxxxxx Foo password:xxxxx user

0熱

1答えて

tcl tablelist特定のエントリを持つすべての行を削除する

テーブルリストを持つ最初の列に文字列を含むすべての行を削除したいとします。 set Joints [.dsm.nb.f11.jointData_f11 getcolumns cJoint ] set killrow 0 foreach Joint $Joints { if { $Joint eq "" } { .dsm.nb.f

0熱

1答えて

TCLパッケージのテスト。効率のために調整する

私はパッケージを書いた/書き直して、完全にテストしたいと思います。特に、大量のデータがパッケージにロードされると、クロールが遅くなります。私はテストのためにwiki.tcl.tk でコードを掲載しているあなたは12列& 10,000行を持っていることを前提としています。私が問題に遭遇したはTcl2ExXML::outputXMLです。これをテストし、どこでクロールしているかを修正するにはどう

0熱

1答えて

TCLエラー： ":: streamID（1,10,1）"を設定できません：変数は配列ではありません

スレッドCant read variable, isnt arrayを読みましたが、何とか関連していると思いますが、どうやって？次のTCLスニペットでは、3次元配列::ストリームがテストされ、値が読み取られます。配列にスカラーID値が含まれています。スニペットの最後の行は$ NEXTIDがスカラー以外のものであり、それはスカラーの3次元配列に入れることができない can't set "::stre

0熱

1答えて

スクリプトがローカルファイルを参照しているときに、他のディレクトリからtclスクリプトを実行する

2つ以上のスクリプトがあります。スクリプトA #Script A setenv K1 V1 スクリプトB #Script B source "script A" # some code 私はその場所その作業罰金からスクリプトBを実行します。 _> /いくつか/その他/場所/＃TCLSH pathtoscriptB/script.tcl これは、ファイルを読み込むことができませんでし