207... 😒
197 if we can get rid of phrase and change return to short quit
ClassMethod ToKeyPad(phrase) As %String
{
S t=$ZCVT(phrase,"U") F i=2:1:9 {F j=1:1:$S("79"[i:4,1:3) S b($C($I(s)+64))=i_j,b(i)=i_j+1} S r="" F i=1:1:$L(t) {S a=$E(t,i) S:a=" " r=r_0 S:"01"[a r=r_a_a F j=1:1:$E($G(b(a)),*) S r=r_$E(b(a))} return r
}Certifications & Credly badges:
Christian has no Certifications & Credly badges yet.
Global Masters badges:
Christian has no Global Masters badges yet.
Followers:
Christian has no followers yet.
Following:
Christian has not followed anybody yet.
Hi @Philippe Ebinger,
take a look into the %Studio.Project class, there is a method called Export, which gives you exactly what you need on the console like:
Set project = ##class(%Studio.Project).%OpenId("MyProject") Do project.Export("MyProject.xml")<Class name="MyProject.M">...</Class> <Project name="MyProject"...</Project> <Class name="MyProject.Pendenz">...</Class> <Class name="MyProject.Protokoll">...</Class>