08. maj 2003 - 19:42
Der er
1 kommentar og
1 løsning
Editere string med vbs script
Jeg skal hente ut en string, og deretter endre denne. Jeg ønsker å hente ut bokstav 1, 4 og 6, og deretter sette disse bokstavene sammen til en ny string. Jeg skal deretter rename en fil til den nye stringen. Jeg ønsker å gjøre dette med et .vbs script.
Er det noen som kan hjelpe meg med dette ?
Du kan bruge Mid til at hendte en karakter.:
str = "abcdefghijkl"
'Lig karakter 1,4 og 6 ind i en ny streng
nyStr = Mid(str,1,1) & Mid(str,4,1) & Mid(str,6,1)
Så indeholder nyStr : "adf"
Så kan du bruge FileSystemObject (FSO) til rename filen:
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "FilnavnetNu.txt", nyStr & ".txt"