Багц үйлдвэрлэгч: 4 алхам

2024 Зохиолч: John Day | [email protected]. Хамгийн сүүлд өөрчлөгдсөн: 2024-01-30 11:06

V2.0 -ийг ОДОО ШИНЭЧЛЭЭРЭЙ !!! Доорхыг татаж аваарай Энэ бол миний багахан хугацаанд ажилласан төсөл юм.. энэ нь vb.net 2008 -оор хийгдсэн бөгөөд шинэ хэрэглэгчдэд зориулсан багцыг хялбарчлах болно … !!!!!!!! АНХААР !!! !!!!! тэр үүнийг хийх санааг надад өгсөн гэдгийг мэдэхгүй байна.. хэхэ.

Татаж авахаасаа өмнө эхний алхам болох 'суулгалт' -ыг харсан эсэхээ шалгаарай !!!! танд үнэхээр таалагдсан гэж найдаж байна.. хэрэв танд ямар нэгэн асуудал гарвал сэтгэгдэл үлдээгээрэй эсвэл над руу бичээрэй. Та юу гэж бодож байгаагаа тайлбарлаж, үнэлэхээ бүү мартаарай =)

Алхам 1: Суурилуулалт

Суулгахын тулд алхам алхмаар зургуудыг сайтар дагаж мөрдөөрэй !!! 1) Хэрэв та линк дээр дарахад текст ихтэй хуудас авсан бол 1 -р зургийг дагана уу2) Хадгалах дээр дарна уу 3) Бүх улаан битийг зөв авсан эсэхээ шалгаарай !!!.exe Тэгээд 'All Files' гэж хадгалсан эсэхээ шалгаарай, эс тэгвэл энэ нь ажиллахгүй болно !!!!!

Алхам 2: Энэ нь хэрхэн ажилладаг вэ: 1 -р хэсэг

ComboBox

Миний хэлснээр би үүнийг 2008 оны 2008 онд хийсэн болохоор ямар ч багц скрипт байхгүй байна. Үүнийг хийхийн тулд миний хийх ёстой зүйл бол: хэрэв comboboxchange label2 дээр 'бичих' гэж сонгосон бол 'Зурвас бичих - Цуурайг бүү нэмээрэй!' textbox1 textbox1 текстийг 'Та юу хэлэхийг хүсч байна вэ?' болгон өөрчилнө үү. Хэрэв ComboBox1. SelectedItem = ("Write") Дараа нь Label2. Text = ("Зурвас бичих - Цуурайг бүү нэмээрэй!") TextBox1. Show () TextBox1. Text = ("Та үүнийг юу гэж хэлмээр байна?") Төгсгөл Хэрэв би үүнийг combobox дээрх бүх зүйлд үргэлжлүүлэн хийх ёстой байсан бол.

Алхам 3: Энэ нь хэрхэн ажилладаг вэ: 2 -р хэсэг

Товчнууд

Товчнууд нь хийх хамгийн хэцүү зүйлүүдийн нэг байсан, Нэмэх товчлуур Ажиллахын тулд нэмэх товчлуурын хувьд би маш их код бичих ёстой байсан, гэхдээ үүнийг хийсний дараа үлдсэн хэсэг нь маш энгийн байсан … Нэмэх кодын нэг хэсэг: хэрэв "Бичих" бол Комбо хайрцганд сонгогдсоны дараа 'echo' + textbox1end -ийн агуулгыг нэмж оруулбал: ComboBox1. SelectedItem = ("Write") Дараа нь ListBox1. Items. Add ("echo" + TextBox1. Text) Ifit нь ихэнх тохиолдолд ижил байсан. устгах товчлуур нь зүгээр л: сонгосон зүйлийг жагсаалтаас устгах: ListBox1. Items. RemoveAt (ListBox1. SelectedIndex) цэвэр товчлуур нь бүхэл бүтэн жагсаалтыг цэвэрлээд дараа нь эхний хоёр мөрийг нэмж оруулна: ListBox1.. Clear () ListBox1. Items. Add (":: Made in iRule Batch Maker") ListBox1. Items. Add ("@echo off") ба дээш доош гүйлгэх код нь сонгосон зүйлийг дээш доош нь зөөхөд л хангалттай: (код руу удаан хүлээх хэрэгтэй)

Алхам 4: Энэ нь хэрхэн ажилладаг вэ: 3 -р хэсэг

Хадгалах/ачаалах

Хадгалах ба ачаалах нь магадгүй хамгийн хэцүү хэсэг байсан, энэ бол зөвхөн хадгалах код юм: Dim sfdMain нь шинэ SaveFileDialog байдлаар sfdMain. InitialDirectory = My. Computer. FileSystem. SpecialDirectories. MyDocuments DialogResult шиг бүдэг үр дүн sfdMain. Filter = "Багц файлууд (*.) |*.bat | CMD файлууд (*. cmd) |*.cmd "sfdMain. FilterIndex = 1 sfdMain. ValidateNames = Үнэн үр дүн = sfdMain. ShowDialog Хэрэв Үр дүн бол = Windows. Forms. DialogResult. OK Дараа нь шинэ систем шиг хусна. IO. StreamWriter (sfdMain. FileName) For i As Integer = 0 To ListBox1. Items. Count - 1 sw. WriteLine (ListBox1. Items. Item (i)) Дараагийн sw. Close () sw. Dispose () Өөр гарц дэд төгсгөл Хэрэв та vb -г ойлговол энэ нь юу хийдгийг мэдэх болно, гэхдээ хэрэв тэгэхгүй бол: үндсэндээ хийх бүх зүйл нь хадгалах харилцах цонхыг харуулах бөгөөд жагсаалтын бүх агуулгыг багц файл эсвэл cmd файлд хадгалдаг.