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"