خواندن فایل text با vb و ذخیره خروجی در یه text (فوری)

[yasssalm]

سلام به تمام دوستان
من یه فایل exe دارم که ورودی را از vb توی یک فایل text دریافت میکنه و خروجی exe هم فایل text هستش که توسط vb باید خوانده و نمایش داده بشه. من نمی تونم text ورودی و خروجی را با vb ارتباط بدم.ممنون میشم کمکم کنید.

[sajjad_india]

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

فقط خودت ویرایش کن

Sub loodfile()

 Text1.Text = ""



    Dim iFile As Integer

   Dim sCDKeys() As String

   Dim iItem As Integer

   

   'Instead of hardcoding a file number (12 in your case)

   'use Freefile to ask VB which numbers are available

   iFile = FreeFile

   

   'Notice I've changed your path, so I can test the code

   Open "kala.txt" For Input As iFile

   

   'Read the entire file and break it all up into

   'an array in one line of code

   sCDKeys = Split(Input$(LOF(iFile), iFile), vbCrLf)

   

   'Close the file

   Close iFile



   'Now, fill the combo and get outta here

   With List1

          .Clear 'get rid of anything currently loaded

          'Loop thru the array, adding as we go

          For iItem = 0 To UBound(sCDKeys)

                 If Len(sCDKeys(iItem)) > 0 Then 'no blanks allowed

                        .AddItem sCDKeys(iItem)

                 End If

          Next

          

          'Now, select the first item in the combo

          If .ListCount > 0 Then

                 .ListIndex = 0

          End If

          

   End With

End Sub

ذخیره فایل :

Dim a, str1 As String

str1 = Text1.Text

Open "kala.txt" For Input As #1

k = 0

    Do While Not EOF(1)

    Input #1, a

    

     k = k + 1

    If k = 1 Then

         str1 = str1 & vbNewLine & a

        Else

         str1 = str1 & vbNewLine & a

         End If

    Loop

Close #1

Open "kala.txt" For Output As #1

Print #1, str1

Close #1

MsgBox "˜ÇáÇí ãæÑÏ äÙÑ Èå áíÓÊ ÇÖÇÝå ÔÏ", , "Mobile Service"

Text1.Text = ""

loodfile

Text1.SetFocus

[kimprog]

از منوي رفرنس در پروجكت ايتم "Microsoft Scripting Runtime" را انتخاب كنيد ، حالا شما ميتوانيد ازامكانات "File System Object" در برنامه تان استفاده كنيد از جمله كار با فايلهاي TXT ....

Sub Read_Files()

    Dim fso As New FileSystemObject, txtfile, _

      fil1 As File, ts As TextStream

    fso.CreateTextFile "c:\testfile.txt", True

    MsgBox "Writing file"

    ' Write a line.

    Set fil1 = fso.GetFile("c:\testfile.txt")

    Set ts = fil1.OpenAsTextStream(ForWriting)

    ts.Write "Hello World"

    ts.Close

    ' Read the contents of the file.

    Set ts = fil1.OpenAsTextStream(ForReading)

    s = ts.ReadLine

    MsgBox s

    ts.Close

End Sub

مثال از MSDN بود.

[pooya1072]

دوست عزيز...سوالت يه كم مبهمه
فايل exe قراره از vb متن بگيره؟
يا من متوجه نميشم يا منظورت اينه كه فايل exe مي خواد از يه فايل exe ديگه كه با vb درستش كردي اطلاعت بگيره.اگه اينطوره كه بگو تا راه حلش رو بهت بگم.