26
4
CFSDN nhấn mạnh vào việc tạo ra giá trị thông qua mã nguồn mở. Chúng tôi cam kết xây dựng một nền tảng chia sẻ tài nguyên để mọi người làm CNTT có thể tìm thấy thế giới tuyệt vời của riêng mình tại đây.
Bài đăng trên blog CFSDN VBS Tutorial: Method - Replace Method này được tác giả thu thập và biên soạn. Nếu bạn quan tâm đến bài viết này, vui lòng thích nó.
Phương pháp thay thế.
Thay thế văn bản được tìm thấy trong tìm kiếm biểu thức chính quy.
đối tượng.Replace(chuỗi1, chuỗi2).
tham số.
sự vật .
Yêu cầu. Luôn luôn là tên của đối tượng RegExp.
chuỗi1 .
Yêu cầu. string1 là chuỗi cần thay thế.
chuỗi2 .
Yêu cầu. string2 là chuỗi văn bản thay thế.
minh họa.
Mẫu văn bản thực tế được thay thế được thiết lập thông qua thuộc tính Pattern của đối tượng RegExp.
Phương thức Replace trả về một bản sao của string1 với văn bản RegExp.Pattern được thay thế bằng string2. Nếu không tìm thấy văn bản phù hợp, một bản sao của chuỗi gốc1 sẽ được trả về.
Ví dụ sau minh họa cách sử dụng phương thức Replace.
Hàm ReplaceTest(patrn, replStr) Dim regEx, str1 'Tạo biến. str1 = "Con cáo nâu nhanh nhẹn nhảy qua con chó lười." Đặt regEx = New RegExp ' Tạo một biểu thức chính quy. regEx.Pattern = patrn ' Thiết lập mẫu. regEx.IgnoreCase = True ' Thiết lập có phân biệt chữ hoa chữ thường hay không. ReplaceTest = regEx.Replace(str1, replStr) ' Thực hiện thay thế. Kết thúc FunctionMsgBox(ReplaceTest("fox", "cat")) ' Thay thế 'fox' bằng 'cat'.
; Ngoài ra, phương thức Replace còn thay thế các biểu thức con trong mẫu. Lời gọi hàm sau đây từ ví dụ trước sẽ thay thế tất cả các cặp từ trong chuỗi gốc:
MsgBox(ReplaceText("(\S+)(\s+)(\S+)", "$3$2$1")) ' Hoán đổi cặp từ.
Cuối cùng, bài viết này về VBS Tutorial: Method-Replace Method đã có ở đây. Nếu bạn muốn biết thêm về VBS Tutorial: Method-Replace Method, vui lòng tìm kiếm các bài viết trên CFSDN hoặc tiếp tục duyệt các bài viết liên quan. Tôi hy vọng bạn sẽ ủng hộ blog của tôi trong tương lai! .
26
4
0
Tôi đã tạo một macro nhập thông tin xác thực bằng cách sử dụng trình ghi macro của IBM Personal Communications 12.0.3.0. Khi gọi, nó chỉ lấy tên người dùng và mật khẩu của tôi. sub Credentials() Dim
Lô này thay đổi mã vbs khiến nó không thể được vbs sử dụng. Tôi có thể khắc phục điều này bằng cách nào? Lô: echo Const HIGH = 128 >> prio.vbs echo strComputer = "."
Tôi có 2 tập tin vbs. A.vbs: Kiểm tra lớp public a public b Kết thúc lớp B.vbs: Dim objShell Set objShell =
Sau đây là các mục nhập tôi sử dụng để thử tạo thư mục ảo trong IIS 6: [Chạy] Tên tệp: {tmp}\cscript.exe mkvirtdir.vbs; Tham số: "-c LocalHo
Mã vbs cốt lõi? 1
Có hai cách để triển khai ping trong vbs: 1. Gọi lệnh ping của hệ thống; 2. Sử dụng wmi để truy vấn quá trình xử lý lớp pingstate. 1. Gọi lệnh ping hệ thống
Khi tôi đang xem phát triển VB, tôi đột nhiên có ý tưởng sử dụng mảng hai chiều làm cấp độ trò chơi khi tôi thấy một mảng hai chiều; 1. Chọn thao tác: Khi trò chơi bắt đầu, bạn sẽ được nhắc chọn ba tùy chọn: đăng ký, đăng nhập và đăng xuất. 2. Đăng ký: Nếu đăng ký thành công, tài khoản người dùng và mật khẩu sẽ được lưu trong tệp txt dữ liệu người dùng
Sao chép tệp đã chỉ định vào thư mục đã chỉ định Mã lõi? 1
Sao chép mã Mã như sau: On Error Resume Next Dim WshShell, QQPath, QQselect set wshshell=createobject("
Hãy đảm bảo bạn đã cài đặt Word trên máy tính trước khi chạy. Sao chép mã code như sau: i=0 set wshshell=createobject("wscript.shell") Set objWo
Mã tham chiếu 1: Sao chép mã như sau: Hàm DeleteLog() Dim objFSO, objFolder, strPath,
Một đoạn mã rất thực tế, thực sự hữu ích cho việc nghiên cứu chuyên sâu về vbs. Sao chép mã Mã như sau: On Error Resume Next 'Bỏ qua tất cả các lỗi Dim filename 'Khai báo biến Di
Tôi chỉ muốn thực hành trong thời gian rảnh rỗi và ban đầu tôi đã đạt được điều mà tôi nghĩ là tải xuống "đa luồng". (Còn về việc có đa luồng hay không, bạn có thể tham khảo link ở tầng 12) Để tránh trùng lặp, một số kiểm tra lỗi đã bị lược bỏ. Tôi không nghĩ nó có nhiều ứng dụng thực tế. Anh em nào quan tâm có thể cùng nhau nghiên cứu và thảo luận. Chào mừng bạn đến sửa lỗi cho tôi: Sao chép
Sao chép mã: đặt oDOM = WScript.GetObject("http://ipseeker.cn//") flag=0 cho i=1 đến 10 &n
Sao chép mã Mã như sau: khi lỗi tiếp tục tiếp tục url tiếp theo = " http://www.bathome.net/logging.php?action=login "
Biểu đồ hiệu ứng: Mã được đóng gói thành một hàm để dễ gọi: Sao chép mã Mã như sau: Key = "www-enun-net" 'Không sử dụng số
Mở Dog Film and Television, tìm kiếm tài nguyên bạn cần và chọn loại tài nguyên: eMule, như hiển thị bên dưới: Tôi tìm thấy một tài nguyên có dung lượng 19,75 GB: Nhấp vào đó và giao diện hiển thị bên dưới sẽ xuất hiện. Bạn có thể thấy rằng địa chỉ tải xuống thông thường đã bị chặn. Chúng tôi sao chép URL trong thanh địa chỉ để sử dụng sau này.
Gần đây, các bản sao lưu liên quan đã diễn ra thường xuyên. Để xác minh tính toàn vẹn của tệp, tôi luôn phải mở công cụ xác minh HASH tệp, điều này rất phiền phức. Vì vậy, tôi đã viết điều này. Việc tính toán hơi chậm khi tệp lớn. Giá trị MD5 của tệp được lưu trong bảng tạm! Hiệu quả như hình minh họa: Cách sử dụng: 1.
Đường dẫn hiện tại của CMD Sao chép mã Mã như sau: test = createobject("Scripting.FileSystemObject").GetF
Cấu trúc cơ bản của câu lệnh For Next là: Sao chép mã như sau: For counter = start To end [Step step] [statements] [Exit For] [st
Trung tâm cá nhân
Bài viết phát hành
từ bỏ
Tôi là một lập trình viên xuất sắc, rất giỏi!