Vista - How to extract sub-strings?

How can I extract substrings from strings?

Especially I am searching for methods to...

1.) extract a substring with a known start position until the unknown end of the source string

2.) extract the last 3 chars of a string of unknown length

Thomas

Hi Thomas,
var = Mid(string, 3, Len(string)- 3)+1)

Here ia a little Testsctipt...

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(".")
For Each oFile In oFolder.Files
sFilename = Left(oFile.Name, InStr(oFile.Name, ".") -1)
sEndung = Mid(oFile.Name, InStr(oFile.Name, "."), _
Len(oFile.Name)- InStr(oFile.Name, ".")+1)
sFilename = sFilename & "1" & sEndung
If MsgBox("Datei """ & oFile.Name & """ wird in """ _
& sFilename & """ umbenannt.", _
1, "Bestätigung") <> 1 _
Then WScript.Quit
If Not oFSO.Fileexists(sFilename) Then
oFSO.CopyFile oFile, sFilename
End If
Next
var = right(string, 3)

HTH

Dirk

"Thomas Lebrecht" <t.lebrecht@xxxxxx> wrote in message
news:49cddb29$0$31346$9b4e6d93@xxxxxx-online.net...I recommend you download the file script56.chm. It lists all basic VB Script
functions, with examples.

"Dirk Stegemann" <dsgrafik@xxxxxx> wrote in message
news:u0WGgD4rJHA.5912@xxxxxxend of the source stringThe number of characters to read is optional. If omitted, Mid will read to
the end of the string by default.

var = Mid(string, startposition)

--
Todd Vargo
(Post questions to group only. Remove "z" to email personal messages)