PDA

View Full Version : ريختن اطلاعات در فايل متني



samira222
چهارشنبه 23 بهمن 1387, 12:00 عصر
سلام
من خيلي فوري به كمكتون احتياج دارم
مي خوام اطلاعات ديتابيسم(sql) رو از طريق كد نويسي vb.net در يك قايل متني بريزم
خواهشا هر كي مي دونه بگه چون برام خيلي مهمه
خيلي متشكرم

zoofa
چهارشنبه 23 بهمن 1387, 12:25 عصر
باسلام
من فكر مي كنم كه اول بايد بريزي توي متغير (آرايه) در حافظه و سپس در فايل متني بنويسي
با اين دستور زير مي تواني بر روي فايل بنويسي

My.Computer.FileSystem.WriteAllText( address , strText, False)پارامتر اول مكان فايل در ديسك مي باشد (address)
پارامتر دوم متن مي باشد كه مي تواند متغير و هر چيز ديگري باشد. (strText)
پارامتر سوم append است يعني اگر True باشد اطلاعات جديد را به اطلاعات قبلي فايل اضافه مي كند و اگر False باشد از اول فايل مي نويسد و اطلاعات قبلي فايل از بين مي رود
در ضمن اگر قبلاً فايل موجود نباشد خود اين دستور فايل را مي سازد

babak62
چهارشنبه 23 بهمن 1387, 16:13 عصر
Dim oFile As System.IO.File
Dim oWrite As System.IO.StreamWriter
("مسیری که فایل در آنجا باید ذخیره شود")oWrite = oFile.CreateText(FolderBrowserDialog1.SelectedPath
این باعث نوشتن و رفتن به خط بعد میشود("یه نوشته")oWrite.WriteLine
این باعث نوشتن در یک خط و ماندن در همهن خط میشود("هرچی") oWrite.Write
()oWrite.Dispose

لطفا در صورت مفید بودن مطلب تشکر بگذارید:لبخندساده:

samira222
شنبه 26 بهمن 1387, 11:49 صبح
باسلام
من فكر مي كنم كه اول بايد بريزي توي متغير (آرايه) در حافظه و سپس در فايل متني بنويسي
با اين دستور زير مي تواني بر روي فايل بنويسي

My.Computer.FileSystem.WriteAllText( address , strText, False)پارامتر اول مكان فايل در ديسك مي باشد (address)
پارامتر دوم متن مي باشد كه مي تواند متغير و هر چيز ديگري باشد. (strText)
پارامتر سوم append است يعني اگر True باشد اطلاعات جديد را به اطلاعات قبلي فايل اضافه مي كند و اگر False باشد از اول فايل مي نويسد و اطلاعات قبلي فايل از بين مي رود
در ضمن اگر قبلاً فايل موجود نباشد خود اين دستور فايل را مي سازد

خيلي خيلي متشكرم
فقط مي خواستم بدونم براي اينكه برم به خط بعد بايد چيكار كنم
بازم ممنونم

tabatabaeefar
سه شنبه 20 مرداد 1388, 11:46 صبح
سلام
فقط كافيه توي متغير strText هرجا خواستي بري خط بعدي از vbCrLf استفاده كني.


strText = "123" & vbCrLf & "456"


موفق باشي.