VB script help

Hi,

I have a VB script that needs to be modified.

The script is supposed to get the sum of price and shipping from several sellers on Amazon and re-price my item against the smallest sum.

See below the portion that has to be modified.  

There is a lists the properties and methods available that I can provide .

Thanks,
akiles

' Find the lowest seller that is not me
    '
    LowSeller = ""
    For i = 0 To .sellerspassed - 1
        If .sellername(i) <> .mynickname Then
            LowSellerPrice = .sellerprice(i)
            LowSeller = .sellername(i)
            Exit For
        End If
    Next
    If LowSeller <> "" Then
         ' Deal with at least one seller found
        If InStr(1,Sellers,LowSeller & ";", vbTextCompare) <> 0 Then
            '
            ' Find the seller in the array
            '
            LowSellerArray = Split(Sellers, ";")
            LowShipCostArray = Split(ShipCosts, ";")
            ' Verify that arrays are correct size
            If UBound(LowSellerArray) <> UBound(LowShipCostArray) Then
                MSGBox "Array elements are different - " & UBound(LowSellerArray) & "\" & UBound(LowShipCostArray)
                MSGBox Sellers
                MSGBox ShipCosts
                Exit Function
            End If
            
            LowShipCost = -1
            For i = LBound(LowSellerArray) To UBound(LowSellerArray)
                If StrComp(LowSeller, LowSellerArray(i), vbTextCompare) = 0 Then
                    LowShipCost = LowShipCostArray(i)
                    Exit For
                End If
            Next
            If LowShipCost = -1 Then
                MSGBox "Unable to locate " & LowSeller & " seller in array"
                MSGBox Sellers
                MSGBox ShipCosts
                Exit Function
            End If
            
        Else
            ' Use the default ship cost
            LowShipCost = DefaultShipCost
        End If
        
        '
        ' Do the arithmetic to calculate price
        '
        .myprice = LowSellerPrice + LowShipCost - MyShipCost - 0.01

Open in new window

akiles99Asked:
Who is Participating?
 
KUBISCommented:
Ups . delete line 4
right way

hope it helps.



    LowSeller = ""
    LowSellerPrice = .sellerprice(0)*5 
    For i = 0 To .sellerspassed - 1
        If .sellername(i) <> .mynickname Then
            if .sellerprice(i)<LowSellerPrice then 'lets compare
              LowSellerPrice = .sellerprice(i)
              LowSeller = .sellername(i)
              Exit For
            endif
        End If
    Next i

Open in new window

0
 
KUBISCommented:
Your "problem" is in wrong if case. In your case your lowest price is the first price, that is different from your nick name. It should be like this:
    LowSeller = ""
    LowSellerPrice = .sellerprice(0)*5 ' for comapare ony, it should be big enough 
    For i = 0 To .sellerspassed - 1
        IF i=0 then 
        If .sellername(i) <> .mynickname Then
            if .sellerprice(i)<LowSellerPrice then 'lets compare
              LowSellerPrice = .sellerprice(i)
              LowSeller = .sellername(i)
              Exit For
            endif
        End If
    Next i

Open in new window

0
 
akiles99Author Commented:
Hi sorry ,

I forget to delete this question.Anyway i will grade it.

The help i need is:
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/Q_23774357.html

Same as this but the needs u can check there.

Please help me on this.

Thanks,
akiles
0
 
akiles99Author Commented:
Thanks.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.