Visual Basic Do It Yourself

Blogger Mod : Excerpt Articles and Read More Link..Part 2

2008-10-25T13:36:00.013+07:00

5. Choose Edit > Find in 2 nd NotePad windows input only red text into the Find What's feild

"/b:skin"

6. Insert after find text for below text

7. follow step 5 to 6 again with find text "data:post.body" and insert after "find text" which

8. Go to edit menu choose "Select All" and right click again choose "Copy"

9. Go to blogger html windows right click on text area choose "Select All" and right click again choose "Paste" mean paste modifiy code from NotePad windows to Blogger html windows, next click "Save Template"

10. On post section you must post like this format

for older post you should be edit like that too.

Blogger Mod : Excerpt Articles and Read More Link..Part 1

2008-10-24T15:21:00.015+07:00

1. Choose Template > Edit HTML > check Expand Widget Template in red marked.

2. right click in text area choose "Select All" right click again choose "Copy"

3. Open "NotePad" Program or another text editor I choose NotePad

4. right click in NotPad area choose "Paste" you will get the first copy of your full code template. This is copy just backup for your code only, you will open NotePad again and same step to paste code for your 2nd copy.

Split String so simple and easy by VB function [vb split string]

2008-10-24T13:30:00.007+07:00

1. Format of Raw Data for split You should know about data format for your spliting, such as 1.1 what delimiter ? space(” “) or slash(”/”) or mix format
1.2 what data type to convert
2. Function to use
Use Split Function for split data

Sample Code
creat one textbox and one button

Option Explicit Private Sub CommandButton1_Click() ’error handler for Do Loop action over one step On Error GoTo Err Dim RawData As String Dim SplitData() As String Dim i, IndexData As Integer Dim Answer As Variant IndexData = 1 RawData = TextBox1.Text SplitData = Split(RawData)
‘find number of data array Do Until IndexData = 0 If IsNull(SplitData(IndexData - 1)) = False Then IndexData = IndexData + 1 Else: IndexData = 0 End If Loop Err: For i = 0 To IndexData - 2 Step 1 ’subtract for IndexData startpoint at 1 and overstep Do Loop 1 MsgBox SplitData(i) Next i End Sub

The part of this article is credit to http://www.blogbov.co.cc/

Visual Basic Do It Yourself [vb diy]

2008-10-24T11:27:00.001+07:00

Welcome to my Visual Basic Do It Yourself's blog.Here you will learn about Visual Basic Do It Yourself's tips and how to find good information.