iman_22a
یک شنبه 24 بهمن 1395, 22:56 عصر
با سلام خدمت اساتيد محترم
قصد دارم براي بخش پرداخت گروهي از طريق شبا يك فايل متني دسته اي درست كنم . اين فايل از فرمت مشخصي پيروي ميكنه . فرمت مورد نظر به ترتيب "شناسه شبا،مبلغ،نام،نام خانوادگي،توضيحات" هست.
اطلاعات را از طريق گريد جانوس مطابق كدهاي زير خوندم و از طريق StremWriter توي يك فايل متني با كدينگ UTF8 نوشتم . متاسفانه ترتيب ايجاد شده با ترتيب مثال بانك فرق ميكنه و اين فايل رو معتبر نميدونه.
Dim rows() As Janus.Windows.GridEX.GridEXRow = GridEX1.GetRows()
Dim list As ArrayList = New ArrayList()
For Each row As Janus.Windows.GridEX.GridEXRow In rows
list.Add(CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).Shaba & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).Mablagh & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).AccFirstName & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).AccFamily & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).BarNo)
Next
Using sw As New IO.StreamWriter(String.Format("c:\Gts_PayList_{0}.txt", fdt.To_Hejri(Now, True).ToString.Replace("/", "")), False, Encoding.UTF8)
For Each a As Object() In list2
sw.WriteLine(a)
Next
End Using
File output Content :
780190000000212962159003,4008400,عباس,شعبا ني صفي آبادي,,
820150000000776800092011,7322000,سعيد,ربيع ي شور جستاني,,
نمونه فرمت بانك رو هم ضميمه كردم . همونطور كه ميبينين ترتيب چينش عوض ميشه حتي قبل از اينكه توي فايل متني نوشته بشه ...
از دوستاني كه وقت ميگذارن پيشاپيش ممنونم ...
قصد دارم براي بخش پرداخت گروهي از طريق شبا يك فايل متني دسته اي درست كنم . اين فايل از فرمت مشخصي پيروي ميكنه . فرمت مورد نظر به ترتيب "شناسه شبا،مبلغ،نام،نام خانوادگي،توضيحات" هست.
اطلاعات را از طريق گريد جانوس مطابق كدهاي زير خوندم و از طريق StremWriter توي يك فايل متني با كدينگ UTF8 نوشتم . متاسفانه ترتيب ايجاد شده با ترتيب مثال بانك فرق ميكنه و اين فايل رو معتبر نميدونه.
Dim rows() As Janus.Windows.GridEX.GridEXRow = GridEX1.GetRows()
Dim list As ArrayList = New ArrayList()
For Each row As Janus.Windows.GridEX.GridEXRow In rows
list.Add(CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).Shaba & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).Mablagh & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).AccFirstName & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).AccFamily & "," & CType(CType(row.DataRow, DataRowView).Row, dsLocal.Localdb).BarNo)
Next
Using sw As New IO.StreamWriter(String.Format("c:\Gts_PayList_{0}.txt", fdt.To_Hejri(Now, True).ToString.Replace("/", "")), False, Encoding.UTF8)
For Each a As Object() In list2
sw.WriteLine(a)
Next
End Using
File output Content :
780190000000212962159003,4008400,عباس,شعبا ني صفي آبادي,,
820150000000776800092011,7322000,سعيد,ربيع ي شور جستاني,,
نمونه فرمت بانك رو هم ضميمه كردم . همونطور كه ميبينين ترتيب چينش عوض ميشه حتي قبل از اينكه توي فايل متني نوشته بشه ...
از دوستاني كه وقت ميگذارن پيشاپيش ممنونم ...