הילף אין VB

די אחראים: זייער נייגעריג,אחראי,thefact

אוועטאר
שוועמל
שר עשרת אלפים
תגובות: 14263
זיך איינגעשריבן אום: מיטוואך יולי 19, 2006 8:40 pm
לאקאציע: גידולו בכל מקום

הילף אין VB

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך שוועמל »

איך וויל דעקלערן א וועליו וואס האט איך זיך א ספעיס. אבער איך באקום א עראר.
ווען איך נעם אוועק די ספעיס איז עס יא גוט.

לדוגמא די אלע FeedItem. וואס האבן ווערטער אין זיך למשל Product Price וכדומה גיבן א עראר.


וויאזוי קען איך ערלויבן ספעיס?

(אגב, די אלע וועליוס נוצן קלעס - דורך א אינקלוד פייל - און איך דארף טוישן אלעס אין די קלעסעס אויכעט)

קאוד: וועל אויס אלע

'   Do While Not rsItems.EOF
   Dim FeedItem As Shopping
   While rdr.Read()
      FeedItem = New Shopping
      ' Response.Write("Dumping " & trim(rdr("ModelName").ToString) & "<BR>")
      FeedItem.MPN = trim(rdr.Item("ModelNumber"))
      FeedItem.Brand = ""
      FeedItem.UPC = ""
          FeedItem.Product Name = RemoveDelimiter(trim(IfDbNullReturnString(rdr.Item("ModelName"))) & " - " & trim(IfDbNullReturnString(rdr.Item("attributename"))) & " - " & trim(IfDbNullReturnString(rdr.Item("subattributename"))))
      FeedItem.Product Description = RemoveDelimiter(trim(IfDbNullReturnString(rdr.Item("description")))) & " " & RemoveDelimiter(IfDbNullReturnString(trim(rdr.Item("longdesc"))))
       ' FeedItem.Product Price = String.Format("{0:###,###.00}", rdr.Item("CustomerPrice") + rdr.Item("price"))
      FeedItem.Product Price = String.Format("{0:###,###.00}", rdr.Item("UnitCost"))
      FeedItem.Product URL = MakeURL(trim(IfDbNullReturnString(rdr.Item("CategoryName"))), trim(IfDbNullReturnString(rdr.Item("AttributeName"))), trim(IfDbNullReturnString(rdr.Item("SubAttributeName"))), trim(IfDbNullReturnString(rdr.Item("ModelName"))), IfDbNullReturnString(trim(rdr.Item("ProductId"))))
   FeedItem.Image URL = IMAGES_URL & Encode(trim(rdr.Item("ProductImage")))
      FeedItem.Shopping.com Categorization = "Home & Garden"
      FeedItem.Stock Availability = "Y"
      FeedItem.Stock Description = ""
        FeedItem.Ground Shipping = ""
        FeedItem.Weight = trim(rdr.Item("weight"))
        FeedItem.Zip Code = "11211"
      Feed.AddShoppingItem(FeedItem)
   End While
שוש אשיש בה', תגל נפשי באלקי! (ישעיה סא)
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13865
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

קאוד: וועל אויס אלע

' FeedItem.Product Price = String.Format("{0:###,###.00}", rdr.Item


פרוביר אזוי

קאוד: וועל אויס אלע

' FeedItem.[Product Price] = String.Format("{0:###,###.00}", rdr.Item
אוועטאר
שוועמל
שר עשרת אלפים
תגובות: 14263
זיך איינגעשריבן אום: מיטוואך יולי 19, 2006 8:40 pm
לאקאציע: גידולו בכל מקום

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך שוועמל »

פרובירט, יעצט באקום איך אזא עראר

קאוד: וועל אויס אלע

Compiler Error Message: BC30034: Bracketed identifier is missing closing ']'.
שוש אשיש בה', תגל נפשי באלקי! (ישעיה סא)
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13865
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

קענסט נאכאמאל אריינקאפיען די גאנצע נייע קאוד?
אוועטאר
שוועמל
שר עשרת אלפים
תגובות: 14263
זיך איינגעשריבן אום: מיטוואך יולי 19, 2006 8:40 pm
לאקאציע: גידולו בכל מקום

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך שוועמל »

