Sign in
Microsoft.com
 
Microsoft
 
 
 

none
How to get all the Parameters of my file ? RRS feed

 > 

  • Question

  • Question
    Sign in to vote
    0
    Sign in to vote

    Hello,

    I have the below VBScript; 

        
row=8		
Do While ((row < 21) AND (row <> 17) AND (row <> 12))
col=5	
PARAM_POC=Replace(objXLWs.Cells(row, 1).Text,vbLf,"<br>")
if row = 8 then PARAM_POC="Sales with Warranty"
end if
if row = 9 then PARAM_POC="Cost of Sales with Warranty"
end if 
if row = 10 then PARAM_POC="Gross Profit with Warranty"
end if 
if row = 11 then PARAM_POC="Gross Profit with Warranty in % of Sales"
end if
if row=13 then  PARAM_POC="Warranty Cost"
end if
if row=14 then PARAM_POC="Warranty as % of Cost"
end if
if row=15 then PARAM_POC="GP without Warranty Cost"
end if
if row=16 then PARAM_POC="GP% without Warranty"
end if			
if row=18 then PARAM_POC="ERP COG"
end if		
if row=19 then PARAM_POC="ERP Cost of Sales"
end if
if row=20 then  PARAM_POC="Check Warranty"
end if
Header_1_POC="Order Entry Calc"
Header_2_POC="Budget"
Value_POC=Replace(objXLWs.Cells(row, col).Text,vbLf,"<br>")

All_Record_POC= Project_Number & delimter & PARAM_POC & delimter & Header_1_POC & delimter & Header_2_POC & delimter & Value_POC &delimter&Region&delimter&Customer_Name&delimter&objFile.Name 

filetxt_POC.WriteLine(All_Record_POC)		

row = row + 1
Loop

    My output shows only Param_POC = "Sales with Warranty", "Cost of Sales with Warranty", "Gross Profit with Warranty", "Gross Profit with Warranty in % of Sales" only. 

    What I am doing wrong in my script? 

    thanks

    Bhavesh

        
    • Moved by Bill_Stewart Thursday, December 13, 2018 3:26 PM Unanswerable drive-by question
    Thursday, September 20, 2018 1:52 PM
    |

All replies

  • Question
    Sign in to vote
    0
    Sign in to vote

    You need to fix you syntax.  If you place the code on the "if" line then you cannot use "End If"

    This:

    if row = 8 then PARAM_POC="Sales with Warranty"

    or this:

    if row = 8 then
         PARAM_POC    ="Sales with Warranty"
    end if

    A "Select" statement would be cleaner.

    \_(ツ)_/



    • Edited by jrv Thursday, September 20, 2018 5:56 PM
    Thursday, September 20, 2018 5:56 PM
    |
  • Question
    Sign in to vote
    0
    Sign in to vote

    I have used the below code, but still, all parameters are not populating. 

    row=8
    Do While ((row < 21) AND (row <> 17) AND (row <> 12))
    col=5
    PARAM_POC=Replace(objXLWs.Cells(row, 1).Text,vbLf,"<br>")
                        if row = 8 then 
    PARAM_POC="Sales with Warranty"
    end if 
    if row = 9 then
    PARAM_POC="Cost of Sales with Warranty"
    end if 
    if row = 10 then 
    PARAM_POC="Gross Profit with Warranty"
    end if 
    if row = 11 then 
        PARAM_POC="Gross Profit with Warranty in % of Sales"
    end if 
    if row=13 then
               PARAM_POC="Warranty Cost"
    end if
    if row=14 then
               PARAM_POC="Warranty as % of Cost"
    end if
    if row=15 then
               PARAM_POC="GP without Warranty Cost"
    end if
                if row=16 then
               PARAM_POC="GP% without Warranty"
    end if
    if row=18 then
               PARAM_POC="ERP COG"
    end if
    if row=19 then
               PARAM_POC="ERP Cost of Sales"
    end if
    if row=20 then
               PARAM_POC="Check Warranty"
    end if
    Header_1_POC="Order Entry Calc"
    Header_2_POC="Budget"
        Value_POC=Replace(objXLWs.Cells(row, col).Text,vbLf,"<br>")

       All_Record_POC= Project_Number & delimter & PARAM_POC & delimter & Header_1_POC & delimter & Header_2_POC & delimter & Value_POC &delimter&Region&delimter&Customer_Name&delimter&objFile.Name 
     
            '   Wscript.Echo   All_Record_POC

               'filetxt.WriteLine(All_Record_POC)
       filetxt_POC.WriteLine(All_Record_POC)

    row = row + 1
    Loop

    Thursday, September 20, 2018 7:15 PM
    |
  • Question
    Sign in to vote
    0
    Sign in to vote

    What parameters are you referring to?

    If you do not know VBScript then you should be using PwoerShell. Don't waste time trying to learn an obsolete tool.

    \_(ツ)_/

    Thursday, September 20, 2018 7:18 PM
    |