VBS to a read a ini file value and then appends the changes in that ini file

All replies

• 

  

  0

  Sign in to vote

  Hi,

  You've already posted in the appropriate forum:

  https://social.technet.microsoft.com/Forums/scriptcenter/en-US/a22ffca3-5a16-4b91-8c69-e80ce4156bbf/vbs-to-a-read-a-ini-file-and-then-do-the-changes-in-that-ini-file-as-per-requirment?forum=ITCG

  ---

  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:

  https://social.technet.microsoft.com/Forums/scriptcenter/en-US/c47b1bc2-f7fd-4d2e-8ff2-e8a81ce090d4/this-forum-is-for-scripting-questions-rather-than-script-requests?forum=ITCG

  ---

  

  • Edited by Mike Laughlin Tuesday, March 1, 2016 12:52 PM
  • Proposed as answer by Dave PatrickMVP, Moderator Tuesday, March 1, 2016 1:39 PM
  • Marked as answer by Just KarlModerator Tuesday, March 8, 2016 5:19 PM

  Tuesday, March 1, 2016 12:42 PM

  Reply

  |

  Quote
• 

  

  0

  Sign in to vote

  

  

  0

  Set 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

  Tuesday, March 1, 2016 1:58 PM

  Reply

  |

  Quote
• 

  

  0

  Sign in to vote

  Please suggest on the above code..

  ---

  Umeed4u

  Tuesday, March 1, 2016 2:01 PM

  Reply

  |

  Quote
• 

  

  0

  Sign in to vote

  This is the 'Where Is' forum where we suggest forums to post in. We do not supply direct answers here.

  ---

  

  Tuesday, March 1, 2016 2:26 PM

  Reply

  |

  Quote