حذف پیوند

[aleas2]

سلام خسته نباشید من داخل text یه متن به زیان html نوشتم که هم داخلش لینک عکس هسته هم متن پیوند دادم خب من میخوام یه command بسازم که باکلیک رو اون بتونم متن های که پیوند داده شده هستن رو پیوندشون رو حذف کنم ولی عکسا پاک نشن فقط پیوند متن ها
و برای نمونه یه فایل برای دانلود اماده کردم که به زبان html هسته هم داخلش عکس هسته هم متن هم متن پیوند داده شده
از اینجا دانلود کنید (http://up.parsigold.you5.net/uploads/12906911571.zip)

[pcdownload.bloghaa.com]

سلام
یک کامند باتن و یک تکست باکس روی فرم بزار
و در تکست باکس کد html را بنوید.با زدن کامند متن های لینک دار به متن ساده تبدیل می شوند.


Private Sub Command1_Click()
Dim a, b As Long
Dim x, k As String
x = Text1
Do While InStr(1, x, "<a")
a = InStr(1, x, "<a")
b = InStr(a + 2, x, ">")
k = Mid(x, a, b - a + 1)
x = Replace(x, k, "", , 1)
x = Replace(x, "</a>", "", 1)
Loop
Text1 = x
End Sub