منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سحب و افلات و استخراج المعلومات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سحب و افلات و استخراج المعلومات (/showthread.php?tid=2249)



سحب و افلات و استخراج المعلومات - mohssan - 15-03-14

السلام عليكم

ابغي اسوي برنامج اذا سحبت إليه الي في الصورة


يستخرج رابط الموقع و الأسم


يعني اذا سحبت الي في الصورة الأوله و افلته في المربع الأبيض الكبير في البرنامج يستخرج رابط الموقع و يضعه في خانة رابط الموقع و يستخرج اسم الموقع و يضعه في خانة اسم الموقع

ضروري
و اكون شاكر لكم


RE: سحب و افلات و استخراج المعلومات - mohssan - 15-03-14

اتمنى انكم فهمتوني


RE: سحب و افلات و استخراج المعلومات - mohssan - 15-03-14

يا شباب
اذا ما عرفتون على الأقل اذا تعرفون :
شورت كيت لموقع على سطح الموقع و ابغي اذا ضغط زر يوضع رابط الموقع في تكست بوكس


RE: سحب و افلات و استخراج المعلومات - الشاكي لله - 15-03-14

ويش هذا الملف الي في الصورة ؟ صفحة html ؟


RE: سحب و افلات و استخراج المعلومات - mohssan - 15-03-14

(15-03-14, 10:55 PM)الشاكي لله كتب : ويش هذا الملف الي في الصورة ؟ صفحة html ؟

اي اذا تضغطه ينقلك لموقع


RE: سحب و افلات و استخراج المعلومات - mohssan - 15-03-14




RE: سحب و افلات و استخراج المعلومات - الشاكي لله - 15-03-14

اها شورت كات

اصبر بسوي لك مشروغ


RE: سحب و افلات و استخراج المعلومات - الشاكي لله - 16-03-14

تم بعون الله





الكود للافادة (مشروح بالتعليقات الخضراء) :-

مكتوب بالسي شارب تقدر تحوله من هنا


PHP كود :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace 
DragDropShortcut
{
    public 
partial class MainForm Form
    
{
        public 
MainForm()
        {
            
InitializeComponent();
        }

        private 
void itemsListView_DragEnter(object senderDragEventArgs e)
        {
            if (
e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                
e.Effect DragDropEffects.Copy//تحديد شكل الماوس عند عملية الافلات
            
}
        }

        private 
void itemsListView_DragDrop(object senderDragEventArgs e)
        {
            
string[] files = (string[])e.Data.GetData(DataFormats.FileDrop); //جلب الداتا من عملية الافلات

            
foreach (string file in files)
            {
                if (
Path.GetExtension(file).ToLower() == ".url")   //اذا كان الملف الملقى فقط على صيغة url
                
{
                    
ListViewItemX item = new ListViewItemX();
                    
item.Text Path.GetFileNameWithoutExtension(file); //جلب الاسم
                    
item.URL GetShortcutURL(file); //جلب الرابط
                    
item.ImageIndex 0;

                    
itemsListView.Items.Add(item);  //الاضافة الى اللست فيو
                
}
            }
        }


        private 
void itemsListView_SelectedIndexChanged(object senderEventArgs e)
        {
            if (
itemsListView.SelectedItems.Count != 0)
            {
                
ListViewItemX currentItem = (ListViewItemX)itemsListView.SelectedItems[0]; //جلب المحدد حاليا في اللستة

                
nameTextBox.Text currentItem.Text;
                
urlTextBox.Text currentItem.URL;
            }
        }

        private 
void goButton_Click(object senderEventArgs e)
        {
            try
            {
                
System.Diagnostics.Process.Start(urlTextBox.Text);
            }
            catch (
Exception ex) { MessageBox.Show(ex.Message"Error"MessageBoxButtons.OKMessageBoxIcon.Error); }
        }


        private 
void itemsListView_KeyDown(object senderKeyEventArgs e)
        {
            if (
e.KeyCode == Keys.Delete && itemsListView.SelectedItems.Count != 0)
            {
                
itemsListView.Items.Remove(itemsListView.SelectedItems[0]); //حذف الاختصار اذا ضغط delete
                
nameTextBox.Text string.Empty; //تصفير التسكت بوكسات
                
urlTextBox.Text string.Empty;
            }
        }


        
#region "GetShortcutURL"

        
string GetShortcutURL(string file)
        {

            
string[] content File.ReadAllLines(file);

            
//قرائة النص
            
foreach (string line in content)
            {
                
//البحث عن URL=
                
if (line.StartsWith("URL="))
                {
                    
//جلب الرابط بدون URL=
                    
return line.Remove(04);
                }
            }

            return 
"";
        }

        
#endregion


        

    
}

    class 
ListViewItemX ListViewItem   //عمل لست ايتيم معدل فيه خاصية url
    
{
        public 
string URL getset; }
    }





المشروع في المرفقات


ملاحظة : ملفات الshortcut الي اقصدها هي التي تنتهي ب Url.




RE: سحب و افلات و استخراج المعلومات - mohssan - 16-03-14

(16-03-14, 12:36 AM)الشاكي لله كتب :
تم بعون الله





الكود للافادة (مشروح بالتعليقات الخضراء) :-

مكتوب بالسي شارب تقدر تحوله من هنا


PHP كود :
using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.IO;

namespace 
DragDropShortcut
{
    public 
partial class MainForm Form
    
{
        public 
MainForm()
        {
            
InitializeComponent();
        }

        private 
void itemsListView_DragEnter(object senderDragEventArgs e)
        {
            if (
e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                
e.Effect DragDropEffects.Copy//تحديد شكل الماوس عند عملية الافلات
            
}
        }

        private 
void itemsListView_DragDrop(object senderDragEventArgs e)
        {
            
string[] files = (string[])e.Data.GetData(DataFormats.FileDrop); //جلب الداتا من عملية الافلات

            
foreach (string file in files)
            {
                if (
Path.GetExtension(file).ToLower() == ".url")   //اذا كان الملف الملقى فقط على صيغة url
                
{
                    
ListViewItemX item = new ListViewItemX();
                    
item.Text Path.GetFileNameWithoutExtension(file); //جلب الاسم
                    
item.URL GetShortcutURL(file); //جلب الرابط
                    
item.ImageIndex 0;

                    
itemsListView.Items.Add(item);  //الاضافة الى اللست فيو
                
}
            }
        }


        private 
void itemsListView_SelectedIndexChanged(object senderEventArgs e)
        {
            if (
itemsListView.SelectedItems.Count != 0)
            {
                
ListViewItemX currentItem = (ListViewItemX)itemsListView.SelectedItems[0]; //جلب المحدد حاليا في اللستة

                
nameTextBox.Text currentItem.Text;
                
urlTextBox.Text currentItem.URL;
            }
        }

        private 
void goButton_Click(object senderEventArgs e)
        {
            try
            {
                
System.Diagnostics.Process.Start(urlTextBox.Text);
            }
            catch (
Exception ex) { MessageBox.Show(ex.Message"Error"MessageBoxButtons.OKMessageBoxIcon.Error); }
        }


        private 
void itemsListView_KeyDown(object senderKeyEventArgs e)
        {
            if (
e.KeyCode == Keys.Delete && itemsListView.SelectedItems.Count != 0)
            {
                
itemsListView.Items.Remove(itemsListView.SelectedItems[0]); //حذف الاختصار اذا ضغط delete
                
nameTextBox.Text string.Empty; //تصفير التسكت بوكسات
                
urlTextBox.Text string.Empty;
            }
        }


        
#region "GetShortcutURL"

        
string GetShortcutURL(string file)
        {

            
string[] content File.ReadAllLines(file);

            
//قرائة النص
            
foreach (string line in content)
            {
                
//البحث عن URL=
                
if (line.StartsWith("URL="))
                {
                    
//جلب الرابط بدون URL=
                    
return line.Remove(04);
                }
            }

            return 
"";
        }

        
#endregion


        

    
}

    class 
ListViewItemX ListViewItem   //عمل لست ايتيم معدل فيه خاصية url
    
{
        public 
string URL getset; }
    }





المشروع في المرفقات


ملاحظة : ملفات الshortcut الي اقصدها هي التي تنتهي ب Url.


مشكوووووووووووووووووووووووووووووووور
هاذا الي ابغيه و اكثر و احسن
مشكور مشكور