我正在努力在M中創建一個讀取某種格式名稱輸入的程序。一旦用戶放置一個空值，它將打印出所有的值。我陷入困境的是讀入全局變量。我期待着我可以收到的任何投入。 n prompt,val,done
s prompt="Enter a name (LAST,FIRST MI): "
s val="" f in=1:1 s val=$O(^ZNAME(val)) q:val="
我想弄清楚下面遍歷全局的最佳方法是我寫的。 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
如果名
而不是象我在下面的代碼中那樣使用硬編碼調用，是否可以在For循環中使用WRITE命令來打印每個字符的使用次數？下面是我寫的，它會給我「A = n」，但是如果沒有硬編碼，我想是「A = n」，「B = n」等等。 CHARCOUNT
n str
f r !,"Enter patient's name: ",str q:str="" d
. s ^XPTNAME(str)=""
w #
f