1

我试图借助允许与其他应用程序进行第 3 方集成的向导来配置 .net 医疗保健应用程序中的按钮。

该过程已记录在案，包括由制造商 (siemens) 制作并以 IT 管理员身份分发给我的 PDF 文档中的脚本。

我现在尝试配置集成按钮，幸运的是，作为向导的一部分，有一个测试按钮可以验证脚本 - 它正在返回错误：

“表达式是一个值，因此不能成为赋值的目标”

我没有编程经验，所以我希望某种鞋底能给我一些指示：

这是脚本：

选项严格关闭

进口系统

导入 System.Windows.Forms

Module Script
Sub Main()
dim patientId as string
dim accessionNumber as string
dim parameters as string
dim strFiles as string

' 从工作搜索或高级搜索列表中的当前
'选定行中获取患者 ID 和登录号

patientId = ScriptApplication.GetValueFromContextServer(1)
accessionNumber = ScriptApplication.GetValueFromContextServer(2)

strFiles = (System.Environment.GetFolderPath(environment.SpecialFolder.ProgramFiles))

  'create command

     Command = strFiles + "\Siemens\syngo\bin\ialauncher.exe"
    'parameters = "-type READ -l SYNGOVIA\jbrea -p jbrea -a " + accessionNumber
   parameters = "-type READ -lwwc -a"+ accessionNumber

' 启动命令

System.diagnostics.process.start(command, parameters)  
 End Sub

端模块

“创建命令”下面的行似乎是导致问题的原因。这是应该启动的可执行文件，在 ialauncher.exe 中显示相同的患者

提前致谢

\法兰德斯

4

2 回答 2

3

我添加了缺少的代码。我希望它有所帮助。（只需删除它旁边的评论。） 

Option Strict Off

Imports System

Imports System.Windows.Forms

Module Script
Sub Main()
dim patientId as string
dim accessionNumber as string
dim parameters as string
dim strFiles as string
dim Command as string  'add this to your code.

' get the patient ID and accession number from the currently
'selected row in the list of job search or advanced search

patientId = ScriptApplication.GetValueFromContextServer(1)
accessionNumber = ScriptApplication.GetValueFromContextServer(2)

strFiles = (System.Environment.GetFolderPath(environment.SpecialFolder.ProgramFiles))

  'create command

     Command = strFiles + "\Siemens\syngo\bin\ialauncher.exe"
    'parameters = "-type READ -l SYNGOVIA\jbrea -p jbrea -a " + accessionNumber
   parameters = "-type READ -lwwc -a"+ accessionNumber

' launch command

System.diagnostics.process.start(command, parameters)  
 End Sub 

End Module
于 2012-06-19T23:49:16.143 回答
1

Command 变量是什么类型？我敢打赌它不是一个字符串，它应该是。

在我能看到的任何地方都没有 DImensioned，所以请尝试添加

将命令调暗为字符串

就在 strFiles 的 Dim 下方。

于 2012-06-19T21:31:13.580 回答