Missing numbers when generating host names...

[Cyborg5000]

Hello i need a pointer for this piece of code.

 

Local $sHost = "vw-aus-domdv999" ; FileRead("Test.txt")  ; prefix can be anything
IncrementHostName($sHost)
ConsoleWrite($sHost & @CRLF)
; FileWrite("Test2.txt", $sHost)

Func IncrementHostName(ByRef $sName)
  Local $vLast = StringRight($sName, 3)
  Local $vFirst = StringLeft($vLast, 1)
  $vLast = Number(StringRight($vLast, 2)) + 1
  If $vLast > 99 Then
    $vLast = 1
    $vFirst = Chr(Asc($vFirst) + 1)
    If $vFirst = ":" Then $vFirst = "a" ; change to letter
    If $vFirst = "{" Then $vFirst = "0" ; start all over again
  EndIf
  $sName = StringTrimRight($sName, 3) & $vFirst & StringFormat("%02i", $vLast)
EndFunc   ;==>IncrementHostName

The host names generates just fine with the above code, however if the host name has vw-aus-domdv099, it skips -domdv100 and so on at each generation.

another example is if the host name is vl-pun-domqa599 it will skip vl-pun-domqa600 and directly give vl-pun-domqa601 and so on....
 

i tried adding and modifiying some combinations, but nothing has changed so far.....

 

[ad777]

@Cyborg5000

the problem lies in:$vLast = 1

you have to change it to:$vLast = 0

[Nine]

It is because you now have 3 digits at end, before you had only 2.  Last must stay at 1. (not 0 as suggested).

Will that be always the case (to have 3 digits) or do you need to take into account that sometimes there will be 2 and sometimes there will be 3 ?

Ok, I think I understand the issue.  When the 3rd char before end is numeric you want to continue with 0, but when the 3rd char is alphabetic you want to restart at 01, right ?

ex : a99 will be incremented at b01 while 599 should be incremented to 600.

 

Edited March 30, 2022 by Nine

[jchd]

Another way, works whatever number of trailing digits but doesn't expect digits in-between the leading part:

Local $sHost = "vw-aus-domdv1115"
IncrementHostName($sHost)
ConsoleWrite($sHost & @CRLF)

Func IncrementHostName(ByRef $sName)
  Local $aSplit = StringRegExp($sName, "^(\D+)(\d*)$", $STR_REGEXPARRAYMATCH)
  $sName = $aSplit[0] & StringFormat("%03i", $aSplit[1] + 1)
EndFunc   ;==>IncrementHostName

 

[jchd]

Yes but the issue with the OP's specification is that it isn't an increasing function. The successor of vw-aus-domdvz99 should be vw-aus-domdv001, making a huge step backward in the (increasing) list of already generated names.

I believe this weird naming scheme has already been discussed here.

2 hours ago, Cyborg5000 said:

another example is if the host name is vl-pun-domqa599 it will skip vl-pun-domqa600 and directly give vl-pun-domqa601 and so on....

Now this should give 3 digits ? Spec is inconsistant.

[Nine]

@jchd See my edited post.  I believe this is what OP wants...

[jchd]

Let's wait for OP decision...