خواندن اعداد از فایلهای متنی به روش فرترن

با سلام
در زبان فرترن این امکان وجود داشت که در یک خط با تعیین فرمت اعداد یا رشته های موجود و معین کردن تعداد ارقام و محل قرار گرفتن علامت اعشار ( فرمت F10.3 به عنوان مثال ) تعداد زیادی عدد رو خوند که محل دقیقشون مشخصه . اما من در VB.NET یا C نمی تونم این کار رو به راحتی انجام بدم و مدام مجبورم همه خط رو به عنوان یک رشته بخونم و بعد به سختی از درونش اعداد رو در بیارم که این کار هم یک بدی داره که اگر فرمت فایل های خاصی که مدام ازشون استفاده می کنم یک مقدار تغییر کنه، دیگه باید کل برنامه رو تغییر داد. می خوام بدونم که چطور می تونم به راحتی تعدادی عدد که درون یک خط قرار دارن رو بخونم ( به روشی مشابه فرترن ). بدون اینکه مجبور باشم از توابع مربوط به رشته ها و یا آرایه ها استفاده کنم. ( مثل Readline , readchars, یا توابع مشابه)

سلام
باید فرمت مطلوبتان را بیشتر توضیح دهید، چون من که خودم اصلاً فرترن کار نکرده ام.

- اولاً باید بدانید که در حال حاضر روش ها توسعه پیدا کرده، برای ذخیره انبوده اطلاعات از بانک های اطلاعاتی مثل Jet و sqlserver و... استفاده میشود که با قدرت و سرعت بسیار زیاد انواع مختلف و زیادی از اطلاعات را ذخیره و مورد پردازش و پرس و جو و... قرار میدهند.


- ذخیره دو حالت کلی میتواند داشته باشد، متنی و باینری.
در ذخیره باینری که سرعت بیشتری دارد و حجم نهایی اطلاعات هم کمتر میشود، خود ذات اطلاعات باینری مقادیر در فایل ذخیره میشود و مثلاً هر Int32 4 بایت را اشغال میکند و یا هر متغییر اعشاری Single و Double بدون توجه به فرمت و اعشار و تعداد ارقام و... به ترتیب 4 و 8 بایت اشغام میکنند.


- راه بعدی ذخیره متنی است، که این هم اخر تکنولوژی امروزیش میشود فرمت پیشرفته و ساختار یافته XML که parser های بسیار قوی و پرسرعتی دارد و میتواند انواع دیتای مختلف را نگه داری کند با کد اندک و بازدهی بالا و انعطاف پذیری DOM بالا.

کد:

---

<?xml version="1.0" encoding="utf-8"?>
<root>
<data>
  <item>123.14</item>
  <item>598.25</item>
  <item>2235.254</item>
  <item>110.114</item>
</data>
</root>

---

- راه اخر هم قرار دادهای من دراوردی است که نتیجتاً کل فرآیند Parse هم بر عهده خودتان خواهد بود، مثلاً شاید نمونه ساده ای بتواند چنین باشد.

کد:

---

123.14,598.25,2235.254,110.114

---

این رشته را میتوان به راحتی خواند و با تابع Split از محل ویرگولها جدا کرد و نتیجتاً اعداد نهایی را استخراج کرد.


موفق باشید.

با تشکر از جوابتون. تقریبا با همه چیزی که گفتید آشنا هستم! ولی من فایلهایی دارم که یکیش رو براتون می فرستم که ببینید. من مجبورم از روش آخری که شما گفتید استفاده کنیم. در فرترن اگر مثلا می خواستیم 10 عدد رو در یک خط بخونیم، بدون اینکه مجبور باشیم از توابعی مثلا split استفاده کنیم فقط کافی بود در یک خط با استفاده از فرمان read فرمت اعداد موجود در اون خط رو تشریح کنیم . مثل f10.3 , F10.2 و مانند اینها. اما در VB.net ما هربار فقط می تونیم یک استرینگ رو بخونیم که هر عددش هم در یک خانه از آرایه buffer قرار داده میشه که کلی دردسر داره. Split هم که 1000 تا دردسر داره. فرمتی رو هم که موقع خواندن اعداد نمیشه تعریف کرد. از توابع خواندن باینری هم که وقتی استفاده می کنم یک سری جوابهای چرند می گیرم که سردر نمیارم. از help ویژوال استودیو هم کمک گرفتم مثالهای خوبی نداشت. مثلا از کلاس binaryreader شاید بشه استفاده کرد که دارای متدها و توابعی مثل readint است. اگر نظری دارید بفرمایید ممنون میشم. خصوصا اینکه آیا این روش آخر در مورد خواندن باینری راه حل خوبیه یا نه و اگر ممکنه مثالی برام بنویسید. چون من نمی فهمم که چرا مثلا وقتی یک رشته خالی رو با readint می خونیم یک عدد 8 رقمی برمیگردونه و وقتی یک عدد یک رقمی می خونیم یک عدد 8 رقمی بی معنی دیگه .زیاد حرف زدم ببخشید!


1 ISLAMIC REPUBLIC OF IRAN
METEOROLOGICAL ORGANIZATION (IRIMO)
STATION DARAN
LATITUDE 32 58 N DATA PROCESSING CENTER
LONGITUDE 50 22 E
ELEVATION 2290.0 MET.
MONTH MARCH YEAR 1990
HOURLY PRESSURE QFE AND QFF IN MILLIBAR
HOUR 00 03 06 09 12 15
----------- ----------- ----------- ----------- ----------- -----------
GMT. GMT. GMT. GMT. GMT. GMT.
DAY QFE QFF QFE QFF QFE QFF QFE QFF QFE QFF QFE QFF
1 ****** ****** 769.6 1021.0 770.6 1022.0 770.5 1021.6 770.0 1019.6 770.4 1022.6
2 ****** ****** 770.3 1021.5 770.0 1021.6 769.0 1018.7 767.1 1014.6 767.2 1017.1
3 ****** ****** 770.0 1018.2 771.8 1021.1 772.3 1020.5 771.9 1018.6 772.3 1021.5
4 ****** ****** 771.9 1021.1 772.5 1022.2 772.3 1020.6 770.7 1016.7 770.7 1018.1
5 ****** ****** 769.8 1014.8 770.4 1014.3 770.4 1014.5 769.2 1013.6 769.6 1012.4
6 ****** ****** 768.9 1010.8 769.9 1011.3 769.8 1010.6 768.8 1010.3 769.1 1009.8
7 ****** ****** 770.7 1013.1 771.4 1014.1 771.8 1014.2 770.7 1013.9 771.3 1015.4

سلام
در #C و VB هم میتوانید فایل را از محل مورد نظر به تعداد کاراکترخاصی بخوانید و به عدد تبدیل کنید...
کافی است نمونه ای از کلاسس ystem.IO.StreamReader بسازید یا stream یا مسیر خود فایل را به ان بدهید و ...

کد:

---

Dim buffer(5) As Char

Using filereader As New System.IO.StreamReader("C:\file.txt", System.Text.Encoding.ASCII)

    filereader.Read(buffer, 0, buffer.Length)
    Dim ii As Double = CDbl(New String(buffer))

    '....

End Using

---

ولی در شرایط فوق تشخیص کاراکترهای خط جدید هم به عهده خودتان است و شاید بهتر باشد خودتان یک Reader سفارشی بسازید که از روی فواصل و tab و خط جدید و ... گذر کنند و آنها را ناددیه بگرید .... ولی کد زیادی میخواهد.

به عنوان یک راه حل سریع پیشنهاد میکنم از همان split درپیت استفاده کنید.
- اگر شماره خط برایتان مهم است و یا فایل خیلی بزرگ است میتوانید خط به خط فایل را بخوانید و پردازش کنید
- در غیر این صورت میتوانید کل فایل را بخوانید و کاراکتر 10 و 13 را هم به کاراکترهای جداکننده اضافه کنید.

کد زیر با مورد اول پیاده سازی شده و به فاصله و tab حساس است و کل اعداد را بیرون میکشد.

کد:

---

Public Function ReadNumbers(ByVal file As String) As System.Collections.Generic.IList(Of Double)
    Dim line As String
    Dim arr() As String
    Dim separators() As Char = {" "c, ChrW(9)}
    Dim number As Double
    Dim ret As New System.Collections.Generic.List(Of Double)

    Using filereader As New System.IO.StreamReader(file, System.Text.Encoding.ASCII)
        If (filereader.EndOfStream) Then Return Nothing

        Do
            line = filereader.ReadLine()
            If (line Is Nothing) OrElse (line.Length <= 0) Then Continue Do

            arr = line.Split(separators, StringSplitOptions.RemoveEmptyEntries)
            If (arr Is Nothing) Then Continue Do

            For Each s As String In arr
                If Double.TryParse(s, number) Then ret.Add(number)
            Next
        Loop Until filereader.EndOfStream
    End Using

    Return ret
End Function

---

اگر بخواهم فایلهای متنی رو خودم درست کنم وبعد ازشون بخونم، به نظر شما بهتریه از binary استفاده کنم؟ ممکنه مثالی برام بنویسید که چطور میشه با این روش نوشت و خوند به نحوی که اینقدر به مشکل نخورم و نیاز به توابع مربوط به استرینگ نداشته باشم؟ آیا فایلهای نوشته شده با binary توسط notepad قابل خواندن هستند ؟

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

character (len=80) :: titldum
integer :: j, eof, k, newpest, pstnum
real :: pltpst, solpst, pstenr
eof = 0

do
read (106,5000,iostat=eof) titldum
if (eof < 0) exit
read (106,5000,iostat=eof) titldum
if (eof < 0) exit
read (106,5000,iostat=eof) titldum
if (eof < 0) exit
read (106,5100,iostat=eof) (sol_no3(j,ihru), j = 1, mlyr)
if (eof < 0) exit
read (106,5100,iostat=eof) (sol_orgn(j,ihru), j = 1, mlyr)
if (eof < 0) exit
read (106,5100,iostat=eof) (sol_solp(j,ihru), j = 1, mlyr)

.
.
.
.

5000 format (a)
5100 format (27x,10f12.2)

---------------

همینطور که می بینید در انتهای دو خط داریم که با عددهای 5000 و 5100 مشخص شدن و فرمت خوندن رو نشون می دن. اگر دقیت کنید در خط آخر 5100 می بینید که تعریف شده که 27 تا کاراکتر اول جمله رو نخونه و بره جلو، بعد 10 تا عدد با فرمت f12.2 رو بخونه. سوال من دقیقا این بود که راحتترین روش برای اجرای این کد در vb.NET چیه ؟ واقعا خیلی عجیبه که vb.NET این امکان رو در تابع read قرار نداده ( اگه نداده باشه ) !! بطور دقیقتر فرض کنید کد زیر رو در فرترن داریم :

read (103,*) sftmp

که یک متغیر با اسم sftmp رو با فرمت آزاد می خونه . فایلی که این کد روش اثر می کنه به شکل زیر نوشته شده :

5.000 | SFTMP : Snowfall temperature [ºC]
5.000 | SMTMP : Snow melt base temperature [ºC]
0.940 | SMFMX : Melt factor for snow on June 21 [mm H2O/ºC-day]
0.571 | SMFMN : Melt factor for snow on December 21 [mm H2O/ºC-day]
1.000 | TIMP : Snow pack temperature lag factor

همینطور که می بینید بعد از چند تا جای خالی، یک عدد قرار داره ، بعد چند جای خالی و بعد یک جمله که این کد، فقط اون عدد رو می خونه و جاهای خالی رو در نظر نمی گیره . در واقع عددی که بین دو جای خالی قرار داره رو می خونه و به خط بعد می ره. برای نوشته همین کد در vb.net کلی باید کدنویسی کرد. چرا ؟ کدی در vb.net نیست که از یک خط مثل این، یک عدد رو بخونه و بدون خوندن بقیه و جاهای خالی قبل از این عدد، به خط بعد بره ؟

سلام

نقل قول:

---

اگر بخواهم فایلهای متنی رو خودم درست کنم وبعد ازشون بخونم، به نظر شما بهتریه از binary استفاده کنم؟ ممکنه مثالی برام بنویسید که چطور میشه با این روش نوشت و خوند به نحوی که اینقدر به مشکل نخورم و نیاز به توابع مربوط به استرینگ نداشته باشم؟ آیا فایلهای نوشته شده با binary توسط notepad قابل خواندن هستند ؟

