مثال يرجع كود HTML بعد التغيير وبعد تحميل الصور الى مجلد على السيرفر

amjad-ee كتب:

مرحبا

هذا الكود كتبته لعمل التالي:

انا عندي اداة freeRichText فهي تحوي على كود HTML يقوم المستخدم بتصميم الصفحة الخاصة به فيضيف الصور من جهازه الخاص وعندما أريد حفظ نص الـ HTML في قاعدة البيانات سيقوم هذا الكود بتحميل الصور من جهاز المستخدم وسيقوم بتغيير مساراتها في كود HTML داخل هذه الأداة

- ان S هي كود HTML قبل التغيير

- وهذا التابع يرجع كود HTML بعد التغيير وبعد تحميل الصور الى مجلد Dataspictures على السيرفر

	Function changeSRC(ByVal S As String) As String
		Dim i = 0
		Dim Fsrc = 1
		Dim SS As String
		Dim T1, T2 As Integer
		SS = ""

		Do Until i = S.Length - 1
			i = i + 1
			If Fsrc = 1 Then
				If i < S.Length - 3 Then
					If S.Substring(i, 3) = "src" Then
						Fsrc = 0
						T1 = i + 5
						SS = SS & S.Substring(i, 4)
						i = i + 4
					Else
						SS = SS & S.Substring(i, 1)
					End If
				Else
					SS = SS & S.Substring(i, 1)
				End If
			Else
				If S.Substring(i, 1) = """" Then
					T2 = i - 1
					SS = SS & """" & UploadToServer(S.Substring(T1, T2 - T1 + 1)) & """"
					Fsrc = 1
				End If
			End If
		Loop
		changeSRC = SS
	End Function

وهذا هو التابع المستخدم في تحميل الصور:

	Function UploadToServer(ByVal S As String) As String
		Dim SS As String
		SS = Now.Second.ToString & Now.Minute.ToString
		SS = SS & Now.Day.ToString & Now.Hour.ToString & Now.Month.ToString

		SS = SS & S.Substring(SS.Length - 3, 4)

		UploadToServer = "Dataspictures/" & SS
		Try
			IO.File.Copy(S, Server.MapPath(UploadToServer), True)
		Catch ex As Exception
			UploadToServer = S
		End Try
	End Function

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

هذه الطرقة ستعمل على جهازك فقط، وعندما تنشرها على الإنترنت لن تعمل لأنك تستعمل ال Copy من IO

يجب أن تستعمل ال Webclient وأوامره لنقل الملفات للخادم

هذه هي مشكلتي دائما فانا اعمل ASP.NET ولكنني لا املك سيرفر كي اجرب عليه فدائما تظهر معي مثل هذه الأخطاء

لو سمحت هل هذه الطريقة تمكنني من حفظ الformatting للنص المكتوب داخل

freeRichText ولو سمحت بدي رابط لتحميل هذا الكنترول

مرحبا

ان الأداة تمكنك من ذلك

ولكن الكود بحاجة الى تعديل كي يؤدي فكرة تغيير مسارات الصور

وهذا هو الرابط

http://freetextbox.com/files/6507/download.aspx