You are not logged in.

Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.

frankp

Beginner

  • "frankp" started this thread

Posts: 14

Date of registration: Jan 12th 2009

  • Send private message

1

Wednesday, January 14th 2009, 9:21am

MID statement

A question: I miss the mid[$] STATEMENT (not the function). Example:

mystring = "abcdef"

mid(mystring,3) = "5"

print mystring

[result] ab5def

How can I get around this without writing a sub from scratch? I can't understand how the Jabaco REPLACE function exactly works.

Thanks.

maXim

Trainee

  • "maXim" is male

Posts: 53

Date of registration: Jan 5th 2009

Location: Sesto Fiorentino, Florence (ITALY)

Occupation: design & development (HW, SW & FW)

Hobbies: chess, fly fishing, good wine and beautiful women!

  • Send private message

2

Thursday, January 15th 2009, 4:20pm

Hi frankp,

I have encountered the same problem. While waiting for the improvement and completion of the Mid function, I have resolved as follows:

Jabaco Source

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

..... 
..... 
Dim xStr 
..... 
xStr = "ABCDEFG" 
xStr = MidEx(xStr, 4, "H") 
MsgBox xStr 
..... 
..... 
Public Function MidEx(xString1 As String, xPosition As Integer, xString2) As String 
    Dim StrL As String 
    Dim StrR As String 
    If xString1 = "" Then xString1 = " " 
    If xPosition <= 0 Then xPosition = 1 
    StrL = Left(xString1, xPosition - 1) 
    StrR = Right(xString1, Len(xString1) - xPosition) 
    MidEx = StrL & xString2 & StrR 
End Function


... won't be the best solution but works! ;)

Best Regards,

maXim

This post has been edited 2 times, last edit by "maXim" (Jan 15th 2009, 7:45pm)

frankp

Beginner

  • "frankp" started this thread

Posts: 14

Date of registration: Jan 12th 2009

  • Send private message

3

Saturday, January 17th 2009, 8:57am

MID Statement

Simple but clever!

Many thanks!

frankp

Similar threads

Rate this thread
WoltLab Burning Board