因为要批量将字符串转化为数值，需要做一个类似于TIA 里STRG_VAL的函数，即将类似"12.22mm/s"转化为数值12.22，功能可以实现，脚本提示非法赋值，不知道该怎么做返回值，代码如下：
Sub StringVal(strIn)
Dim j
For j =Len(strIn) To 1 Step -1
If IsNumeric(Mid(strIn,j,1)) Then
Msgbox Left(strIn,j)
StringVal=Left(strIn,j)
Exit For
End If
Next
End Sub
老账号找不回来了，金币有限，谢谢
问题补充：
StringVal=Left(strIn,j)
这句有问题，VB里的函数返回值可以这样做，WINCC里的不知道该怎么写，网上也查不到
图片说明：
最佳答案
你可以试试function 而不是用sub
提问者对于答案的评价：
定义为
Function **（）
**
End Function
解决了
原创文章，作者：ximenziask，如若转载，请注明出处：https://www.zhaoplc.com/plc356262.html
微信扫一扫 
支付宝扫一扫