Database Search

TechHome

• !!Processing Templates Files with BinaryTag - Insider Tech Notes
• Binary Sort Two Different Fields
• BinaryPeek versus BinaryPeekStr
• BinaryPoke and Bit Swapping Discussion
• BinaryRead File Line by Line
• BinaryReplace With NULL Characters
• BinarySort Considerations
• BinarySort Example
• BinaryXlate Explanation
• Convert to UTF-8
• Could Not Allocate Binary Buffer Error
• Create Zero Length Binary Value
• CryptAcquireContext Gets a Handle to a Key Container within a CSP
• Example of Keeping Track of Multiple Pointers
• Extract Line 79 from a File
• Insert a Delimiter Every 5 Chars
• Nested Binary Sort
• Offset beyond binary EOD
• Parsing Dilemma
• Remove Line from File that Contains a string
• Remove Line from File
• Replace First Instance of a String in a File
• Retrieve last line from a File
• Search and Replace Another Example
• Search and Replace in Binary Buffer
• Splitting Registry Binary Entry for Writing to INI File
• System Ini writing multiple device lines to
• System.Ini and Device lines
• Use Binary Functions to Edit INI Files
• Use BinaryRead Like FileRead
• Using BinaryPeek to Find Null 00 Character

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Replace First Instance of a String in a File

#DefineFunction ReplaceFirstString(str, replacestr, dafile)
	;***************************************
	;Replace first instance of a string in a file
	;***************************************
	;allocate and read in original file to buffer
	dafilesize = FileSize(dafile)
	buf1 = BinaryAlloc(dafilesize)
	BinaryRead (buf1, dafile)
	;allocate extra large secondary buffer
	buf2 = BinaryAlloc(dafilesize-StrLen(Str)+StrLen(replacestr))
	
	;find offset of the 'str' variable 
	offset = BinaryIndexEx( buf1, 0, str, @FWDSCAN, 0)
	;check if string not found
	if offset==-1 then return(0)
	
	if offset !=0
		;copy everything up to the offset of the 'str' variable
		bytescopied = BinaryCopy (buf2, 0, buf1, 0, offset)
	endif
	
	;insert replacement string in secondary buffer
	BinaryPokeStr(buf2, offset, replacestr)
	
	
	;copy the rest of the original buffer to the secondary buffer
	srcoffset = offset+StrLen(str)
	targetoffset = offset+StrLen(replacestr)
	remaining = BinaryEodGet(buf1)-srcoffset
	if remaining != 0 ;Check if end of buffer
	   BinaryCopy (buf2, targetoffset, buf1, srcoffset, remaining)
	endif
	
	;write out the updated file
	BinaryWrite (buf2, dafile)
	
	;clean up 
	BinaryFree(buf2)
	BinaryFree(buf1)
	
	return(1)
#EndFunction

;keep backup of original file and copy over
FileCopy ("c:\temp.old","c:\temp\temp.txt",@False)

dafile="c:\temp\temp.txt"

str = "READONLYMODEON=N"
replacestr = "READONLYMODEON=Y"
ReplaceFirstString(str, replacestr, dafile)


str = "READONLYMODEOFF=N"
replacestr = "READONLYMODEOFF=Y"
ReplaceFirstString(str, replacestr, dafile)

str = "KEYWORD=N"
replacestr = "KEYWORD=Y"
ReplaceFirstString(str, replacestr, dafile)

str = "HEADINGS=N"
replacestr = "HEADINGS=Y"
ReplaceFirstString(str, replacestr, dafile)
Exit

Article ID:   W15893

File Created: 2004:03:30:15:41:30

Last Updated: 2004:03:30:15:41:30