პროგრამირება VB6– ში: რჩევები და ხრიკები: 3 ნაბიჯი

2024 ავტორი: John Day | [email protected]. ბოლოს შეცვლილი: 2024-01-30 10:22

მე ვპროგრამებ თავისუფალ დროს და საკმაოდ გამოცდილი პროგრამისტი ვარ VB6– ის გამოყენებით. ეს ადვილია და მე ჯერ არ მიპოვია ისეთი რამ, რისი გაკეთებაც მე მჭირდება, რაც მას არ შეუძლია, თუმცა ხანდახან შეიძლება რთული იყოს თქვენი ამოცანის შესრულება. გზად მე აღმოვაჩინე ამდენი შემაშფოთებელი რამ, ძირითადად ისე, როგორც ეს ითვლის გარკვეულ ნივთებს. ასე რომ, აქ არის რამოდენიმე რამ, რაც მე ვისწავლე გზაზე. მე გირჩევთ, თუ რაიმე პრობლემა შეგექმნათ კომენტარებში და მე შევეცდები დაგეხმაროთ სხვა ნაბიჯებით.

ნაბიჯი 1: სიმები

VB სტრიქონებთან ურთიერთობისას ზოგჯერ დამაბნეველია. Texta = "abcdefg" ათავსებს "სიმბოლოებს ტექსტის ორივე მხარეს, რომლის სტრიქონადაც გსურთ ჩაითვალოს Mid (სიმებიანი, დაწყება, სიგრძე) ირჩევს ტექსტის მონაკვეთს სიმებიანი სტრიქონებიდან ნულოვანი დაწყების სტრიქონები იწყება 1textb = შუა (texta, 2, 2) ეს ქმნის ცვლადს textb = "bc" textb = mid (texta, 4, 4) ეს ცვლის ცვლადს textb = "defg" textb = mid (texta, 4, 5) ეს ხდის ცვლადს textb = "defg" მართალია, თუ ტექსტი, რომლის შერჩევასაც ცდილობთ, უფრო გრძელია, შემდეგ არსებული ტექსტი მთავრდება ბოლო სიმბოლოს, თქვენი პროგრამის მიხედვით თქვენ უნდა მოათავსოთ ხაფანგები შეცდომების თავიდან ასაცილებლად. არის ასეთი ხაფანგი: textb = შუა (texta, 4, 5) თუ len (textb) <5 მაშინ 'Len () აბრუნებს სტრიქონის სიგრძეს <ნიშნავს ნაკლები მაშინ msbbox "ტექსტი ძალიან მოკლეა"' აჩვენებს შეტყობინების ყუთს stringexit ქვე "ეს გამოდის ქვეგანყოფილებაში. კოდის დამთავრებით. თუ თქვენ ხართ ფუნქციაში, მაშინ დააყენებთ გასასვლელ ფუნქციას და გამოარჩევს სიმბოლოს ადგილს სტრიქონში ჩვენ ვიყენებთ ინსტრუმენტებს (დაწყება, Stri ng1, String2) texta = "abcdefg" textb =str (1, texta, "c") 'ეს პოულობს ასო c სტრიქონში textatextb ახლა უდრის 3 უსიამოვნოა, თქვენ გინდათ რომ "abcdefg" იყოს "defgabc" texta = "abcdefg" textb = mid (texta, 4, 4) & mid (texta, 1, 3) ეს არ იყო ძალიან ცუდი, მაგრამ ახლა მოდით დავამატოთ ინსტრუმენტები () ფუნქციები < / b> გსურთ სტრიქონის რეორგანიზაცია ფარდის სიმბოლოზე, მაგრამ ეს არ არის ერთი და იგივე ადგილი ყველა) - ინსტრუმენტები (1, texta, "c") + 1) & mid (texta, 1, ინსტრუმ (1, texta, "c") - 1) გაითვალისწინეთ ნაწილი len (texta) - ინსტრუმენტები (1, texta, " გ ") + 1, რადგან ინსტრუმენტები ითვლის იმ პერსონაჟს, რომელსაც თქვენ ეძებთ, ასე რომ თქვენ დააბრუნეთ ერთი სიმბოლო ისე, რომ შუა () იღებს სიმბოლოს, რომელსაც თქვენ ეძებდით, როგორც პირველი stringtextc ახლა უდრის" cdefgab "textd = შუა (textb, instr (1, textb, "c"), len (textb) - ინსტრუმენტები (1, textb, "c") + 1) & mid (textb, 1, ინსტრუმენტები (1, textb, "c") - 1) textd now equa ls "cgfabde" შევეცადოთ ვიპოვოთ პერსონაჟი, რომელიც არ არის stringtexta = "abcdefg" textc = mid (texta, instr (1, texta, "h"), len (texta) - ინსტრუმენტები (1, texta, "h")) + 1) & შუა (ტექსტა, 1, ინსტრუმენტები (1, ტექსტა, "თ") - 1) თქვენ იღებთ შეცდომას, რადგან შუა () დასაწყისის ნაწილი არ შეიძლება = 0, რადგან სტრიქონები იწყება 1 -ზე, ასე რომ თქვენ უნდა აარიდოთ მუშაობის ხანგრძლივობას შეცდომა. ეს არის ერთი გზა ამის გასაკეთებლადtexttext = "abcdefg" თუ ინსტრუმენტ (1, texta, "h") 0 thentextc = mid (texta, instrument (1, texta, "h"), len (texta) - ინსტრუმენტები (1, texta, "h") + 1) & mid (texta, 1, instrument (1, texta, "h") - 1) else 'only one other statement per if situmsmsbox' 'სტრიქონში სიმბოლო ვერ მოიძებნება' 'აჩვენებს შეტყობინების ყუთს stringend ifThis აჯამებს ყველაფერს, რაც თქვენ უნდა იცოდეთ სტრიქონების შესახებ