דא האסטו די קאוד, עס איז די זעלבע ווי אויבן נאר צוגעלייגט די [] ביי איין וועליו.
הגם איך ווייס נישט וואס דו האסט פון די גאנצע קאוד. עס האט פיין געארבייט ביי אנדערע פידס וואו די וועליו איז נישט געווען פון צוויי ווערטער.


קאוד: וועל אויס אלע

<%@ Page Language="VB" %> 
<% Response.Buffer = True %>
<% Response.Expires = -5764 %>
<% Server.ScriptTimeout = 900 %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>

<!--#INCLUDE FILE="shopping_dao.aspx"-->
<!--#INCLUDE FILE="shopping_inc.aspx"-->
<script runat="server">
const WEBSITE as String = "http://www.*******/"
const IMAGES_URL as String = WEBSITE & "images/product_images/"
CONST FEED_FILENAME as String = "*****.txt"
sub page_Load(obj as object, e as eventargs)
   GenerateShoppingFeed
end sub

Sub GenerateShoppingFeed
   ' const WEBSITE_SSL as String = "http://www.*******.net/"
   Dim rootDir As String
   Dim connectstr As String
   Dim db_name As String
   Dim db_username As String
   Dim db_userpassword As String
   Dim db_server As String
   Dim Feed As ShoppingDAO = New ShoppingDAO

   Response.Write("Feed Creation Begins.<BR>")

   rootDir = Server.MapPath("/")
   
   db_server = "********"
   db_name = "*******"
   db_username = "******"
   db_userpassword = "********"
   Feed.Filename = rootDir & "\feeds\shopping\" & FEED_FILENAME

   connectstr = "SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_username & ";PWD=" & db_userpassword
   ' connectstr = "Initial Catalog=" & db_name & ";Data Source=*********;UID=" & db_username & ";PWD=" & db_userpassword
   Dim conn AS SqlConnection = New SQLConnection()
   Dim cmd AS SQLCommand = New SQLCommand()
   Dim rdr AS SQLDataReader

   conn.ConnectionString = connectstr
   
   ' cmd.CommandText = _
   '    "SELECT     CMRC_Products.ProductID, CMRC_Products.ModelNumber, CMRC_Products.ModelName, CMRC_Products.ProductImage, CMRC_Products.UnitCost, " & _
   '                       "CMRC_Products.Description, CMRC_Products.ProductDetail, CMRC_Products.BulkQuantity, CMRC_Products.weight, CMRC_Products.stockquantity,  " & _
   '                       "CMRC_Products.status, CMRC_Products.active, CMRC_Products.longdesc, CMRC_Products.customerprice, CMRC_Products.listprice,  " & _
   '                      "CMRC_Products.callforpricing, CMRC_Products.freeshipping, CMRC_Categories.CategoryID, CMRC_Categories.CategoryName, " & _
   '                      "CMRC_Categories.Description AS Expr1, CMRC_Attributes_Products.price, CMRC_Attributes_Products.prefix, " & _
   '                      "CMRC_Attributes_Products.Status AS Expr2, CMRC_Attributes_Products.imagename, CMRC_Attribute_Sub.subattrid, " & _
   '                      "CMRC_Attribute_Sub.subattributename, CMRC_Attribute_Sub.price AS Expr3, CMRC_Attribute_Sub.status AS Expr4, " & _
   '                      "CMRC_Attribute_Main.attributename, CMRC_Attribute_Main.status AS Expr5 " & _
   '                      "FROM         CMRC_Categories_Products INNER JOIN " & _
   '                      "CMRC_Categories ON CMRC_Categories_Products.CategoryID = CMRC_Categories.CategoryID INNER JOIN " & _
   '                      "CMRC_Products ON CMRC_Categories_Products.ProductID = CMRC_Products.ProductID INNER JOIN " & _
   '                      "CMRC_Attribute_Main INNER JOIN " & _
   '                      "CMRC_Attribute_Sub ON CMRC_Attribute_Main.attrid = CMRC_Attribute_Sub.attrid INNER JOIN " & _
   '                      "CMRC_Attributes_Products ON CMRC_Attribute_Main.attrid = CMRC_Attributes_Products.attrid AND "  & _
   '                      "CMRC_Attribute_Sub.subattrid = CMRC_Attributes_Products.subattrid ON CMRC_Products.ProductID = CMRC_Attributes_Products.productid " & _
   '                      "WHERE CMRC_Products.status = 'Y' AND CMRC_Products.active = 'Y' "
   

   cmd.CommandText = _
      "SELECT     CMRC_Products.ProductID, CMRC_Products.ModelNumber, CMRC_Products.ModelName, CMRC_Products.ProductImage, CMRC_Products.UnitCost, " & _
                         "CMRC_Products.Description, CMRC_Products.ProductDetail, CMRC_Products.BulkQuantity, CMRC_Products.weight, CMRC_Products.stockquantity,  " & _
                         "CMRC_Products.status, CMRC_Products.active, CMRC_Products.longdesc, CMRC_Products.customerprice, CMRC_Products.listprice,  " & _
                         "CMRC_Products.callforpricing, CMRC_Products.freeshipping, CMRC_Categories.CategoryID, CMRC_Categories.CategoryName, " & _
                         "CMRC_Categories.Description AS Expr1, CMRC_Attributes_Products.price, CMRC_Attributes_Products.prefix, " & _
                         "CMRC_Attributes_Products.Status AS Expr2, CMRC_Attributes_Products.imagename, CMRC_Attribute_Sub.subattrid, " & _
                         "CMRC_Attribute_Sub.subattributename, CMRC_Attribute_Sub.price AS Expr3, CMRC_Attribute_Sub.status AS Expr4, " & _
                         "CMRC_Attribute_Main.attributename, CMRC_Attribute_Main.status AS Expr5 " & _
                         "FROM         CMRC_Categories_Products LEFT JOIN " & _
                         "CMRC_Categories ON CMRC_Categories_Products.CategoryID = CMRC_Categories.CategoryID LEFT JOIN " & _
                         "CMRC_Products ON CMRC_Categories_Products.ProductID = CMRC_Products.ProductID LEFT JOIN " & _
                         "CMRC_Attribute_Main LEFT JOIN " & _
                         "CMRC_Attribute_Sub ON CMRC_Attribute_Main.attrid = CMRC_Attribute_Sub.attrid LEFT JOIN " & _
                         "CMRC_Attributes_Products ON CMRC_Attribute_Main.attrid = CMRC_Attributes_Products.attrid AND "  & _
                         "CMRC_Attribute_Sub.subattrid = CMRC_Attributes_Products.subattrid ON CMRC_Products.ProductID = CMRC_Attributes_Products.productid " & _
                         "WHERE CMRC_Products.status = 'Y' AND CMRC_Products.active = 'Y' "

   
   cmd.CommandType = CommandType.Text
   cmd.Connection = conn
   cmd.Connection.Open()
   rdr = cmd.ExecuteReader()
                        

