উত্তর:
Instr ফাংশনটি ব্যবহার করুন
Dim pos As Integer
pos = InStr("find the comma, in the string", ",")পোস্টে 15 ফিরে আসবে
যদি পাওয়া না যায় তবে এটি 0 এ ফিরে আসবে
আপনি যদি একটি এক্সেল সূত্র সহ কমা খুঁজে পেতে চান তবে আপনি =FIND(",";A1)ফাংশনটি ব্যবহার করতে পারেন ।
লক্ষ্য করুন যে আপনি যদি Instrস্ট্রিং কেস-সংবেদনশীল অবস্থানের অবস্থানটি অনুসন্ধান করতে ইন্সট্রের তৃতীয় প্যারামিটারটি ব্যবহার করতে চান এবং এটি কনস্ট vbTextCompare(বা ডাই-হার্ডসের জন্য কেবল 1) দিতে চান।
Dim posOf_A As Integer
posOf_A = InStr(1, "find the comma, in the string", "A", vbTextCompare)আপনাকে 14 এর মান দেবে।
মনে রাখবেন যে আমি লিঙ্কিত স্পেসিফিকেশনে বর্ণিত হিসাবে আপনাকে এই ক্ষেত্রে প্রারম্ভিক অবস্থানটি নির্দিষ্ট করতে হবে: তুলনা নির্দিষ্ট করা থাকলে শুরু যুক্তিটি প্রয়োজন The
আপনি বিশেষ শব্দটি ব্যবহার করতে পারেন like:
Public Sub Search()
If "My Big String with, in the middle" Like "*,*" Then
Debug.Print ("Found ','")
End If
End Subএছাড়াও InStrRev ফাংশন রয়েছে যা একই ধরণের কাজ করে তবে পাঠ্যের শেষে থেকে শুরু পর্যন্ত অনুসন্ধান শুরু করে।
প্রতি @ নবীর উত্তর ...
Dim pos As Integer
pos = InStrRev("find the comma, in the string", ",")... এখনও পোজে ফিরে আসবে 15, তবে স্ট্রিংটিতে যদি "দ্য" শব্দটির মতো অনুসন্ধান স্ট্রিংগুলির মধ্যে একের বেশি থাকে তবে:
Dim pos As Integer
pos = InStrRev("find the comma, in the string", "the")... 6 এর পরিবর্তে 20 এ পোজে ফিরে আসবে।
রেনির উত্তরের ভিত্তিতে আপনি এমন একটি ফাংশনও লিখতে পারেন যা স্ট্রিং উপস্থিত থাকলে সত্য দিয়েছিল, বা মিথ্যা না থাকলে FALSE লিখতে পারে:
Public Function Contains(strBaseString As String, strSearchTerm As String) As Boolean
'Purpose: Returns TRUE if one string exists within another
On Error GoTo ErrorMessage
Contains = InStr(strBaseString, strSearchTerm)
Exit Function
ErrorMessage:
MsgBox "The database has generated an error. Please contact the database administrator, quoting the following error message: '" & Err.Description & "'", vbCritical, "Database Error"
End
End Function
INSTRজন্য কাজ করে?