ნაბიჯი 2: პერსონაჟების გარდაქმნა

HEX: ერთი, რომელიც ამ კვირის დასაწყისში აღმოვაჩინე, დაკავშირებულია Hex (რიცხვის) ფუნქციასთან, რიცხვს მნიშვნელობა არ აქვს. ის აბრუნებს სტრიქონს hexhex- ში (11111111) აბრუნებს "A98AC7" ასკიის სიმბოლოს hex ფორმატში გადაყვანისას. = "a" hex (asc (texta)) აბრუნებს "61" texta = "k" hex (asc (texta)) აბრუნებს "6B" სტრიქონი იქნება 2 სიმბოლო ASCI სიმბოლოების უმრავლესობისთვის, თუ არ არის 16 -ის მნიშვნელობის ქვეშ მაშინ ის აბრუნებს მხოლოდ 1 სიმბოლოს თუ გსურთ რომ ყველა იყოს 2 სიმბოლო თქვენ გააკეთებთ შემდეგს: textb = hex (asc (texta)) if len (textb) = 1 thentextb = "0" და textb 'ეს არის ნული და არა a დედაქალაქი თუ

ნაბიჯი 3: ფაილის რედაქტირება

ფაილის გასახსნელად გჭირდებათ freefile და filenamegfile = FreeFile 'gfile არის შემდეგი ხელმისაწვდომი freefilec = "c: / test.txt" შემდეგ არის 4 გზა ფაილის გახსნისთვის - თქვენ მხოლოდ წაკითხვა შეგიძლიათ. გამომავალი - თქვენ შეგიძლიათ დაწეროთ მხოლოდ და ის წაშლის ფაილს, თუ ის არსებობს. ვაგონის დაბრუნება და ხაზის მიწოდება ბოლო სიმბოლოების დამატება - თქვენ შეგიძლიათ დაწეროთ მხოლოდ. ის დაემატება არსებულ ფაილს. ვაგონი დაბრუნდება და ხაზს უსვამს ბოლო სიმბოლოებს ორობითი - წაკითხვა და წერა. ძალიან ზუსტი ერთადერთი, რასაც ახლა ვიყენებ. ჟურნალის ფაილების შესაქმნელად და ამგვარი გამოყენებისათვის იგი დაამატებს ახალ ჩანაწერს ფაილის ბოლოს. უფრო რთული ლოგის ფაილებისთვის ჩატვირთეთ მთელი ფაილი ცვლადში და დაამატეთ ახალი ჩანაწერი დასაწყისში file.dim stro როგორც სტრიქონი 'ეს აუცილებელია თორემ იქნება შეცდომა ორობითი სისტემის გახსნისას თქვენ უნდა გითხრათ, რამდენად დიდია ტექსტის სიგრძე, რომლის გადაღებაც არის lof (gfile) დააბრუნებს gfile– ს სიგრძეს, ხოლო სივრცე $ () დააბრუნებს ინტერფეისის სტრიქონს იმ რიცხვის სიგრძეზე, რომელიც შეიყვანეთ #gfile, 1, stro 'მიიღეთ ფაილის ნომრიდან, დაწყებული ბაიტი, ცვლადი მის შესანახად. და იტვირთება მხოლოდ ცვლადის სიგრძე დახურვა #gfilestro არის ფაილ test.txt- ის ტოლი. თქვენ შეგიძლიათ განათავსოთ ინფორმაცია ფაილში byffile = FreeFilestro = "ახალი ხაზი" & VbCrLf & stro 'დასძენს "ახალი ხაზი" და carraige დაბრუნება და linefeed რასაც მოჰყვება ორიგინალური ტექსტი გახსნა c ორობითი სახით, როგორც #ffilekill cput #ffile, 1, stro 'ჩაწერეთ წინა ინფორმაცია, თუ ფაილი მცირდება, თქვენ ჯერ უნდა მოკლათ ფაილი, რომელიც წაშლის დახურვას #ფაილეთეს ფაილს ახლა აქვს "ახალი ხაზი" აღმოვაჩინე, რომ ფუნქცია არის ის, რომ მას აქვს შეცდომები, თუ თქვენ ცდილობთ დააყენოთ სიმბოლო, როგორიცაა გააკეთა ის ფაქტიურად დაემატა hex 0x08000100000001 რაც საშინლად უცნაურია. მე ეს გადავწყვიტე ფაილის ცვლადზე ჩატვირთვით და სტრიქონის modsi = 133stro = mid (stro, 1, i - 1) & chr (1) & mid (stro, i + 1, len (stro) - i) შემდეგ დაყენებით #ფაილი, 1, სტროთი მშვენივრად მუშაობდა