'   Do While Not rsItems.EOF
   Dim FeedItem As Shopping
   While rdr.Read()
      FeedItem = New Shopping
      ' Response.Write("Dumping " & trim(rdr("ModelName").ToString) & "<BR>")
      FeedItem.MPN = trim(rdr.Item("ModelNumber"))
      FeedItem.Brand = ""
      FeedItem.UPC = ""
          FeedItem.[Product Name] = RemoveDelimiter(trim(IfDbNullReturnString(rdr.Item("ModelName"))) & " - " & trim(IfDbNullReturnString(rdr.Item("attributename"))) & " - " & trim(IfDbNullReturnString(rdr.Item("subattributename"))))
      FeedItem.Product Description = RemoveDelimiter(trim(IfDbNullReturnString(rdr.Item("description")))) & " " & RemoveDelimiter(IfDbNullReturnString(trim(rdr.Item("longdesc"))))
       ' FeedItem.Product Price = String.Format("{0:###,###.00}", rdr.Item("CustomerPrice") + rdr.Item("price"))
      FeedItem.Product Price = String.Format("{0:###,###.00}", rdr.Item("UnitCost"))
      FeedItem.Product URL = MakeURL(trim(IfDbNullReturnString(rdr.Item("CategoryName"))), trim(IfDbNullReturnString(rdr.Item("AttributeName"))), trim(IfDbNullReturnString(rdr.Item("SubAttributeName"))), trim(IfDbNullReturnString(rdr.Item("ModelName"))), IfDbNullReturnString(trim(rdr.Item("ProductId"))))
   FeedItem.Image URL = IMAGES_URL & Encode(trim(rdr.Item("ProductImage")))
      FeedItem.Shopping.com Categorization = "Home & Garden"
      FeedItem.Stock Availability = "Y"
      FeedItem.Stock Description = ""
        FeedItem.Ground Shipping = ""
        FeedItem.Weight = trim(rdr.Item("weight"))
        FeedItem.Zip Code = "11211"
      Feed.AddShoppingItem(FeedItem)
   End While
