منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اريد جلب جزء من نص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=21179)

الصفحات: 1 2

اريد جلب جزء من نص - ابو روضة - 25-07-17

السلام عليكم ورحمة الله وبركاته

اخوتى اريد أخذ جزء نص معين من نص كبير كما بهذه الصورة تماما










يعنى عاوز النص المراد اخذه ووضعه داخل تكست بوكس من أول هنا كما هو موضح EAAAAA

ويأخذ باقى النص الى ان يصل لهذا الحرف ولا ياخذ شيئ بعده klBk0


RE: اريد جلب جزء من نص - silverlight - 25-07-17

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

RE: اريد جلب جزء من نص - ابو روضة - 25-07-17

(25-07-17, 02:30 AM)silverlight كتب : ياأخي الفاضل
بدلا من أن تضع صورة التكست
ضع التكست نفسه فهذا أسهل لنا و لك

حاضر اخى انا اسف اتفضل


https://pastebin.com/raw/fK79BjW7

او هنا كامل

كود :
{"session_key":"5.FnyaTGplwinltg.1500937603.36-100019841194676","uid":100019841194676,"secret":"03d84a000698019b89a323b550fa","access_token":"EAAAAAYsX7TsBADhamCNvqPykqq6Ya9UZBYCpN6WIJ6wlWx30dR8NkawCv8XZCm3a4nLZBNhtYZCZZCZB87N1jh0ueJyLjP2agZAIOMPWycyzwcTcH1qMZAaDqgBYvVKZBNZCSaszEh9Pmn5CdPnj17rTL5uPtL7jrMw3Q4XiMFvoVKGQY8VJwMZB5weCpRd7u1gUbtX0N3klBk0","machine_id":"gn12WTgkGjbDs7x_oTZhqteM","confirmed":true,"identifier":"6b98fc84\u0040mailna.biz"}


RE: اريد جلب جزء من نص - أبو نوره - 25-07-17

السلام عليكم

تفضل الكود
PHP كود :
Dim s As String = Regex.Match(sourceString, "(?<=""access_token"":"").+?(?="")").Value 


RE: اريد جلب جزء من نص - ابو روضة - 25-07-17

(25-07-17, 03:42 AM)أبو نوره كتب : السلام عليكم

تفضل الكود
PHP كود :
Dim s As String = Regex.Match(sourceString, "(?<=""access_token"":"").+?(?="")").Value 

ممكن لو تكرمت الكود كامل انا اسف


RE: اريد جلب جزء من نص - أبو نوره - 25-07-17

ماهو هو ده الكود كامل مفيش غيره

sourceString غيره لاسم المتغير اللي عندك اللي فيه النص اللي فموضوعك

الناتج تلاقيه في المتغير s

RE: اريد جلب جزء من نص - ابو روضة - 25-07-17

(25-07-17, 04:04 AM)أبو نوره كتب : ماهو هو ده الكود كامل مفيش غيره

sourceString غيره لاسم المتغير اللي عندك اللي فيه النص اللي فموضوعك

الناتج تلاقيه في المتغير s

اخى الاستاذ ابو نوره

انا اقصد يعنى انا احط هذا الكود فين بالضبط لانى مش عامل مشروع اصلا لانى افتكرت الموضوع 
هايكون صعب يعنى مثلا احط تكست بوكس وبوتون واحط الكود فى البوتون ؟
طب والموقع اللى هايجيب منه النص اضعه فين ؟ فهمتنى
وطبعا اعتذر لحضرتك لو تعبتك


RE: اريد جلب جزء من نص - أبو نوره - 25-07-17

انا مش عارف كيف جبت النص اصلا

يعني لما تعمل مشروع وتعرف يجيب النص اللي في موضوعك من الموقع، وقتها استخراج access_token من النص سهل زي منت شايف

لاني مش عارف انت عاوز ايه من البرنامج بالزبط.


ومفيش تعب ولاحاجه، المعلومة اللي عندي حتكون تحت امرك.

RE: اريد جلب جزء من نص - ابو روضة - 25-07-17

(25-07-17, 04:26 AM)أبو نوره كتب : انا مش عارف كيف جبت النص اصلا

يعني لما تعمل مشروع وتعرف يجيب النص اللي في موضوعك من الموقع، وقتها استخراج access_token من النص سهل زي منت شايف

لاني مش عارف انت عاوز ايه من البرنامج بالزبط.


ومفيش تعب ولاحاجه، المعلومة اللي عندي حتكون تحت امرك.

ده موقع اخى انا بجيب منه اكسس توكن لاننى بنشر به على الفيس بوك
وزى ما حضرتك شايف الكود كبير وانا عاوز لما يدخل الصفحة يجلبلى منها النص اللى انا قولت عليه
يعنى مثلا انا حطيت دلوقتى هذا الكود لقرائة ملف نصى من الانترنت
كود :
Dim wc As New WebClient
       TextBox1.Text = wc.DownloadString("https://pastebin.com/raw/fK79BjW7")
فانا عاوزو اول ما يدخل للموقع يقرا النص ويستخرج لى النص اللى انا قولت عليها

RE: اريد جلب جزء من نص - أبو نوره - 25-07-17

اخي ابو روضه

جرب كده
PHP كود :
Dim wc As New WebClient
Dim sourceString As String = wc.DownloadString("https://pastebin.com/raw/fK79BjW7")

Dim s As String = Regex.Match(sourceString, "(?<=""access_token"":"").+?(?="")").Value

MsgBox(s)