VBScript string replace with range instead of string?

Question

Replace() already exists, but that function takes strings as parameters. I need range.

In my string there are two \"strings\" that are 10 characters long. Greger with 6

Answer 1

If they're always going to be 10 chars, just pad the names.

strNameFind    = "Greger"
strNameReplace = "googlioa"

' Pad the names...
strNameFind    = Left(strNameFind    & Space(10), 10)
strNameReplace = Left(strNameReplace & Space(10), 10)

MyString = Replace(MyString, strNameFind, strNameReplace)

Alternatively, if you don't want to determine the existing name, just pad your new name appropriately and add the remainder of your string:

' Pad the new name to fit in a 10-char column...
strNameReplace = "googlioa"
strNameReplace = Left(strNameReplace & Space(10), 10)

' Update the record...
MyString = strNameReplace & Mid(MyString, 11)