Results 1 to 3 of 3

Thread: Find and rename content in csv via VBS

  1. #1
    Join Date
    Apr 2012
    Location
    Europe
    Posts
    7

    Find and rename content in csv via VBS

    Hello.

    I need to open CSV file, find some "string" in a row and rename it.

    For example


    DATE;DEPART;CLASSE;SERVEUR;ERREURS;MESSAGE;SCHEDULE;TYP;DUREE;TAILLE(Kb);FICHIERS;RETENTION;WARS Date ouverture;WARS Date fermeture;Commentaires
    2012-04-22;21:01:25;lala_nbondv02_data;nbondv02;0;the req ops;lmejvd-lala-2sem;lalaérentielle;00:12:53;1909225;1447;2 Sem
    2012-04-22;21:00:00;lala_nbondv02_sys;nbondv02;0;the req ops;lmmjvd-lala-2sem;lalaérentielle;00:03:58;371778;2184;2 Sem
    2012-04-22;21:00:59;lala_nbondv03_data;nbondv03;0;OK;lmejvd-lala-2sem;lalaérentielle;00:07:49;892604;6695;2 Sem
    2012-04-22;21:00:00;lala_nbondv03_sys;nbondv03;0;OK;lmmjvd-lala-2sem;lalaérentielle;00:08:38;1209603;399;5 Sem
    2012-04-22;21:00:57;lala_nbondv04_data;nbondv04;0;OK;lmejvd-lala-2sem;lalaérentielle;03:22:41;135497795;300;2 Sem
    And I need to find string "the req ops" and change it for "OK"

    Is it possible ?

    I have some part of the code but not sure how to modify it.


    Code:
    Function OK()
    
    Const ForReading = 1
    Const ForWriting = 2
    
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("C:\Rapport.csv", ForReading)
    
    Do Until objFile.AtEndOfStream
        strLine = objFile.ReadLine
        If InStr(strLine, "the req ops") Then
            InStr(strLine, "OK")
        End If
    Loop
    
    objFile.Close
    
    Set objFile = objFSO.OpenTextFile("C:\Rapport.csv", ForWriting)
    
    objFile.Write strNewContents
    objFile.Close
    
    End Function

    but it failing... could you help ?

  2. #2
    Join Date
    Jan 2006
    Posts
    605

    Re: Find and rename content in csv via VBS

    Test the below code and your problem will be solved:

    Code:
    Const ForReading = 1 
    Const ForWriting = 2  
    strFileName = "C:\Rapport.csv" 
    strOldText = "the req ops" 
    strNewText = "OK" Set objFSO = CreateObject("Scripting.FileSystemObject")  
    Set objFile = objFSO.OpenTextFile(strFileName, ForReading) 
    strText = objFile.ReadAll 
    objFile.Close strNewText = Replace(strText, strOldText, strNewText) 
    Set objFile = objFSO.OpenTextFile(strFileName, ForWriting) 
    objFile.WriteLine strNewText 
    objFile.Close

  3. #3
    Join Date
    Apr 2012
    Location
    Europe
    Posts
    7

    Re: Find and rename content in csv via VBS

    Quote Originally Posted by janos™ View Post
    Test the below code and your problem will be solved:

    Code:
    Const ForReading = 1 
    Const ForWriting = 2  
    strFileName = "C:\Rapport.csv" 
    strOldText = "the req ops" 
    strNewText = "OK" Set objFSO = CreateObject("Scripting.FileSystemObject")  
    Set objFile = objFSO.OpenTextFile(strFileName, ForReading) 
    strText = objFile.ReadAll 
    objFile.Close strNewText = Replace(strText, strOldText, strNewText) 
    Set objFile = objFSO.OpenTextFile(strFileName, ForWriting) 
    objFile.WriteLine strNewText 
    objFile.Close
    Thank you.

    I'll check this

Similar Threads

  1. Where can I find Content.MSO folder
    By The-Farmer in forum MS Office Support
    Replies: 3
    Last Post: 17-01-2014, 09:03 AM
  2. Cannot find content.ie5 on Windows 7
    By Delightful. in forum Operating Systems
    Replies: 5
    Last Post: 30-04-2011, 10:35 AM
  3. Cannot find downloadable content for Dragon Age 2
    By Danger Dengue in forum Video Games
    Replies: 4
    Last Post: 11-03-2011, 03:08 AM
  4. Replies: 4
    Last Post: 01-02-2011, 09:32 AM
  5. How to find similar Webpage content in Firefox?
    By abigial_i in forum Technology & Internet
    Replies: 5
    Last Post: 12-02-2010, 07:42 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •