شفیعی
سه شنبه 11 آذر 1382, 21:12 عصر
سلام
یک متغیر به صورت زیر تعریف کرده ام اطلاعات این رکورد را در داخل یک فایل ذخیره می کنم متغیر CORNERSHIB بصورت INTEGER تعریف شده است ویک فایل براساس این رکورد ساخته ام حالا می خواهم نوع این متغیر را به DOUBLE تغییر دهم ولی فایل قبلی با مشکل باز می شود برای حل این مشکل چکار باید بکنم
Private Type Pmap
NameE As String
CornerShib As INTEGER
End Type
اطلاعات به شکل زیر از فایل می خوانم
Dim Pmap1 As Pmap
Open FileName For Random As #1
While Not EOF(1)
INFO = Space(12 * InfoSpc)
T = T + 1
Get #1, T, Pmap1
Mid(INFO, 1, InfoSpc) = Pmap1.NameE
If Pmap1.CornerShib = 0 Then
Mid(INFO, 1 + (3 * InfoSpc), InfoSpc) = "0"
Else
Mid(INFO, 1 + (3 * InfoSpc), InfoSpc) =Format(Pmap1.CornerShib, "###.##")
End If
Wend
Close #1
یک متغیر به صورت زیر تعریف کرده ام اطلاعات این رکورد را در داخل یک فایل ذخیره می کنم متغیر CORNERSHIB بصورت INTEGER تعریف شده است ویک فایل براساس این رکورد ساخته ام حالا می خواهم نوع این متغیر را به DOUBLE تغییر دهم ولی فایل قبلی با مشکل باز می شود برای حل این مشکل چکار باید بکنم
Private Type Pmap
NameE As String
CornerShib As INTEGER
End Type
اطلاعات به شکل زیر از فایل می خوانم
Dim Pmap1 As Pmap
Open FileName For Random As #1
While Not EOF(1)
INFO = Space(12 * InfoSpc)
T = T + 1
Get #1, T, Pmap1
Mid(INFO, 1, InfoSpc) = Pmap1.NameE
If Pmap1.CornerShib = 0 Then
Mid(INFO, 1 + (3 * InfoSpc), InfoSpc) = "0"
Else
Mid(INFO, 1 + (3 * InfoSpc), InfoSpc) =Format(Pmap1.CornerShib, "###.##")
End If
Wend
Close #1