الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود فتح ملف CSV ..

بدأه بـــــــــــــــدر في 11 فبراير 2011 · 7 رد · 1,277 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

صباح / مساء

الخير

كود فتح ملف CSV ( هو عباره عن ملف excel تم حفظه بهذه الصيغه ليصبح ملف نصي ) داخل الفورم وأتعامل معه كأنه array !?

أتمنى اللي يعرف الأجابه يفيدني

كل الشكر

تم تعديل هذه المشاركة بواسطة بـــــــــــــــدر في 11 فبراير 2011 في 20:41

#2
http://www.daniweb.com/forums/thread246575.html

تم تعديل هذه المشاركة بواسطة System Down في 11 فبراير 2011 في 20:47

#3

أهلين أخوي System Down

هذا الكود بالـ C# ياليت يكون الكود بالـ asp.net

كل الشكر لك أخوي على تعاونك

#4

السلام عليكم ورحمه الله وبركاته

مافي شي اسمه ASP.NET كود لأن ال ASP.NET تقنيه وليست لغه برمجيه ويمكن برمجتها بال VB او ال C#

تم تعديل هذه المشاركة بواسطة VB Helper في 12 فبراير 2011 في 11:31

.:: Wish to become better and better ::.

#5

أهلين أخوي System Down

معليش

أنا أقصد بالـ VB لـ أن الكود بالـ C#

الله يعطيك العافيه

هذا هو الكود من الموجود بالصفحه اللي عطيتني أياها أتمنى اللي يعرف يحوله من الـ C# إلى الـ VB



string filePath = @"C:\Users\Dan\Documents\test.txt";
StreamReader sr = new StreamReader(filePath);
string[,] strArray = null;
int Row = 0;
while (!sr.EndOfStream)
{
string[] Line = sr.ReadLine().Split(',');
if (Row == 0)
{
strArray = new string[Line.Length, Line.Length];
}
for (int column=0; column<Line.Length; column++)
{
strArray[Row, column] = Line[column];
}
Row++;
}

تم تعديل هذه المشاركة بواسطة بـــــــــــــــدر في 12 فبراير 2011 في 13:23

#6

الحمدلله تم تحويل الكود من C# إلى VB

لكن تبقى هذه الجمله كيف طريقة كتابتها بالـ VB



while (!sr.EndOfStream)

#8

مشكور أخوي System Down

حصلت موقع يحول الكود من C# إلى VB.net

وهذا هو الموقع لكي يستفاد منه /

http://www.developerfusion.com/tools/convert/csharp-to-vb/

هذا هو كود البرنامج لكن أصبح يطبع لي falsefalsefalse ...

Dim filePath As String = "C:\test.txt"
Dim sr As New StreamReader(filePath)
Dim strArray As String(,) = Nothing
Dim Row As Integer = 0
While Not sr.EndOfStream
	Dim Line As String() = sr.ReadLine().Split(","C)
	If Row = 0 Then
		strArray = New String(Line.Length - 1, Line.Length - 1) {}
	End If
	For column As Integer = 0 To Line.Length - 1
		response.write(strArray(Row, column) = Line(column))
	Next
	Row += 1
End While

أتمنى المساعده

مواضيع مشابهة