Fa ادغام دو فايل تكست در يك شيء

[noorabas]

سلام عليكم و رحمت الله و بركاته
خدمت دوستان گلم عارضم كه :
آيا راهي هست كه 2 يا n فايل تكست رو در يك شيء مثل paragraph ادغام كرد.؟؟؟؟؟؟؟!
خيلي ممنون مي شم مثال بزنيد در صورت امكان!

 

[evil_gates]

دوست عزيز
شما بايد اول محتويات فايل متني خودتون رو تو يك متغير رشته اي برگردونيد. براي اينكار از توابع رشته اي ميتونيد استفاده كنيد. بعد فايل بعدي رو هم به همين ترتيب محتوياتش رو تو يك متغير رشته اي برگردونيد و با مقدار متغير قبلي جمع كنيد. بعد اين مقدار رو با دستور LoadText تو شي پاراگراف نمايش بديد.

path$='x:\file1.txt'
x=NOL(path$)
str1$=StrFromFile(path$,1,x)
path$='x:\file2.txt'
x=NOL(path$)
str2$=StrFromFile(path$,1,x)
string$=str1$+CHR(13)+str2$
LoadText("Paragraph","string$")