ehsan2007
چهارشنبه 25 مهر 1386, 00:44 صبح
من یک کد نوشتم که از توی جداول دیتابیس لینک و نام لینکو میخونه تا برسه به جدولی که شماره ایدی اون 10 هستش و توی یک فایل xml ذخیره کنه برای خوندن فایل فلش از توی xml این کدو نوشتم قبلا با ویژوال بیسیک نوشته بودم ولی حالا که تازه با c# شروع به کار کردم کدشو نمیدونم چه شکلی به c# تبدیل کنم یک ebook هم دارم که توش یک دفتر تلفن میسازه . در مورد کدش هم توضیح داده ولی از بست کلاس شی توش داره هنگ کردم اگه کمکم کنید ممنون میشم اگه تونستید هم کلاسی برای تبدیل کد ویژوال باشه که توی c# استفاده بشه که بهتر ممنون میشم کمکم کنید
g = 1
Dim fs As New FileStream(Server.MapPath("xml/headlines.xml"), FileMode.Create)
Dim w As New XmlTextWriter(fs, Nothing)
w.WriteStartDocument()
w.WriteStartElement("broadcast")
While g < 10
cmd = New OleDbCommand(strsql, con)
dr = cmd.ExecuteReader()
While dr.Read()
p = dr("id")
v = dr("name")
q = dr("link")
If g = p Then
w.WriteStartElement("story")
w.WriteStartElement("lead")
w.WriteString("" & v & "")
w.WriteEndElement()
w.WriteStartElement("URL")
w.WriteString("" & q & "")
w.WriteEndElement()
w.WriteEndElement()
End If
End While
g = g + 1
End While
w.WriteEndDocument()
w.Close()
con.Close()
g = 1
Dim fs As New FileStream(Server.MapPath("xml/headlines.xml"), FileMode.Create)
Dim w As New XmlTextWriter(fs, Nothing)
w.WriteStartDocument()
w.WriteStartElement("broadcast")
While g < 10
cmd = New OleDbCommand(strsql, con)
dr = cmd.ExecuteReader()
While dr.Read()
p = dr("id")
v = dr("name")
q = dr("link")
If g = p Then
w.WriteStartElement("story")
w.WriteStartElement("lead")
w.WriteString("" & v & "")
w.WriteEndElement()
w.WriteStartElement("URL")
w.WriteString("" & q & "")
w.WriteEndElement()
w.WriteEndElement()
End If
End While
g = g + 1
End While
w.WriteEndDocument()
w.Close()
con.Close()