ویرایش فایل

[upload]

کسی می دونه چطوری می شه این برنامه رو کد نویسی کرد خیلی بهش احتیاج دارم؟؟
من یک فایل تکست دارم که داخلش چهار خط نوشته وجود داره و می خوام توسط ویژال برنامه ای بنویسم که این تکست رو بیاره در برنامه و تغییرات زیر رو روی چهار خط کد انجام بده و در فایل تکست جدید در مسیری از ویندوز ذخیرش کنه.
به عنوان مثال در تکست اول 4 خط زیر نوشته شده :

Aaaa ----- bbbb
Cccc ----- dddd
Eeee ----- ffff
Gggg ----- hhhh

و می خوام برنامه این فایل تکست رو بخونه و اون رو به 4 خط کد زیر تبدیل کنه و در یک فایل تکست جدید ذخیره کنه.
4 خط کد جدید در تکست جدید :

If Text1.Text = "bbbb" Then Label2.Caption = "Aaaa"
If Text1.Text = "dddd" Then Label2.Caption = "Cccc"
If Text1.Text = "ffff" Then Label2.Caption = "Eeee"
If Text1.Text = "hhhh" Then Label2.Caption = "Gggg"

لطفآ هر کی می تونه منو در ساخت این برنامه کمک کنه.

[AMP PAVEH]

به وسیله دستور open file




Private Sub Command1_Click()
Dim A, B, C, D As String
file1 = FreeFile
Open App.Path & "\Sample.txt" For Output As file1
A = Text1.Text
B = Text2.Text
C = Text3.Text
D = Text4.Text
Write #file1, A, B, C, D
Close #1
End Sub

Private Sub Command2_Click()
file1 = FreeFile
Open App.Path & "\Sample.txt" For Input As file1
Input #file1, A, B, C, D
Text5.Text = A
Text6.Text = B
Text7.Text = C
Text8.Text = D
Close #file1
End Sub

سورس برنامه رو برات گذاشتم
موفق و سربلند باشی

[upload]

دستت درد نکنه که حداقل تو یه جواب بهم دادی.ممنون
ولی من مشکلم با اوردن تکست داخل برنامه نیست بزار تا یه جور دیگه بگم:
فرض کن ما text1 داریم که داخلش 4 خط کد زیر نوشته شده :
Aaaa ----- bbbb
Cccc ----- dddd
Eeee ----- ffff
Gggg ----- hhhh
وحالا من می خوام برنامه برام این چهار خط رو به چهار خط زیر تبدیل کنه (دقیقا مثل چار خط زیر) و داخل text2 قرارشون بده ، اینم چهار خط جدید داخل text2 :
If Text1.Text = "bbbb" Then Label2.Caption = "Aaaa"
If Text1.Text = "dddd" Then Label2.Caption = "Cccc"
If Text1.Text = "ffff" Then Label2.Caption = "Eeee"
If Text1.Text = "hhhh" Then Label2.Caption = "Gggg"

می خوام 4 خط کد اولی مثل چهار خط کد بالایی بشن.
اگه بازم کمکم کنی ممنون می شم.

[mohsensaghafi]

سلام دوست عزیز.
شما باید اول بتونی تو هر خط، قسمت اول و قسمت آخر رو جدا کنی. در .واقع 4 حرف اول رو تو به متغیر و 4 حرف آخر رو هم تو یه متغیر بریزی. بقیش رو هم که نیاز نداری.
بعدش که دیگه کد ها قالب یکسان دارن
اول هر خط این رو چاپ می کنی :

If Text1.Text = "
بعدش متغیر دومی رو می ذاری بعدش این تیکه رو در ادامه خط چاپ می کنی:

" Then Label2.Caption = "
در ادامه خط متغیر اولی رو که جدا کردی می ذاری و در نهایت یه " (دبل کوتیشن) و یه اینتر می ری سر خط بعدی و خط بعدی رو می خونی و همین مراحل را واسش ادامه می دی.

[AMP PAVEH]

دوست عزیز سلام برای این کار از دستور Select Case استفاده کن



Select Case Text1.Text
Case "b"
Label1.Caption = "Aaaa"
Case "d"
Label1.Caption = "Cccc"
Case "f"
Label1.Caption = "Eeee"
Case "h"
Label1.Caption = "Gggg"
End Select

---------------------------------------
چنان زندگی کن
سربلند/با عزت / با عشق/با امید