PDA

View Full Version : نحوه خواندن از یک فایا متنی(لطفا سریع جواب دهید)



shima_hamedi
سه شنبه 02 آبان 1391, 09:00 صبح
با سلام
من یک فایل متنی دارم که نمونه آن را برایتان می گذارم می خواهم از داخل این متن اطلاعات را خوانده و داخل یک فایل دیگر ذخیره کنم البته به این صورت که تمام فیلد ها به صورت مرتبط در کنار هم قرار گیرد.
name station,yera,latitude,longitude,day,jan,feb,mar,.. .,dec
لطفا اگر طریقه کد نویسی را با برنامه ویژال بیسیک می دانید به من نشان دهید.
با تشکر
فرمت فایا متنی من به صورت زیر می باشد.

Station : ESHTEHARD
Latitude : 35 43
Longitude : 50 22
YEAR : 1987
day Jan. Feb. Mar. Apr. May June July Aug. Sep. Oct. Nov. Dec.
1 .0 .0 1.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
2 .0 .0 11.5 .0 .0 .0 .0 .0 .0 .0 .0 .0
3 .0 .0 11.0 2.0 .0 .0 .0 .0 .0 .0 .0 .0
4 .0 .0 18.5 13.0 1.0 .0 .0 .0 .0 .0 .0 .0
5 .0 2.0 .0 .0 1.0 .0 .0 .0 .0 .0 .0 .0
6 3.0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 1.0
7 .0 .0 .0 .0 .0 .0 .0 .0 .0 2.0 .0 .0
8 .0 .0 .0 .0 .0 .0 .0 .0 .0 12.0 .0 .0
9 .0 .0 .0 .0 .0 .0 .0 .0 .0 5.0 .0 .0
10 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
11 .0 .0 .0 1.0 .0 .0 .0 .0 .0 .0 .0 .0
12 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 9.5
13 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
14 .0 .0 2.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
15 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
16 .0 .0 1.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
17 .0 .0 5.0 2.0 .0 .0 .0 .0 .0 .0 .0 .0
18 .0 .0 .0 7.0 .0 .0 .0 .0 .0 .0 .0 1.0
19 .0 3.0 .0 .0 .0 .0 .0 .0 .0 1.0 .0 .0
20 .0 6.0 .0 .0 .5 .0 .0 .0 .0 .0 .0 .5
21 .0 .0 .0 .0 3.5 .0 .0 .0 2.5 .0 .0 .0
22 .0 .0 .0 .0 1.0 .0 .0 .0 .0 1.0 .0 .0
23 .0 .0 .0 .0 .0 .0 .0 .0 .0 2.0 .0 .0
24 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 1.0
25 .0 .0 .0 .0 .0 .0 .0 .0 .0 13.0 .0 .0
26 .0 .0 10.5 .0 .0 .0 .0 .0 .0 8.0 3.0 .0
27 .0 6.5 2.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
28 .0 .0 5.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
29 .0 ***** .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
30 .0 ***** 1.0 .0 5.0 .0 .0 .0 .0 8.0 .0 .0
31 .0 ***** .0 ***** .0 ***** .0 .0 ***** .0 ***** .0
Total 3.0 17.5 68.5 25.0 12.0 .0 .0 .0 2.5 52.0 3.0 13.0

station : ESHTEHARD
Latitude : 35 43
Longitude : 50 22
YEAR : 1988

day Jan. Feb. Mar. Apr. May June July Aug. Sep. Oct. Nov. Dec.
1 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
2 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
3 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
4 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
5 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
6 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
7 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
8 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
9 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
10 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
11 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
12 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
13 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
14 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
15 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
16 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
17 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
18 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
19 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
20 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
21 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
22 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
23 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
24 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
25 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
26 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
27 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
28 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
29 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
30 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
31 ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****
Total ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** ***** *****

Station : ESHTEHARD
Latitude : 35 43
Longitude : 50 22

Year : 1989
day Jan. Feb. Mar. Apr. May June July Aug. Sep. Oct. Nov. Dec.
1 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 2.5
2 .0 .0 4.0 .0 .0 .0 .0 .0 .0 .0 .0 12.0
3 .0 12.0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
4 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 2.5
5 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
6 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
7 .0 .0 .0 .0 .0 1.5 .0 .0 .0 .0 .0 .0
8 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
9 .0 .0 2.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
10 .0 .0 3.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
11 .0 3.0 8.0 .0 .0 .0 .0 .0 .0 .0 .0 .0
12 10.0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 2.5
13 .0 2.5 .0 3.5 .0 .0 .0 .0 .0 .0 .0 .0
14 .0 16.0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
15 .0 .0 6.0 .0 .0 .0 .0 .0 .0 .0 2.0 12.0
16 .0 .0 14.0 .0 .0 .0 .0 .0 .0 .0 4.0 .0
17 .5 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
18 .0 .0 .0 .0 1.0 .0 .0 .0 .0 .0 .0 .0
19 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
20 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0
21 .0 .0 .0 .0 .0 .0 .0 .0 .0 4.0 .0 *****
22 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 *****
23 3.0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 *****
24 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 *****
25 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 *****
26 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 *****
27 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 .0 *****
28 4.0 .0 10.0 .0 .0 .0 .0 .0 .0 .0 .0 *****
29 7.0 ***** .0 .0 .0 .0 .0 .0 .0 .0 .0 *****
30 .0 ***** .0 .0 .0 .0 .0 .0 .0 2.0 .0 *****
31 .0 ***** .0 ***** .0 ***** .0 .0 ***** .0 ***** *****
Total 24.5 33.5 47.0 3.5 1.0 1.5 .0 .0 .0 6.0 6.0 31.5

SlowCode
سه شنبه 02 آبان 1391, 11:35 صبح
سلام
فقط میخوای بخونی و توی فایل دیگه بنویسی؟ نمیخوای تغییری بدی؟ اگه اینطوره چرا کپیش نمیکنی؟
به هر حال ... باید به یکی از روش های(کار با فایل) ترتیبی یا تصادفی فایلت رو باز کنی و بخونیش، مثلا:

Open "C:\log.txt" for input as #1
text1 = Input(LOF(1),1)
Close

من کل متن رو یجا ریختم توی تکست باکس ولی می تونی خط ها رو یکی یکی هم بخونی.

واسه نوشتن هم:

Open "C:\log.txt" for Output as #1
Print #1,text1
Close

shima_hamedi
شنبه 06 آبان 1391, 11:05 صبح
با سلام و تشکر از پاسخ شما
اما من فکر می کنم به فرمت داده های توجه نکردید.فایل متنی من به صورت بالا که نمونه ان را گذاشتم می باشد و باید از قمست نام ایستگاه نام و طول وعرض و سال را ابتدا خوانده و در یک ستون کنار امار 31 روز در ماههای مختلف قرار دهید به این صورت که name station,yera,latitude,longitude,day,jan,feb,mar,.. .,decآمده است .