سؤال للمختصين في فيجول بيسيك

الموضوع في 'لغات البرمجة' بواسطة haty, بتاريخ ‏31 أوت 2007.

حالة الموضوع:
مغلق
  1. haty

    haty عضو مميز

    إنضم إلينا في:
    ‏20 أفريل 2006
    المشاركات:
    614
    الإعجابات المتلقاة:
    1.019
      31-08-2007 22:07
    الرجاء من له خبرة في هذه اللغة مدي بكود يبحث عن قيمة في مستند نص ويغيرها بقيمة مخزنة مسبقا.ولكن يجب ان يكون التغيير لمرة واحدة فقط.
    جربت هذا الكود ولكن يغيير جميع القيم
    InStr(1,text to search,textto replace)​
     
  2. CrazyFrog

    CrazyFrog نجم المنتدى

    إنضم إلينا في:
    ‏1 أفريل 2006
    المشاركات:
    1.724
    الإعجابات المتلقاة:
    335
      01-09-2007 09:33
    jai oublier l'astuce mais essaye de travailler avec l'instruction open file
     
  3. pellodu21

    pellodu21 عضو فعال

    إنضم إلينا في:
    ‏8 فيفري 2007
    المشاركات:
    468
    الإعجابات المتلقاة:
    325
      01-09-2007 17:24
    Sallem khouya voila un petit bou de code ya3millik elli thib 3lih
    كود (text):


    Private Sub Command1_Click

    ()
        'c la chaine qui va prendre la place de la chaine à remplacer
        f = "COPMRI"
        'la chaine à remplacer
        x = InputBox(sss)
        'avoire la prmiére occurence de la chaine à remplacer
        s = InStr(1, Text1.Text, x, vbBinaryCompare)
        'Ici je pense pas que je doit t'éxpliquer car c facile à comprendre
        m = Left(Text1.Text, s - 1) & f & Right(Text1.Text, s + Len(x))
        Text1.Text = m
    End Sub


     
    Houni 3melt form ou 7a 7atit fiha textbox ou boutton et si tu veux encore de l'aide je sui la
     
  4. haty

    haty عضو مميز

    إنضم إلينا في:
    ‏20 أفريل 2006
    المشاركات:
    614
    الإعجابات المتلقاة:
    1.019
      04-09-2007 00:43
    مشكور اخي العزيز بارك الله فيك .
     
  5. حمدي عشيش

    حمدي عشيش عضو نشيط

    إنضم إلينا في:
    ‏18 مارس 2006
    المشاركات:
    184
    الإعجابات المتلقاة:
    169
      30-09-2007 14:14
    :besmellah1:
    El7all : l
    A3mel text box fih :
    "ramzi .................
    ramzi .................
    ramzi .................
    ramzi .................
    ramzi ................."
    ismha text1 wi koun multiline = true
    wikteb el code hetha
    resultat :
    "
    hamdi .................
    ramzi .................
    ramzi .................
    ramzi .................
    ramzi .................
    "
    ahi tbeddlet ken el marra loula

    tafsir :
    Function Replace(Expression As String, Find As String, Replace As String, [Start As Long = 1], [Count As Long = -1], [Compare As VbCompareMethod = vbBinaryCompare]) As String

    Expression as string = text qui contient le mot a changer
    Find as string = le texte a changer
    replace as string = le changement
    start as long = l'ordre de la fonctio (par defaut 1 pour que la recherche de toute la phrase)
    count as long combien des recherch a changer (1 dans notre cas. si en veux 2 count =2)
    winchallah nkoun jawebtik
    [​IMG]
     
  6. smartghost

    smartghost عضو

    إنضم إلينا في:
    ‏22 جوان 2007
    المشاركات:
    68
    الإعجابات المتلقاة:
    18
      04-10-2007 14:49
    [:besmellah1:B]Salut a tous,
    Si vous avez des probléme dans l'un des langage des programmations vous pouvez visiter le lien suivant, vous pouvez trouver des tutorials,astuces,exemple pour débutant et pro, et meme beaucoup des codes soources sur les plupart des langage
    Merci.
    [/B]


    Bienvenu
     
جاري تحميل الصفحة...
حالة الموضوع:
مغلق

مشاركة هذه الصفحة

جاري تحميل الصفحة...