---

همواره خواندن و نوشتن دیتا به صورت خام باینری برای برنامه ها ساده تر و راحت تر و با حجم کد کمر و فایل نهایی کمتر همراه بوده، چون به زبان صفر و یکی انها نزدیک تر است ولی خود فایل دیگر به صورت خام برای انسان قابل فهم نیست و مثلاً نمیتوان آن را در notepad تماشا کرد.

مثلاً با دستوری مثل زیر:
نوشتن ترتیبی-باینری در فایل
[code]
Using _
file As New System.IO.FileStream("c:\file.bin", IO.FileMode.OpenOrCreate, IO.FileAccess.Write), _
writer As New System.IO.BinaryWriter(file)

writer.Write(25.5#)
writer.Write(72.5#)
writer.Write(14.1#)
writer.Write(110.3#)
End Using
[/doee]


خواندن ترتیبی-باینری از فایل

کد:

---

Using _
            file As New System.IO.FileStream("c:\file.bin", IO.FileMode.Open, IO.FileAccess.Read), _
            reader As New System.IO.BinaryReader(file)

            Dim dbl As Double

            dbl = reader.ReadDouble()
            dbl = reader.ReadDouble()
            dbl = reader.ReadDouble()
            dbl = reader.ReadDouble()
End Using

---

به راحتی میشود این دستور را در یک حلقه for قرار داد تا تمام آیتم ها را استخراج کرد.

=====

نقل قول:

---

واقعا خیلی عجیبه که vb.NET این امکان رو در تابع read قرار نداده ( اگه نداده باشه ) !!

---

واقعا به نظر شما این روش کارآمد و دقیق است که برنامه نویسان مایکروسافت عمرشان را بابش طلف کنند!
به جمله خودتان دقت کنید:

نقل قول:

---

که تعریف شده که 27 تا کاراکتر اول جمله رو نخونه و بره جلو، بعد 10 تا عدد با فرمت f12.2 رو بخونه

---

این روشها شاید در dos خوب بوده ولی برای ویندوز (و با عرض پوزش) افتضاح است!
اگر فایل شما متنی است و توسط notepad قابل ویرایش است، پس هر کسی میتواند ویرایش را انجام دهد، آیا شما در تایپ متون در notepad دقت میکنید که حتماً 27 تا کاراکتر را جا انداخته و سپس شروع به تاپی کنید، آیا پارسر شما نباید بین 5 فاصله و شش تب با فقط یک فاصله هیچ تفاوتی قائل نشود! چون برای انسان و در notepad فواصل ارزشی ندارد.

وقتی ما فایلهای خوبی مثل mdb و xml را در وسندوز داریم چه اصراری به انجام دادن روشهای dos در ویندوز است؟
شما فرمت پایه تان xml قرار دهید در حداقل تعداد خطوط برنامه نویسی و با حداکثر دقت و انعطاف فایل را بخوانید و بنویسید، کاربران هم میتوانند از notepad هم استفاده کنند
ضمن اینکه با انواع نرم افزارهای در دسترس میتوان فایلهای xml را بسیار زیا دید و ویرایش کرد
(مثلاً یک فایل xml را بگیرید و روی مروزگر IE خود رها کنید و لذت ببرید!)

نوشتن ساده در فایل xml

کد:

---

Dim serializer As New System.Xml.Serialization.XmlSerializer(GetType(Double()))
Dim arr() As Double = {25.5#, 72.5#, 14.1#, 110.3#}

Using file As New System.IO.FileStream("c:\file.xml", IO.FileMode.OpenOrCreate, IO.FileAccess.Write)
            serializer.Serialize(file, arr)
End Using

---

خواندن ساده از xml

کد:

---

Dim serializer As New System.Xml.Serialization.XmlSerializer(GetType(Double()))
Dim arr() As Double

Using file As New System.IO.FileStream("c:\file.xml", IO.FileMode.Open, IO.FileAccess.Read)
            arr = TryCast(serializer.Deserialize(file), Double())
End Using

---

ضمن اینکه بسیار بسیار منعطف تر این آن است که فکرش را مکنید، میتوانید انواع داده هایی با ساختامان های پیچیده تو در تو را با گروه بندی ها و مقادیر مختلف عددی و متنی و... در کدی به همین سادگی نوشته و بخوانید.

شما چه انتظاری دارید که xml ان را برآورده نمیکند؟!

=====

نقل قول:

---

واقعا خیلی عجیبه که vb.NET این امکان رو در تابع read قرار نداده ( اگه نداده باشه ) !!

---

شما خودتان به راحتی میتوانید تابعی جهت این کار بنویسید.
مثلاً

کد:

---

Public Function ReadStream(ByVal stream As System.IO.Stream, ByVal startposition As Integer, ByVal digitcharlen As Integer, ByVal count As Integer) As Double()
    Dim ret As New System.Collections.Generic.List(Of Double)(count)
    Dim buffer(digitcharlen) As Byte
    Dim dbl As Double

    stream.Position += (startposition - 1)

    For index As Integer = 0 To count - 1
        If ((stream.Position + digitcharlen + 1) > stream.Length) Then Exit For
        stream.Position += 1
        If (stream.Read(buffer, 0, digitcharlen) <> digitcharlen) Then Exit For

        If Double.TryParse(System.Text.Encoding.ASCII.GetString(buffer, 0, digitcharlen), dbl) Then
            ret.Add(dbl)
        End If
    Next

    If (ret.Count <= 0) Then Return New Double() {}
    Return ret.ToArray()
End Function

---

این تابع یک stream با فرمت ascii میگیرد و از محل startposition شروع به خواندن count عدد با طول هر کدام digitcharlen کاراکتر و با فاصله یک کاراکتر دربینشان میکنید و حاصل را به صورت آرایه باز میگردادند.

باید شبیه همان باشد که خواسته اید، میبیند که نوشتن یک تابع خیلی ساده است ولی آنقدر ارزش ندارد که حتی کد فو.ق را تست هم نکردم!

خودتان میتوانید قابلیت های دیگر هم به کد فوق اضافه کنید و بارها از آن در پروژه های اینده تان استفاده کنید.

=====

فرترن شاید یک سری تابه آماده برای کار روی خواندن فایلهای متنی داشته ولی الآن فرمت استاندارد این کار xml است که دات نت هم مجهز به تمام امکانات کار با xml است.

مشکل اصلی آنجا است که شما میخواهید فرمت متنی مطلوب و دلخواه زبان فرترن را با زور در vb استفاده کنید.
حالا برعکسش را فرض کنید! من از فرمت xml خوشم می آید، این فرترن شما چه کمکی در خواندن و نوشتن ساختار های تو در تور و پیچیده و با خصوصیت و زیر مجموعه و المنت و xml میتواند به من کند؟

مثل این است که من بگویم وسیله ای به نام خودرو ساخته شده و خیلی ساده تر و سریعتر و بهتر از گاری با اسب عمل میکند!
بعد شما به من میگویید چرا نمیتوانم به خودروی خود به سادگی یک مشت علف بدهم و ان کار بیافتد!!!
خودرو میخواهید؟ سوخت مطلوب آن بنزین است نه علف! همانطور که به اسب نمیتوان بنزین داد!

موفق باشید.

مرسي از جوابتون. در واقع همه جوابهاتون برام آشنا و كاملا درست هستند. ولي من در رشته خودم روي مدلهاي رياضي كار مي كنم كه همگي به زبان فرترن نوشته شدن و فايلهاي متني خروجي و ورودي با فرمت خاصي دارند كه نوشتن و خواندن اين فايلها نياز به روشهايي داره كه من دنبالشم. فرترن براي اين مدلها بسيار كارآمده و من هم نمي تونم كاري كنم كه فرمت فايلهاي خروجي و ورودي اين مدلها تغيير كنن. بنابراين مجبورم با فايلهاي متني كار كنم . چون فايل xmlي در كار نيست كه بخوام باهاش كار كنم!
بهرحال ممنونم . كمك زيادي كرديد.