保持字符串 VBScript ASP 经典中的前导零

Question

我有一个包含字母和数字的字符串。字符串类似于 "PST025"、"PST026" 等...

我想做的是从 table 中取出最后一个字符串并创建下一个数字。所以如果最后一个字符串是"PST026"，我需要创建一个新的字符串"PST027"。

我有以下代码：

strAsset = rsStandards("asset") 
nextAsset = CStr((Mid(strAsset,4,3)))
nextAsset = nextAsset + 1

问题是 "nextAsset' gives me "27" 而不是 "027"。我需要保留前导 1。

任何想法。

Answer 1

strAsset = rsStandards("asset") 
nextAsset = Mid(strAsset, 4, 3)
nextAsset = CInt(nextAsset) + 1   ' it would be smart to should check IsNumeric() here
nextAsset = Left(strAsset, 3) & Right("00" & nextAsset, 3)

保持字符串 VBScript ASP 经典中的前导零

Keeping leading zero from a string VBScript ASP Classic

vbscript