mohandess le
شنبه 20 فروردین 1390, 23:56 عصر
سلام دوستان خسته نباشید
من یک برنامه نوشتم که درآن اطلاعات کاربر رادر یک فایل متنی می نوشتم وازآن هم به راحتی میخواندم
(بدرستی عمل میکرد )اماوقتی همان کدها رو روی لپ تاپ باویندوز7نوشتم زمانیکه فایل راجداازبرنامه ،خودم باnotpadبازکنم ژاپنی نشون میده اگرباwordبازکنم درست نشون میده ودربرنامه ام باmessageboxازش میخوام یوزرنیم رو که ازفایل خونده نشونم بده کادر خالی ظاهر میشه !بنظرشما مشکل ازکجاست؟اینم کد خواندن ازفایل
Dim a As String
Dim b As String
Dim filenum As Integer
Dim user1 As user
filenum = FreeFile()
FileOpen(filenum,
"F:\project\myprojec\myproject\user.txt", OpenMode.Random)
user1 =
New user
FileGet(filenum, user1, 1)
a = user1.username
b = user1.password
FileClose()
MessageBox.Show(a)
من یک برنامه نوشتم که درآن اطلاعات کاربر رادر یک فایل متنی می نوشتم وازآن هم به راحتی میخواندم
(بدرستی عمل میکرد )اماوقتی همان کدها رو روی لپ تاپ باویندوز7نوشتم زمانیکه فایل راجداازبرنامه ،خودم باnotpadبازکنم ژاپنی نشون میده اگرباwordبازکنم درست نشون میده ودربرنامه ام باmessageboxازش میخوام یوزرنیم رو که ازفایل خونده نشونم بده کادر خالی ظاهر میشه !بنظرشما مشکل ازکجاست؟اینم کد خواندن ازفایل
Dim a As String
Dim b As String
Dim filenum As Integer
Dim user1 As user
filenum = FreeFile()
FileOpen(filenum,
"F:\project\myprojec\myproject\user.txt", OpenMode.Random)
user1 =
New user
FileGet(filenum, user1, 1)
a = user1.username
b = user1.password
FileClose()
MessageBox.Show(a)