'   Loop

   cmd.Dispose()
   conn.Dispose()

   Feed.DumpFeed(Response)
       
   Response.Write("Feed created.<BR><BR>")
   Response.Write("Right mouse click on the link below and save the file to your local drive then go to <a href='ftp://ftp.shopping.com/'>Shopping.com</a> to upload the feed file.<BR>")
   Response.Write("<a href='" & FEED_FILENAME & "'>" & FEED_FILENAME & "</a><BR><BR>")
end sub

Private Function Encode(st AS String) As String
   Dim S As String
   
   S = st
   S = Server.UrlEncode(S)   
   S = S.Replace("+", "%20")
   Encode = S
End Function

Private Function MakeURL(Category As String, AttributeName As String, SubAttributeName As String, Name As String, ProductId As String) As String
   MakeURL = WEBSITE & FixURL(Category & "_" & AttributeName & "_" & SubAttributeName & "_" & Name) & "_-P" & ProductID & ".aspx"
End Function

Private Function IfDbNullReturnString(fld) As String
   If ( fld IS System.DBNull.Value ) Then
      IfDbNullReturnString = ""
   Else
      IfDbNullReturnString = fld
   End If
End Function

Private Function FixURL(URL As String)
   Dim I As Integer
   Dim Fixed As String = ""
   Dim C As String
   For I = 0 TO Len(URL) - 1
      C = URL.SubString(I, 1)
      IF ( ( C >= "a" AND C <= "z" ) OR ( C >= "A" AND C <= "Z" ) OR ( C >= "0" AND C <= "9" ) ) THEN
         Fixed = Fixed & C
      ELSE
         Fixed = Fixed & "_"
      END IF
   Next I
   FixURL = Fixed
End Function

