PDA

View Full Version : راهنمایی برای عنوان فرم با توجه به اسم فایل



soonami
سه شنبه 04 مرداد 1390, 12:00 عصر
سلام خدمت دوستان من فایلی رو تو rich box بار گذاری میکنم و ....
حالا می خواهم عنوان فرمم فقط اسم فایل + پسوندش نشان داده شود برای همین منظور برای درک بهتر
یه .... text box قرار دادم و مسیر فایل رو دا خلش ریختم و پسوندش رو جدا کردم حالا برای اسم به مشکل خوردم

کد زیر پسوند رو جدا میکنه حالا برای اسم باید چی کار کنم ؟؟؟؟؟؟


texbox1.text = cd1.FileName
Me.Text = TextBox1.text.substring(textbox1.lenght - 3)

محسن شامحمدی
سه شنبه 04 مرداد 1390, 12:31 عصر
از کلاس File Info استفاده کن
Dim f As New IO.FileInfo("c:\windows\system32\barnamenevis.org")
MsgBox(f.Name) 'full name
MsgBox(f.Name.Remove(f.Name.Length - 4)) 'short name
MsgBox(f.Extension)

soonami
سه شنبه 04 مرداد 1390, 15:56 عصر
دوست عزیز متاسفانه به مشکل خوردم . از کد شما استفاده کردم ولی کار نکرد

salehbagheri
سه شنبه 04 مرداد 1390, 19:07 عصر
شما برای باز کردن فایل از Dialog ها استفاده نمی کنید؟

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


Dim SelectedFile As New FileInfo("E:\TextFile.vbproj")
Me.Text = SelectedFile.Name.Replace(SelectedFile.Extension, "")

soonami
سه شنبه 04 مرداد 1390, 19:34 عصر
چرا استفاده می کنم اینم کد مربوطه به ope n :

cd1.Filter = "WORD |*.DOCS|TEXT|*.TXT"
Dim s As String
If cd1.ShowDialog() = Windows.Forms.DialogResult.OK Then
s = cd1.FileName
Dim sr As New StreamReader(s)
Dim str As String = ""
While sr.Peek() >= 0
str &= sr.ReadLine
str &= vbCrLf
End While
sr.Close()
r1.Text = str
End If

محسن شامحمدی
سه شنبه 04 مرداد 1390, 19:37 عصر
دوست عزیز متاسفانه به مشکل خوردم . از کد شما استفاده کردم ولی کار نکرد
به چه مشکلی؟
الان اگر کد من رو توی Vs تون کپی کنید کار می کنه.
لطفا بگید به چه مشکلی تا بتونیم کمک کنیم.
ضمنا می تونید برای بدست آوردن نام فایل بدون پسوند از این روش استفاده کنید:

Dim f As New IO.FileInfo("c:\windows\system32\barnamenevis.org")
MsgBox(f.Name) 'full name
MsgBox(f.Name.Remove(f.Name.Length - f.Extension.Length)) 'short name
MsgBox(f.Extension)

Mani_rf
سه شنبه 04 مرداد 1390, 19:55 عصر
اگر از OpenFileDialog استفاده می کنی می تونی از تابع SafeFileName استفاده کنی.


ME.Text = cd1.SafeFileName

soonami
سه شنبه 04 مرداد 1390, 19:58 عصر
من میخواهم زمانی که کاربر یک فایل باز کرد اسم فایل بیاد ولی کد شما این کار رو نمی کند
این کد من برای باز کردن فایل هست بی زحمت شما بگید کدتون رو کجا قرار دهم که ....


cd1.Filter = "WORD |*.DOCS|TEXT|*.TXT"
Dim s As String
If cd1.ShowDialog() = Windows.Forms.DialogResult.OK Then
s = cd1.FileName
Dim sr As New StreamReader(s)
Dim str As String = ""
While sr.Peek() >= 0
str &= sr.ReadLine
str &= vbCrLf
End While
sr.Close()
r1.Text = str
End If

Mani_rf
سه شنبه 04 مرداد 1390, 20:02 عصر
cd1.Filter = "WORD |*.DOCS|TEXT|*.TXT"
Dim s As String
If cd1.ShowDialog() = Windows.Forms.DialogResult.OK Then
ME.Text = cd1.SafeFileName
s = cd1.FileName
Dim sr AsNewStreamReader(s)
Dim str AsString = ""
While sr.Peek() >= 0
str &= sr.ReadLine
str &= vbCrLf
EndWhile
sr.Close()
r1.Text = str
EndIf