调酒师标签软件中的 VB 脚本

Question

嗨，我正在尝试为我的调酒师标签编写 vb 脚本，任何人都可以帮助我如何实现在字符串中和字符串末尾添加~直到14个字符的空格。

例如，如果我在 text5 中的数据有 012 911 023 L ，那么首先我需要作为 012911023L plurge ，然后我需要添加 ~ 使得该文本 5 中总共有 14 个字符。因此，输出应类似于012911023L~~~~请注意，这不是像 vb 这样的 C# 或简单的脚本，我发现脚本在 barteneder 标签 vb 脚本中是非常不同的。

我的代码如下所示：

Dim sName
Dim fso
Dim fol
' get value from the text5
Set fol = Format.Objects("Text 1").Value
' go thru each files in the folder
For Each fil In fol.Files
    ' check if the file name contains tilde
    If InStr(1, fil.Name, "~") <> 0 Then
        ' replace tilde with space
        sName = Replace(fil.Name, "~", " ")
        ' rename the file
        fil.Name = sName
    End If
Next

对于我的上述脚本，我收到一个名为" OnAutoSelectedEvent (Line 7): Object required: '[string: "sample text"]'

的错误

单击此处查看我的标签文本属性

Answer 1

下面的代码将把我的字符串替换为上面的形式

Value = Replace(Value, " ", "")
Dim length
Dim Trim
length= Len(Value)
length= 14 -length
for d = 0 to length - 1
Value = Value &  "~"
next