rezaei manesh
شنبه 11 اردیبهشت 1389, 12:14 عصر
سلام
من یه فایل دارم که اونو در بانک اس کیو ال با فیلد از نوع image ذخیره کردم حالا می خوام اطلاعات اونو بخونم و بخشی از اونو با رکورد های دیگری از همان بان ترکیب کنم و یه فایل جدید بسازم
من قبلا واسه عکس این کار رو کردم اما نمی دونم چه جوری باز کنم که بتونم توش دنبال یه متنی بگردم؟
کد زیر رو نوشتم اما نتونستم توش جستجو کنم
Dim bytNosFileValue() As Byte
bytNosFileValue = tbl.Rows(i)("NosFileValue")
If bytNosFileValue IsNot Nothing Then
Dim stream As New IO.MemoryStream(bytNosFileValue, True)
stream.Write(bytNosFileValue, 0, bytNosFileValue.Length)
'stream.Read()
stream.Close()
End If
یه سوال دیگه مربوط به همین فایل من قبل از این که این فایل رو ذخیره کنم اونو باز می کنم و یه اسم و یه کد از توش در میارم و تو فیلد جدا ذخیره می کنم او نوشتم اما واسه اسم اگه فارسی باشه حروف ناخوانا نشون می ده؟
اینم کد این قسمت
Dim TextLine, StrSTag, StrETag As String
Dim s, e As Integer
FileOpen(1, StrFilePath, OpenMode.Input) ' Open file for reading.
While Not EOF(1)
' Read next line.
TextLine = LineInput(1)
StrSTag = "<DC>"
StrETag = "</DC>"
If TextLine.Contains(StrSTag) Then
s = TextLine.IndexOf(StrSTag, 0)
e = TextLine.IndexOf(StrETag, s)
DecClinicCode = TextLine.Substring(s + StrSTag.Length, e - StrETag.Length + 1)
Else
StrSTag = "<DN>"
StrETag = "</DN>"
If TextLine.Contains(StrSTag) Then
s = TextLine.IndexOf(StrSTag, 0)
e = TextLine.IndexOf(StrETag, s)
strClinicName = TextLine.Substring(s + StrSTag.Length, e - StrETag.Length + 1)
Else
StrSTag = "<RC>"
StrETag = "</RC>"
If TextLine.Contains(StrSTag) Then
s = TextLine.IndexOf(StrSTag, 0)
e = TextLine.IndexOf(StrETag, s)
IntNosCount = TextLine.Substring(s + StrSTag.Length, e - StrETag.Length + 1)
Exit Try
End If
End If
End If
' Position of next line.
'MsgBox(Seek(1))
End While
من یه فایل دارم که اونو در بانک اس کیو ال با فیلد از نوع image ذخیره کردم حالا می خوام اطلاعات اونو بخونم و بخشی از اونو با رکورد های دیگری از همان بان ترکیب کنم و یه فایل جدید بسازم
من قبلا واسه عکس این کار رو کردم اما نمی دونم چه جوری باز کنم که بتونم توش دنبال یه متنی بگردم؟
کد زیر رو نوشتم اما نتونستم توش جستجو کنم
Dim bytNosFileValue() As Byte
bytNosFileValue = tbl.Rows(i)("NosFileValue")
If bytNosFileValue IsNot Nothing Then
Dim stream As New IO.MemoryStream(bytNosFileValue, True)
stream.Write(bytNosFileValue, 0, bytNosFileValue.Length)
'stream.Read()
stream.Close()
End If
یه سوال دیگه مربوط به همین فایل من قبل از این که این فایل رو ذخیره کنم اونو باز می کنم و یه اسم و یه کد از توش در میارم و تو فیلد جدا ذخیره می کنم او نوشتم اما واسه اسم اگه فارسی باشه حروف ناخوانا نشون می ده؟
اینم کد این قسمت
Dim TextLine, StrSTag, StrETag As String
Dim s, e As Integer
FileOpen(1, StrFilePath, OpenMode.Input) ' Open file for reading.
While Not EOF(1)
' Read next line.
TextLine = LineInput(1)
StrSTag = "<DC>"
StrETag = "</DC>"
If TextLine.Contains(StrSTag) Then
s = TextLine.IndexOf(StrSTag, 0)
e = TextLine.IndexOf(StrETag, s)
DecClinicCode = TextLine.Substring(s + StrSTag.Length, e - StrETag.Length + 1)
Else
StrSTag = "<DN>"
StrETag = "</DN>"
If TextLine.Contains(StrSTag) Then
s = TextLine.IndexOf(StrSTag, 0)
e = TextLine.IndexOf(StrETag, s)
strClinicName = TextLine.Substring(s + StrSTag.Length, e - StrETag.Length + 1)
Else
StrSTag = "<RC>"
StrETag = "</RC>"
If TextLine.Contains(StrSTag) Then
s = TextLine.IndexOf(StrSTag, 0)
e = TextLine.IndexOf(StrETag, s)
IntNosCount = TextLine.Substring(s + StrSTag.Length, e - StrETag.Length + 1)
Exit Try
End If
End If
End If
' Position of next line.
'MsgBox(Seek(1))
End While