VBS to a read a ini file value and then appends the changes in that ini file
Question
Answers
-
Hi,
You've already posted in the appropriate forum:
EDIT: Two suggestions though. First, you should switch the thread type over to Question instead of Discussion. Second, you should post what code you've already written and what problems you're having with it. If you don't, you'll likely just be pointed at the sticky post at the top of the forum:
- Edited by Mike Laughlin Tuesday, March 01, 2016 12:52 PM
- Proposed as answer by Dave PatrickMVP, Moderator Tuesday, March 01, 2016 1:39 PM
- Marked as answer by Just KarlModerator Tuesday, March 08, 2016 5:19 PM
All replies
-
Hi,
You've already posted in the appropriate forum:
EDIT: Two suggestions though. First, you should switch the thread type over to Question instead of Discussion. Second, you should post what code you've already written and what problems you're having with it. If you don't, you'll likely just be pointed at the sticky post at the top of the forum:
- Edited by Mike Laughlin Tuesday, March 01, 2016 12:52 PM
- Proposed as answer by Dave PatrickMVP, Moderator Tuesday, March 01, 2016 1:39 PM
- Marked as answer by Just KarlModerator Tuesday, March 08, 2016 5:19 PM
-
0Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set objShell = Wscript.CreateObject("Wscript.Shell")
Const FORREADING = 1
Const FORWRITING = 2
Const FORAPPENDING = 8
Dim sToSearch: sToSearch = "Address="
Dim sFileName: sFileName = "C:\temp\1.ini"
Dim sContent, Found
If Not objFSO.FileExists(sFileName) Then
MsgBox "File Not Found"
WScript.Quit 0
End If
Set TxtFile = objFSO.OpenTextFile(sFileName,FORREADING)
sContent = TxtFile.ReadAll
If InStr(sContent,sToSearch) Then
Found = True
MsgBox "Found"
For i = 1 to 4
TxtFile.ReadLine
Next
strLine = TxtFile.ReadLine
Wscript.Echo strLine
sToSearched = InputBox("Enter your name")
Set TxtFile = objFSO.OpenTextFile(sFileName,FORAPPENDING)
TxtFile.Writeline sToSearch & sToSearched
End If
Set TxtFile = Nothing
If Not Found Then
Set TxtFile = objFSO.OpenTextFile(sFileName,FORAPPENDING)
TxtFile.WriteLine sToSearch
End If
Umeed4u
-
This is the 'Where Is' forum where we suggest forums to post in. We do not supply direct answers here.
