Dim Data As String Data = Mid(Buffer, InStr(1, Buffer, "À€450À€") + Len("À€450À€")) If Left(Data, 1) = 1 Then Exit Sub
استفاده از مطالب انجمن در سایر سایت ها، تنها با ذکر انجمن هوش مصنوعي به عنوان منبع و لینک مستقیم به خود مطلب مجاز است