0

我试图找出遍历以下全局的最佳方法是我所写的。

s X="^ZNAME"
r !,"Please insert a name or a portion of a name: ",str
d {
      s X=$Q(@X) Q:X=""
      i X[str!(@X[str) 
      {
          w !,X
      }
  } While X'=""
q

^ZName(subscript)如果名称或名称的一部分与全局匹配，我会收到以下结果。你们建议什么是仅提取下标的最佳方法？我在想$Eor $P，但我认为它不够具体。另外，如果有任何其他书籍或网站可以很好地指导M，我很想知道并非常感激。感谢您的所有帮助。

4

3 回答 3

2

首先，您应该查看官方文档，它可以在托盘中的立方体菜单中找到。然后你应该看看你在这里使用的$QUERY和 $ORDER. 因此，这两个功能之间存在很大差异。$Query 用于对全局进行全扫描，而 $Order 仅用于一级。如果您仍想通过 $Query 进行扫描，您可以查看$QSubscript函数，它可以帮助您获取特定下标的值。
使用 $order，它可能看起来如此

set index=""
for { 
  set index=$order(@X@(index))
  quit:index=""

  write !,index

  // and for next level
  set index2=""
  for {
    set index2=$order(@X@(index, index2))
    quit:index2

    write !?5,index2
  }
}

此外，您可能会在新的开发者社区门户中发现一些有趣的东西。并在此处获得一些 InterSystems 的在线课程。

于 2016-03-18T20:48:16.607 回答
2

%Global 类中有一个Find查询。查询返回包含 FindWhat 的节点，每行一个节点，有四列，分别是 Name、Value、Name Format 和 Value Format。用于##Class(%Library.Utility).Replace将 FindWhat 替换为 ReplaceWith。

名称格式：

  1. 字符串格式，这是下标不变的值
  2. 缓存格式，该值已转换为缓存表示形式以便于查看，例如，列表显示为“$lb(1,"test")'，而不是显示二进制值。这种格式适合作为 $name 的参数。

值格式：

  1. 字符串格式，这是不变的值
  2. 缓存格式，该值已转换为缓存表示形式以便于查看，例如，列表显示为“$lb(1,"test")'，而不是显示二进制值。

在输出时，名称格式和值格式可能采用第三个值，即 3，表示“不可编辑”。由于此数据的长度问题，并非所有数据都可以显示，因此显示了一部分。

于 2016-03-18T21:47:08.383 回答
0 
SEARCH(where,what)
        ; Search string in a Global or Array
        I $G(where)="" Q
        I $G(what)="" Q
        F  S where=$Q(@where) Q:where=""  D
        .       I ((where[what)!(@where[what)) D
        ..              W where,"=",@where,!
        ..              W $E(where,$F(where,"("),$L(where)-1),!
        Q

要提取下标（键或键，因为可以存在多个）我会使用 $E 和 $F 因为当“（”或“）”是下标的一部分时会出现问题。

W $E(where,$F(where,"("),$L(where)-1)

在 GTM 上测试。

正常输入：

GTM>ZWR ^ZNAME
^ZNAME("first,last")="Second Street"
^ZNAME("name,surname")="First Street"

GTM>D SEARCH^ZZTEST("^ZNAME","last")
^ZNAME("first,last")=Second Street
"first,last"

GTM>D SEARCH^ZZTEST("^ZNAME","Street")
^ZNAME("first,last")=Second Street
"first,last"
^ZNAME("name,surname")=First Street
"name,surname"

GTM>D SEARCH^ZZTEST("^ZNAME(""first,last"")","Street")
^ZNAME("name,surname")=First Street
"name,surname"

GTM>D SEARCH^ZZTEST("^ZNAME",",sur")
^ZNAME("name,surname")=First Street
"name,surname"

作为奖励，您还可以使用它来搜索本地数组： 

GTM>ZWR ARRAY
ARRAY(1)="Apple"
ARRAY(1,1)="Apple pie"
ARRAY(2)="Orange"

GTM>D SEARCH^ZZTEST("ARRAY","Apple")
ARRAY(1)=Apple
1
ARRAY(1,1)=Apple pie
1,1

GTM>D SEARCH^ZZTEST("ARRAY","pie")
ARRAY(1,1)=Apple pie
1,1

无效输入也没有问题：

GTM>K ARRAY

GTM>D SEARCH^ZZTEST("ARRAY","Apple")

GTM>D SEARCH^ZZTEST("ARRAY","")

GTM>D SEARCH^ZZTEST("ARRAY",)

GTM>D SEARCH^ZZTEST("ARRAY")

GTM>D SEARCH^ZZTEST()

GTM>D SEARCH^ZZTEST("^ZDOESNOTEXIST")

处理下标中的“（”和“）”：

GTM>ZWR ARRAY
ARRAY("()")=1
ARRAY("1(")=1
ARRAY("1()")="Orange"
ARRAY("1)")="Apple"

GTM>D SEARCH^ZZTEST("ARRAY","()")
ARRAY("()")=1
"()"
ARRAY("1()")=Orange
"1()"

GTM>D SEARCH^ZZTEST("ARRAY","Apple")
ARRAY("1)")=Apple
"1)"
于 2016-03-19T23:27:17.490 回答