الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

طلب بسيط للمبرمجين Microsoft Visual Studio 2008

بدأه aissa1 في 21 يناير 2009 · 15 رد · 1,319 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الحمن الرحيم 

لدي ملف txt

و من ضمن ما مكتوب فيه رمز$ و الرمز #

و عندما اكتب في الحقل الاول و الحقل الثاني اي شيئ 

و اضغط حفظ 

يتغيير الي في رمز$ و الرمز # بالي كتبته

1id66643.jpg 

qun68657.jpg

في انتضار ردكم بارك الله فيكم

#2

أهلاً ومرحباً بك أختي الكريمة في منتديات الفريق العربي للبرمجة .

هل تقصدين استبدال كل من الرموز المذكورة بأسماء معينة ؟, ام تقصدين ترميز الـ TextBox ؟

ج1 - يمكنك استخدام العملية ذات المرجع النصي Replace التي تطلب ثلاثة أشياء وهي :

1 - المصدر ( النص المراد الإستبدال منه ) .

2 - ( الرمز, الحرف, الكلمة, الجملة ) المراد الإستبداله(ا) .

3 - المستبدل به .

Replace( المستبدل به , المراد استبداله, المصدر )

مثال :

 

Dim MyStringVariable [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"$ is a doctor and # is an engineer"

MyStringVariable [color= #339933;]= Replace[color= #009900;]( MyStringVariable[color= #339933;], [color= #0000ff;]"#"[color= #339933;], [color= #0000ff;]"Ahmad" [color= #009900;])

MyStringVariable [color= #339933;]= Replace[color= #009900;]( MyStringVariable[color= #339933;], [color= #0000ff;]"$"[color= #339933;], [color= #0000ff;]"Essa" [color= #009900;])

ج2 - كل ماعليّك فعله وضع أي رمز داخل الخاصية PasswordChar أو بشكل برمجي على الشكل التالي :

TextBox1.PasswordChar = "#"

إذا لم يكن من المذكور الرجاء التوضيح بشكل أخر, وشكراً .

بالتوفيق

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 21 يناير 2009 في 23:29

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#3

بارك الله فيك يا اخي ولك مني كل الود

لكن

كيفية فتح ملف txt وحفظه على هارد ديسك

في انتضار ردك

تم تعديل هذه المشاركة بواسطة aissa1 في 22 يناير 2009 في 09:59

#4

مرحباً أختي الكريمة .

يمكنك قراءة ملف نصي عن طريق استخدام احدا الطرق التالية:

1 - System.IO.File.ReadAllText

 

Imports [color= #990000;]System[color= #339933;].IO

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub BtnOpen_Click[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles BtnOpen[color= #339933;].Click

Dim TextFileContents [color= #b1b100;]As String [color= #339933;]= [color= #990000;]File[color= #339933;].ReadAllText[color= #009900;]( [color= #0000ff;]"FileName.txt" [color= #009900;])

TextBox1[color= #339933;].Text [color= #339933;]= TextFileContents

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

2 - My.Computer.FileSystem.ReadAllText نفس العملية ونفس الإستخدام لكنك لاتحتاجين لإستدعاء اسم الفضاء ( System.IO ), لاحظي الفرق بين المثالين .

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub BtnOpen_Click[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles BtnOpen[color= #339933;].Click

Dim TextFileContents [color= #b1b100;]As String [color= #339933;]= My[color= #339933;].Computer[color= #339933;].FileSystem[color= #339933;].ReadAllText[color= #009900;]( [color= #0000ff;]"FileName.txt" [color= #009900;])

TextBox1[color= #339933;].Text [color= #339933;]= TextFileContents

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

بالنسبة للحفظ, أيضاً هنالك طريقيتين :

1 - System.IO.File.WriteAllText

 

Imports [color= #990000;]System[color= #339933;].IO

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub BtnOpen_Click[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles BtnOpen[color= #339933;].Click

Dim TextFileContents [color= #b1b100;]As String [color= #339933;]= TextBox1[color= #339933;].Text

[color= #990000;]File[color= #339933;].WriteAllText[color= #009900;]( [color= #0000ff;]"FileName.txt"[color= #339933;], TextFileContents[color= #339933;], [color= #000000; font-weight: bold;]False [color= #009900;])

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

2 - My.Computer.FileSystem.WriteAllText

 

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub BtnOpen_Click[color= #009900;]( Byval Sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

Byval E [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs [color= #009900;]) Handles BtnOpen[color= #339933;].Click

Dim TextFileContents [color= #b1b100;]As String [color= #339933;]= TextBox1[color= #339933;].Text

My[color= #339933;].Computer[color= #339933;].FileSystem[color= #339933;].WriteAllText[color= #009900;]( [color= #0000ff;]"FileName.txt"[color= #339933;], TextFileContents[color= #339933;], [color= #000000; font-weight: bold;]False [color= #009900;])

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

لاتتردي في سؤال أي أسئلة أخرى حتى لو كانت بسيطة جداً, كلنا بدأنا على هذا الأساس .

بالتوفيق .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 22 يناير 2009 في 11:21

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#5

شكرا لك اخي لكني عند الحفظ على نفس الملف الذي فتتحته يقول انه مستخدم من طرف بروسيسوس اخر

#6

مرحباً أختي الكريمة .

أختي الكريمة, المذكور في الأعلى قائم على أساس إستخدام Stream لكن عند الإنتهاء من قراءة محتويات الملف النصي يقوم تلقائياً بإغلاق الـ Stream خاصته .

من فضلك قومي بإدراج ماتستخدمينه من Code هنا, وشكراً .

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#7 
Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim txt As String
		txt = My.Computer.FileSystem.OpenTextFileReader("C:\aaaa.server").ReadToEnd
		My.Computer.FileSystem.OpenTextFileReader("C:\aaaa.server").Close()
		RichTextBox1.Text = txt
		txt = txt.Replace("/", TextBox1.Text)
		txt = txt.Replace("$", TextBox2.Text)
		My.Computer.FileSystem.WriteAllText("C:\aaaa.server", txt, False)
	End Sub

	Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

	End Sub
End Class
#8
aissa1 كتب:
Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim txt As String
		txt = My.Computer.FileSystem.OpenTextFileReader("C:\aaaa.server").ReadToEnd
		My.Computer.FileSystem.OpenTextFileReader("C:\aaaa.server").Close()
		RichTextBox1.Text = txt
		txt = txt.Replace("/", TextBox1.Text)
		txt = txt.Replace("$", TextBox2.Text)
		My.Computer.FileSystem.WriteAllText("C:\aaaa.server", txt, False)
	End Sub

	Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

	End Sub
End Class

 

Imports [color= #990000;]System[color= #339933;].IO

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

 

[color= #000000; font-weight: bold;]Private Sub Button1_Click[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles Button1[color= #339933;].Click

Dim [color= #990000;]Empty [color= #b1b100;]As Boolean [color= #339933;]= [color= #009900;]([color= #009900;](TextBox1[color= #339933;].Text [color= #339933;]= String[color= #339933;].[color= #990000;]Empty[color= #009900;]) And [color= #009900;](TextBox2[color= #339933;].Text [color= #339933;]= String[color= #339933;].[color= #990000;]Empty[color= #009900;])[color= #009900;])

[color= #b1b100;]If Not [color= #990000;]Empty Then

Dim FileName [color= #b1b100;]As String [color= #339933;]= [color= #0000ff;]"C:[color= #000099; font-weight: bold;]aaaa.server"

[color= #b1b100;]If [color= #990000;]File[color= #339933;].Exits[color= #009900;]( FileName [color= #009900;]) Then

Dim txt [color= #b1b100;]As String 

txt [color= #339933;]= [color= #990000;]File[color= #339933;].ReadAllText[color= #009900;]( FileName [color= #009900;])

RichTextBox1[color= #339933;].Text [color= #339933;]= txt

txt [color= #339933;]= txt[color= #339933;].Replace[color= #009900;]([color= #0000ff;]"/"[color= #339933;], TextBox1[color= #339933;].Text[color= #009900;])

txt [color= #339933;]= txt[color= #339933;].Replace[color= #009900;]([color= #0000ff;]"$"[color= #339933;], TextBox2[color= #339933;].Text[color= #009900;])

[color= #990000;]File[color= #339933;].WriteAllText[color= #009900;]( FileName[color= #339933;], txt[color= #339933;], [color= #000000; font-weight: bold;]False [color= #009900;])

[color= #b1b100;]Else

MsgBox[color= #009900;]( [color= #0000ff;]"File wasn't found :( ." [color= #009900;])

[color= #990000;]End [color= #b1b100;]If

[color= #b1b100;]Else

MsgBox[color= #009900;]([color= #0000ff;]"Please fill the textboxes ..." [color= #009900;])

[color= #990000;]End [color= #b1b100;]If

[color= #990000;]End Sub

 

[color= #000000; font-weight: bold;]Private Sub TextBox1_TextChanged[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles TextBox1[color= #339933;].TextChanged

 

[color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

بالتوفيق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#9

باراك الله فيك يا غالي

نجحت طريقتك 10/10 ولكني وقعت في مشكلة اخرى هي طريقة فتح ملف exe عن طريق الظغط على بوتون

#10

الله يبارك فيكي .

إنك كنت تقصدين أنك تريدين فتح ملف Exe اي تشغيل = يمكنك استخدام التالي :

 

[color= #990000;]System[color= #339933;].Diagnostics[color= #339933;].Process[color= #339933;].Start[color= #009900;]([color= #0000ff;]"FileName.exe"[color= #009900;])

وإن كنت تريدين تشغيل الملف داخل الـ Form خاصتك, فعليك بالتالي :

 

Imports [color= #990000;]System[color= #339933;].Diagnostics

[color= #000000; font-weight: bold;]Public [color= #000000; font-weight: bold;]Class Form1

    [color= #000000; font-weight: bold;]Public Declare [color= #000000; font-weight: bold;]Function SetParent Lib [color= #0000ff;]"user32" Alias [color= #0000ff;]"SetParent" [color= #990000;]_

    [color= #009900;](ByVal HandlerChild [color= #b1b100;]As IntPtr[color= #339933;], ByVal HandleNewParent [color= #b1b100;]As IntPtr[color= #009900;]) [color= #b1b100;]As IntPtr

 

    [color= #000000; font-weight: bold;]Private Sub Form1_Load[color= #009900;](ByVal sender [color= #b1b100;]As [color= #990000;]System[color= #339933;].Object[color= #339933;], [color= #990000;]_

    ByVal e [color= #b1b100;]As [color= #990000;]System[color= #339933;].EventArgs[color= #009900;]) Handles MyBase[color= #339933;].Load

        Dim PR [color= #b1b100;]As Process [color= #339933;]= Process[color= #339933;].Start[color= #009900;]([color= #0000ff;]"FileName.exe"[color= #009900;])

        PR[color= #339933;].WaitForInputIdle[color= #009900;]([color= #009900;])

        SetParent[color= #009900;](PR[color= #339933;].MainWindowHandle[color= #339933;], Me[color= #339933;].Handle[color= #009900;])

    [color= #990000;]End Sub

 

[color= #990000;]End [color= #000000; font-weight: bold;]Class

اما إذا كنت تريدين قراءة الـ Bytes من ملف EXE فهنالك عدّة طرق, إذا كان هذا ما تريدينه أخبريني لأشرح لك هذه الفكرة .

بالتوفيق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#11

شكرا لك اخي ولكن وان اثقلت عليك

اريد طريقة عمل توزيع للبرامج بواسطة setup wizard

وشكرا

#12

لا شكر على واجب .

قمت بشرح هذه الفكرة سابقاً ( لكنني لم أجدها !!! :S )

خطوات التحزيم سهلة جداً :), يمكنك ذلك من :

1 - من القائمة الرئيسية للـ Visual Basic انقر على ( Build ) ثم اختاري ( Publish ) سيظهر لك مربع حوار يسألك :

ا - أين تريدين تصدير حزمة ملفات التثبيت ؟ ( مكان يمنكنك أختياره على سبيل المثال ( C:\Program Files\My Application )

Next

ب - كيف سيقوم المستخدمين تثبيت هذا البرنامج ( المقصود هنا - عن طريق ماذا ؟ ) ( مكان محدد على الـ Hard-Disk, وصلة محددة على Web, ام من الـ CD, DVD Driver )

ستجدين أن الخيار الثالث هو المختار لانه لا يتقيد بأي من المذكور ( الخياران الأول والثاني ) .

Next

د - يسأل معالج التحزيم هل يجب تأكد من تحديثات البرتامج ومن أين, طبعاً إذا لم يكن لدى برنامجك تحديثات يمكن تحديثها في المستقبل فيمكنك النقرعلى :

Next

سيعرض لك الصفحة الأخيرة من معالج التحزيم التي تعرض لك معلومات عن مكان التصدير و معلومات عن خيارات الـ Click-Once .

2 - من مستعرض الحلول ( Solution Explorer ) انقر نقرة مزدوجة على ( My Project ) ستظهر لك TabControl فيها ألسنة عن خصائص المشروع, الإعدادات ووو, و التحزيم اي ( Publish ) انقر عليها لتعرض لك صفحة التحزيم .

- يمكنك النقر على ( Publish Now ) لإختصار الخطوات السابقة ^^^^^, أو

- يمكنك الضغط على ( Publis Wizard ) لتحصل على معالج التحزيم وبعدها عليّك القيام بالخطوات الذكورة في الأعلى .

- هنالك زر معنوان ( Application Files ) أي ( الملفات الخاصة بالتطبيق ), إذا أردت إضافة ملفات إضافة لتحزم مع التطبيق, فعليك تغيّر الخاصية Publish Status من المعالج الذي يظهرلك بعد النقر على ذلك زر, عليّك تغّير تلك الخاصية الى ( Include ) ز

- هنالك أيضاً زر معنوان ( Prerequisites ) إذا نقرتِ على هذا الزر سيظهر لك صندوق يحوي متطليات تشغيل التطبيقات والذي يكون محدد يعني أنه يجب أن يكون مضمن .

والباقي لا يهمك بالوقت الحالي .

بالتوفيق .

تم تعديل هذه المشاركة بواسطة Bashar Rabat في 23 يناير 2009 في 23:04

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#13

لم اجد الطريقة التي اضيف الملفات التي تعمل مع البرنامج

#14

و هذا الخطأ الذي يضهر

post-181644-1232744689_thumb.jpg

#15

هل هذا ماتقصدينه ؟

Bashar Rabat كتب:
- هنالك أيضاً زر معنوان ( Prerequisites ) إذا نقرتِ على هذا الزر سيظهر لك صندوق يحوي متطليات تشغيل التطبيقات والذي يكون محدد يعني أنه يجب أن يكون مضمن .

إذا كان هذا, فعند النقر على الزر ( Prerequisites ) يظهر لك مربع حوار يحوي مثلاً ( .Net FrameworkV?, Windows InstallerV?, SQL Server V? ) يتجدين بجانب هذه الاسماء صناديق اختيار CheckBoxes عليك أختيار ماتريدين اي تعليم إشارة الصح المقابلة لذلك الاسم ( اسم الملف كالـ .Net Framework ( ثم من الـ RadioButtons الموجودين في الأسفل, أختاري :

Download Prerequisites From The Same Location As My Application

عند التحزيم يتم إرفاق التثبيتات المختارة مع الـ Setup

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

#16

ذكرني أستاذنا القدير "محمد سامر أبو سلو" بقدومه بهذا الموضوع " كيف نقوم بتوزيع مشروعنا باستخدام تقنية Click Once " ألقي نظرة >>> يشرح الفكرة بشكل سلس وكامل :D .

بالتوفيق .

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

مواضيع مشابهة