53687_zh-CN

liliconcom

文本浏览器：从短语列表中选择脚本

在“文本资源管理器”窗口中，您可以右键单击将选择数据库中行的短语。  我该如何编写此功能的脚本？我想要做的是在文本资源管理器窗口中选择前三个短语，以便对表进行子集化。

 

Re：Text Explorer：从短语列表中选择脚本

谢谢！这就像一个魅力。:)

Re：Text Explorer：从短语列表中选择脚本

同样小写：Dispo Text，项目可能已经是小写。  

 

dt1 <SPAN class="token operator"><</SPAN><SPAN class="token operator"><</SPAN> Select Where<SPAN class="token punctuation">(</SPAN><SPAN class="token function">contains</SPAN><SPAN class="token punctuation">(lowercase(</SPAN><SPAN class="token punctuation">:</SPAN>DISPO <SPAN class="token function">TEXT)</SPAN><SPAN class="token punctuation">,</SPAN> items<SPAN class="token punctuation">[</SPAN>i<SPAN class="token punctuation">]</SPAN><SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">,</SPAN> current selection<SPAN class="token punctuation">(</SPAN><SPAN class="token string">"extend"</SPAN><SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">)</SPAN><SPAN class="token punctuation">;</SPAN>

Re：Text Explorer：从短语列表中选择脚本

文斯，谢谢你的回复...... 它似乎有时工作但包含函数区分大小写。  我试图将物品强制为小写但是当它们与大小写混合时仍然没有被选中。

 

 

lowercase(items[1]);
lowercase(items[2]);
lowercase(items[3]);
 
　
for(i=1, i<=3, i++,
dt1 << Select Where(contains(:DISPO TEXT, items[i]), current selection("extend"));
);

 

 

有任何想法吗？

Re：Text Explorer：从短语列表中选择脚本

可能应该首先阅读整个问题。   

 

Names Default to here(1);
dt = open("$SAMPLE_DATA\Aircraft Incidents.jmp");
te = dt << Text Explorer(
 Text Columns( :Final Narrative ),
 Set Regex(
  Library( "Domain names" ),
  Library( "Money" ),
  Library( "Words" ),
  Library( "HTML Link Grabber" ),
  Library( "\[Bang!!! cleaner]\" ),
  Library( "Time" ),
  Library( "Numbers" )
 ),
 Language( "English" )
);

rep = te << report;

scb = (rep << xpath("//StringColBoxHeader[text()='Phrase']/.."))[1]; // finds the phrase string col box
items = scb << Get; // gets the values

for(i=1, i<=3, i++, 
 dt << Select Where(Contains(:Final Narrative, items[i]), current selection("extend"));
);

希望这对你有用。