Edit یک فایل متنی

[mehr83]

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


1234
5642
4343

می‌خوام از طریق برنامه این فایل رو بگیرم و به اول همه شماره‌ها صفر و به آخرشون ; اضافه کنه و سطر‌‌ها رو حذف کنه
یعنی شماره های بالا به این صورت در بیان
;01234;05642;04343

نمیدونم باید چیکار کنم؟


----------------------------------------------------------------------
فروش ويژه مجموعه كامل محصولات آموزش برنامه نويسي AppDev
Asp.NET , Visual Basic.NET , Visual C#.NET , SQL Server 2008 , Web Service , LINQ , Html , Xml , SharePoint
اطلاعات بيشتر در
http://sadrasystem.org (http://sadrasystem.org/)

[amirsajjadi]

با سلام

If FileIO.FileSystem.FileExists("c:\a.txt") = TrueThen
Dim s AsString = "", arr() AsString, ss AsString
s = FileIO.FileSystem.ReadAllText("c:\a.txt")
arr = Split(s, vbCrLf) 'VBCRLF=Enter
s = ""
ForEach ss In arr
s += "0" + ss + ";"
Next
FileIO.FileSystem.WriteAllText("c:\b.txt", s, False)
Else
MsgBox("File Not Found.")
EndIf

[mehr83]

هیچ نقص و ایرادی نداشت
عالی بود
واقعا دستتون درد نکنه


----------------------------------------------------------------------
فروش ويژه مجموعه كامل محصولات آموزش برنامه نويسي AppDev
Asp.NET , Visual Basic.NET , Visual C#.NET , SQL Server 2008 , Web Service , LINQ , Html , Xml , SharePoint
اطلاعات بيشتر در
http://sadrasystem.org (http://sadrasystem.org/)