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 .
' 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)
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)
LowShipCost = -1
For i = LBound(LowSellerArray) To UBound(LowSellerArray)
If StrComp(LowSeller, LowSellerArray(i), vbTextCompare) = 0 Then
LowShipCost = LowShipCostArray(i)
If LowShipCost = -1 Then
MSGBox "Unable to locate " & LowSeller & " seller in array"
' Use the default ship cost
LowShipCost = DefaultShipCost
' Do the arithmetic to calculate price
.myprice = LowSellerPrice + LowShipCost - MyShipCost - 0.01