نحوه اضافه کردن متن هنگام کپی و اشتراک

[bahman 165]

دوستان من با استفاده از کد های زیر کار کپی و اشتراک رو تو برنامه انجام میدم

حالا یه سوال دارم اگه بخوام انتهای هر یک از عملیات زیر یک واژه مثلا #بیسیک 4 اندروید اضافه شه چیکار باید بکنم

یعنی اون کلمه تو دیتابیسم نیست ولی وقتی کپی شد یا به اشتراک گذاشته شد علاوه بر متنی ک در دیتابیسمه اونم اضافه کنه

Sub btncopy_Click
   Dim something As BClipboard 
   Dim cursor2 As Cursor
   cursor2 = SQL1.ExecQuery("SELECT * FROM asly WHERE id BETWEEN 1 AND 60")

   Dim btn2 As Button
   btn2=Sender

   cursor2.Position =btn2.Tag
   something.clrText 
   something.settext(cursor2.GetString("payamak"))
   ToastMessageShow("متن در کلیپ بورد کپی شد",False)
   cursor2.Close
End Sub

Sub btnshare_Click
   Dim send As Button ' اشتراک گزاری متن
   send=Sender
   cursur1.Position=send.Tag
   text=cursur1.GetString("payamak")
   Dim share As Intent
   share.Initialize(share.ACTION_SEND,"")
   share.SetType("text/plain")
   share.PutExtra("android.intent.extra.TEXT",text)
   share.WrapAsIntentChooser("اشتراک گذاری پیامک با ...")
   StartActivity(share)
End Sub

[مجید آرتا 5,875]

یک مثال ساده با فایل تکست:

[/b][b]Dim s As String[/b]
[b]Dim sb As StringBuilder[/b]
[b]sb.Initialize[/b]
[b]sb.Append(CRLF).Append("www.basic4android.org")[/b]
[b]s = File.ReadString(File.DirAssets,"test.txt")[/b]
[b]lbl.Text = s & sb.ToString[/b]

[b]

بنده اومدم یک String Builder تعریف کردم.استرینگ بویلدر میاد یک متنی رو به آخر یک رشته دیگه اضاقه می کنه.

خوب من اومدم متن فایل تکست رو ریختم توی s بعد الحاقش ( & ) کردم با sb.ToString که شامل یک اینتر خوردن ( CRLF ) و متن www.basic4android.org هستش.

مشکلی بود در خدمتم.

[bahman 165]

داداش اولا ممنون بابت کمکتون من فایلمو از دیتابیس میگیرم و فایل تکسنی در کار نیست فرقی میکنه با این؟

چون این نتونستم بگیرم یا من نتونستم درست تو پروژه بزارم

[مجید آرتا 5,875]

خب شما میتونید بعد از این کد :

[color=#333333][font=monospace] text=cursur1.GetString("payamak")[/font][/color]

این رو بنویسید :

text  = text & sb.ToString

[bahman 165]

شرمنده ها استاد این lbl همون label هستش درسته چون میزنم بعدش میگه اینتلایز کنید ک میکنم باز خطا میده

[مجید آرتا 5,875]

اره لیبله و فقط بخاطر اینکه مثال بزنم به کار بردم.خب اگه از دیزاینر اضافه کرده باشید دیگه نباید خطای اینیشیالیز بده.

[bahman 165]

اها خب الان من متنمو تو اسکرول ویو قرار دادم و لیبل و اینا نیست

بازم همینه

چون هر کاری میکنم نمیزنه اون کلمه رو

بابت دردسرم ببخشین مبتدی هستیم دیگه

[bahman 165]

نشد ک نشد ))))))))))

[bahman 165]

دوستان شدیدا گیر اینم هرکی داشت ممنون میشمم

[مهدی ایزدی 9,203]

من یک همچین کاری رو برای txt انجام دادم:

Sub btnShare_Click
   Dim p2 As Button
   p2 = Sender
   Dim joda() As String = Regex.Split("#",p2.Tag)
   Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT", "♥ S2A By MeTiUx ♥" & CRLF & CRLF & joda(1))
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)
End Sub

شما فقط کافیه به جای اون کلمه ی Joda(1) بیایید GetString کنید مقدار توی دیتابیستون رو

[bahman 165]

من یک همچین کاری رو برای txt انجام دادم:

Sub btnShare_Click
   Dim p2 As Button
   p2 = Sender
   Dim joda() As String = Regex.Split("#",p2.Tag)
   Dim i As Intent
   i.Initialize(i.ACTION_SEND, "")
   i.SetType("text/plain")
   i.PutExtra("android.intent.extra.TEXT", "♥ S2A By MeTiUx ♥" & CRLF & CRLF & joda(1))
   i.WrapAsIntentChooser("اشتراک گذاری متن با...")
   StartActivity(i)
End Sub

شما فقط کافیه به جای اون کلمه ی Joda(1) بیایید GetString کنید مقدار توی دیتابیستون رو

استاد یادم افتاد حل شد ممنون بابت کد ولی نمیشه تهش بندازه این اولش میندازه

[مهدی ایزدی 9,203]

استاد یادم افتاد حل شد ممنون بابت کد ولی نمیشه تهش بندازه این اولش میندازه

خب اون متن بنده رو آخرش قرار بدید *che?*

[bahman 165]

حل شد ممنون از اساتید