Private Function RemoveDelimiter(ST As String) As String
   Dim FixedStr AS String
   FixedStr = ST
   FixedStr = FixedStr.Replace("|", " ")
   FixedStr = FixedStr.Replace("\n", " ")
   FixedStr = FixedStr.Replace("\r", " ")
   FixedStr = FixedStr.Replace(Chr(13), " ")
   FixedStr = FixedStr.Replace(Chr(10), " ")
   FixedStr = FixedStr.Replace(Chr(9), " ")
   FixedStr = FixedStr.Replace("&nbsp;", " ")
   FixedStr = FixedStr.Replace("&NBSP;", " ")
   FixedStr = FixedStr.Replace("(Click to view)", " ")
   FixedStr = FixedStr.Replace("Click here for more specs.", " ")
   FixedStr = FixedStr.Replace("""", "&quot;")
   FixedStr = FixedStr.Replace("™", " ")
   FixedStr = FixedStr.Replace("”", "&quot;")
   FixedStr = Regex.Replace(FixedStr, "(<[^>]+>)", "")
   RemoveDelimiter = FixedStr
End Function

Private Function FixQuote(ST As String) As String
   Dim FixedStr As String
   FixedStr = ST
   FixedStr = FixedStr.Replace("""", """""")
   FixQuote = FixedStr
End Function

</script>
שוש אשיש בה', תגל נפשי באלקי! (ישעיה סא)
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13865
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

פרוביר

קאוד: וועל אויס אלע

FeedItem.Fields("Product Name") = bla bla
אוועטאר
שוועמל
שר עשרת אלפים
תגובות: 14263
זיך איינגעשריבן אום: מיטוואך יולי 19, 2006 8:40 pm
לאקאציע: גידולו בכל מקום

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך שוועמל »

א אמתדיגן דאנק פאטאקי פאר דיין הילף, כאטש איך בין נאכנישט געהאלפן עס ארבעט נאכנישט אבער מיר גייען צוביסלעך.


איך לייג דא ארויף די קאוד פון די אנדערע צוויי אינקלוד פיילס כדי מען זאל בעסער פארשטיין די קלעס.

די פייל איז shopping_dao.aspx

קאוד: וועל אויס אלע

<%@ Import Namespace="System.IO" %>
<script runat="server">

Class ShoppingDAO
   Private ShoppingItems As ArrayList = New ArrayList
   Private mFilename as String = ""
   Private mDelimeter as String = "|"
   Private mBeginField As String = """"
   Private mEndField As String = """"
   Property Filename() As String
      Get
         Return mFilename
      End Get
      Set(ByVal Value As String)
         mFilename = Value
      End Set
   End Property
   
   Property Delimeter() As String
      Get
         Return mDelimeter
      End Get
      Set(ByVal Value As String)
         mDelimeter = Value
      End Set
   End Property

   Public Sub AddShoppingItem(ByVal ShoppingItem As Shopping)
      ShoppingItems.Add(ShoppingItem)
   End Sub

   Public Function GetShoppingItem(ByVal ItemNumber As Integer) As Shopping
      GetShoppingItem = ShoppingItems.Item(ItemNumber)
   End Function

   Public Function Size() As Integer
      Size = ShoppingItems.Count
   End Function

   Public Function GetItems() As ArrayList
      GetItems = ShoppingItems
   End Function

   Public Sub DumpFeed(Response AS HTTPResponse)
      Dim objFS As New IO.FileInfo(mFilename)
      If (objFS.Exists) Then
         objFS.Delete()
      End If
      Dim FeedFileHandle As StreamWriter = File.CreateText(mFilename)
      Dim EndOfLine As String = Chr(13) + Chr(10)
      Dim Line As String = ""
      Dim I As Integer = 0

      ShoppingItems.TrimToSize()
      Line = Line + mBeginField + "MPN" + mEndField + Delimeter
      Line = Line + mBeginField + "Brand" + mEndField + Delimeter
      Line = Line + mBeginField + "UPC" + mEndField + Delimeter
      Line = Line + mBeginField + "Product Name" + mEndField + Delimeter
      Line = Line + mBeginField + "Product Description" + mEndField + Delimeter
      Line = Line + mBeginField + "Product Price" + mEndField + Delimeter
      Line = Line + mBeginField + "Product URL" + mEndField + Delimeter
      Line = Line + mBeginField + "Image URL" + mEndField + Delimeter
      
      ' Used to be category
      Line = Line + mBeginField + "Shopping.com Categorization" + mEndField + Delimeter
      Line = Line + mBeginField + "Stock Availability" + mEndField + Delimeter
      Line = Line + mBeginField + "Stock Description" + mEndField + Delimeter
      Line = Line + mBeginField + "Ground Shipping" + mEndField + Delimeter
      Line = Line + mBeginField + "Weight" + mEndField + Delimeter
      Line = Line + mBeginField + "Zip Code" + mEndField
      Line = Line + EndOfLine
      FeedFileHandle.Write(Line)
      Dim FeedItem As Shopping
      Dim LastProductId = ""
      Dim ProductIdCount = 1
      For Each FeedItem In ShoppingItems
         I = I + 1
         if ( I < 10100000 ) then
            Line = ""
            Line = Line + mBeginField + FeedItem.MPN() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Brand() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.UPC() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Product Name() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Product Description() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Product Price() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Product URL() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Image URL() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Shopping.com Categorization() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Stock Availability() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Stock Description() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Ground Shipping() + mEndField
            Line = Line + mBeginField + FeedItem.Weight() + mEndField + Delimeter
            Line = Line + mBeginField + FeedItem.Zip Code() + mEndField + Delimeter
            Line = Line + EndOfLine
            FeedFileHandle.Write(Line)
            FeedFileHandle.Flush()
            ProductIdCount = ProductIdCount + 1
         end if
         ' Response.Write(FeedItem.Product Price() & "<BR>")
      Next FeedItem
      FeedFileHandle.Close()
      Response.Write("Wrote out " & I & " items.<BR>")
   End Sub
   
End Class

</script>



און דאס איז די אנדערע פייל shopping_inc.aspx

קאוד: וועל אויס אלע

<script runat="server">
Class Shopping
        ' The web page that the product appears on. Be sure to include the full URL (including "http://") to ensure that we can successfully link to your site.
    Private mProduct URL As String = ""
    ' The product's name or title as it appears on the product page.
    Private mProduct Name As String = ""
    ' The product's description as it appears on the product page.
    Private mProduct Description As String = ""
    ' The full URL of the product image. Be sure that all images are larger than 90x90 pixels. 
    Private mImage URL As String = ""
    ' The product's price. The price you include in your feed must match the price listed on your site. 
    Private m[Product Price] As String = ""
    Private mMPN As String = ""
    Private mUPC As String = ""
    Private mBrand As String = ""
     Private mKeywords As String = ""
     Private mMPN As String = ""
    Private mArtistAuthor As String = ""
    Private mUPC As String = ""
    Private mGround Shipping As String = ""
    Private mWeight As String = ""
    Private mZip Code As String = ""
      
    Public Sub New()
        ClearItems()
    End Sub

    Public Sub ClearItems()
          mMPN = ""
         mBrand = ""
          mUPC = ""
         mProduct Name = ""        
         mProduct Description = ""
         m[Product Price] = ""
         mProduct URL = ""
         mImage URL = ""
         mShopping.com Categorization = ""
         mStock Availability = ""
         mStock Description = ""
         mGround Shipping = ""
          mZip Code = ""
          mWeight = ""   
    End Sub
   
   Property MPN() As String
        Get
            Return mMPN
        End Get
        Set(ByVal Value As String)
            mProduct MPN = Value
        End Set
    End Property   
           
    Property Brand() As String
        Get
            Return mBrand
        End Get
        Set(ByVal Value As String)
            mBrand = Value
        End Set
    End Property
   
    Property UPC As String
         Get
              Return mUPC
        End Get
        Set(ByVal Value As String)
              mUPC = Value
        End Set
   End Property

    Property Product Name() As String
        Get
            Return mProduct Name
        End Get
        Set(ByVal Value As String)
              ' Limit the length to 80 characters
            if ( Len(Value) > 80 ) then
               mProduct Name = Value.SubString(0, 79)
            else
               mProduct Name = Value
            end if
        End Set
    End Property

    Property Product Description() As String
        Get
            Return mProduct Description
        End Get
        Set(ByVal Value As String)
              ' Limit the length to 10000 characters
            if ( Len(Value) > 10000 ) then
               mProduct Description = Value.SubString(0, 9999)
            else
               mProduct Description = Value
            end if
        End Set
    End Property
   
    Property [Product Price]() As String
        Get
            Return m[Product Price]
        End Get
        Set(ByVal Value As String)
            m[Product Price] = Value
        End Set
    End Property
   
    Property Product URL() As String
        Get
            Return mProduct URL
        End Get
        Set(ByVal Value As String)
            mProduct URL = Value
        End Set
    End Property
   
    Property Image URL() As String
        Get
            Return mImage URL
        End Get
        Set(ByVal Value As String)
            mImage URL = Value
        End Set
    End Property   
   
    Property Shopping.com Categorization() As String
        Get
            Return mShopping.com Categorization
        End Get
        Set(ByVal Value As String)
            mShopping.com Categorization = Value
        End Set
    End Property
       
    Property Stock Availability() As String
        Get
            Return mStock Availability
        End Get
        Set(ByVal Value As String)
            mStock Availability = Value
        End Set
    End Property
   
    Property Stock Description() As String
        Get
            Return mStock Description
        End Get
        Set(ByVal Value As String)
            mStock Description = Value
        End Set
    End Property

    Property Ground Shipping() As String
        Get
            Return mGround Shipping
        End Get
        Set(ByVal Value As String)
            mGround Shipping = Value
        End Set
    End Property

    Property Weight() As String
        Get
            Return mWeight
        End Get
        Set(ByVal Value As String)
            mWeight = Value
        End Set
    End Property

    Property Zip Code() As String
        Get
            Return mZip Code
        End Get
        Set(ByVal Value As String)
            mZip Code = Value
        End Set
    End Property

End Class

</script>
שוש אשיש בה', תגל נפשי באלקי! (ישעיה סא)
אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 13865
זיך איינגעשריבן אום: דאנערשטאג אוגוסט 09, 2007 1:30 pm
פארבינד זיך:

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך פאטאקי08 »

וואס זענען די מעמבערס אין?

קאוד: וועל אויס אלע

FeedItem.
אוועטאר
שוועמל
שר עשרת אלפים
תגובות: 14263
זיך איינגעשריבן אום: מיטוואך יולי 19, 2006 8:40 pm
לאקאציע: גידולו בכל מקום

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך שוועמל »

די מעמבערס זענען דיקלערד אין shopping_inc
שוש אשיש בה', תגל נפשי באלקי! (ישעיה סא)
אוועטאר
לאז געמאכט
שר האלפיים
תגובות: 2710
זיך איינגעשריבן אום: פרייטאג דעצעמבער 14, 2007 11:55 am

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך לאז געמאכט »

שוועמי טריי http://www.yiddishtech.com דארט אידא גוטע שאנסן צו קריגן א גוטע תשובה
DONE
שר חמישים ומאתים
תגובות: 253
זיך איינגעשריבן אום: מאנטאג נאוועמבער 10, 2008 9:32 pm

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך DONE »

איך מיין אז variables אין Property נעמען מעגען נישט האבען א space
אוועטאר
אלטן דור
שר האלף
תגובות: 1261
זיך איינגעשריבן אום: זונטאג אקטאבער 06, 2013 5:53 am

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך אלטן דור »

משנה מקום
שר שלשת אלפים
תגובות: 3502
זיך איינגעשריבן אום: פרייטאג מאי 14, 2010 4:13 pm
לאקאציע: משנה מקום יעדע שטיק צייט

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך משנה מקום »

די מישט מיין איך צוויי שפראכען vb און vba
אוועטאר
נישט
שר האלף
תגובות: 1195
זיך איינגעשריבן אום: דאנערשטאג מאי 01, 2014 8:14 pm
לאקאציע: יסודו מעפר, וסופו לעפר

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך נישט »

לאז געמאכט האט געשריבן:שוועמי טריי http://www.yiddishtech.com" onclick="window.open(this.href);return false; דארט אידא גוטע שאנסן צו קריגן א גוטע תשובה

א גוטן הרב לאזגע
כ'בין ארויפגעגאנגען, כ'האב מיך אויכעט אויפגעסיינט, כזעה נאך נישט וואס דארט איז דא, ס'קומט גארנישט ארויף
אוועטאר
נישט
שר האלף
תגובות: 1195
זיך איינגעשריבן אום: דאנערשטאג מאי 01, 2014 8:14 pm
לאקאציע: יסודו מעפר, וסופו לעפר

  • ציטיר
  • צו לייגן א דאנק דארפט איר זיין אריינגעלאגט

תגובה דורך נישט »

נישט האט געשריבן:
לאז געמאכט האט געשריבן:שוועמי טריי http://www.yiddishtech.com" onclick="window.open(this.href);return false; דארט אידא גוטע שאנסן צו קריגן א גוטע תשובה

א גוטן הרב לאזגע
כ'בין ארויפגעגאנגען, כ'האב מיך אויכעט אויפגעסיינט, כזעה נאך נישט וואס דארט איז דא, ס'קומט גארנישט ארויף

שוין געטראפן די פורום
אבער די לעצטע מאל וואס איינער האט געשריבן דארטן איז געווען JAN 2013
שרייב תגובה

צוריק צו “מייקראסאפט עקסעל / עקסעס”