Search results for query: *

{ gsub(/[^ -~]/,"",$0)[!];print[/!] } Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Something like this ? gsub(/[^ -~]/,"",$0) Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Why not change the NumberFormat property of the cell ? Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Anyway this line if ( $1=="FPV" ) is never reached. Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Put WdAppOpen.Quit outside the Loop. Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Something like this ? ... StartDate = DateSerial(Year(Now()),Month(Now())-1,2) EndDate = DateSerial(Year(Now()),Month(Now()),2) ... If StartDate <= objFile.DateLastModified and EndDate > objFile.DateLastModified Then ... Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Perhaps this ? UPDATE tblTEST2 SET Val2 = -DLookUp('Val1','tblTEST2','Row=' & Row & ' AND Val2=' & Val1) WHERE Val2 = 0 Hope This Helps, PH. FAQ219-2884 FAQ181-2886

i duno where to start Have a look at FileSystemObject Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Something like this ? UPDATE tblTEST A SET Val2=-(SELECT B.Val1 FROM tblTEST B WHERE B.Row=A.Row AND B.Val1=A.Val2) WHERE Val2=0 Hope This Helps, PH. FAQ219-2884 FAQ181-2886

I'd replace this: .htmlbody = .htmlbody & "<br/><br/>" & Backgdetail with this: .htmlbody = .htmlbody & "<br/><br/>" & Replace(Backgdetail, vbLF, "<br/>") Hope This Helps, PH. FAQ219-2884 FAQ181-2886

What have you tried so far and where in your code are you stuck ? Hope This Helps, PH. FAQ219-2884 FAQ181-2886

I tried this, but did not work.. Well, what hapenned exactly ?

What happens if you use the ChDir instruction in a procedure called before inserting hyperlinks ? Hope This Helps, PH. FAQ219-2884 FAQ181-2886

I would like to learn how to do it What have you tried so far and where in your code are you stuck ? Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Why using arrays ? #!/bin/ksh IFS=",$IFS" checkshells() { for a in $S1; do if [[ ",$S2," != *",$a,"* ]]; then printf "$a(-)," fi done for a in $S2; do if [[ ",$S1," != *",$a,"* ]]; then printf "$a(+)," fi done } checkshells | awk '{sub(/,$/,"");print}' Hope This Helps, PH...

Sorry fot the typo: Set F = Selection.Fields.Add[!]([/!]Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "DATE ", PreserveFormatting:=True[!])[/!] Hope This Helps, PH. FAQ219-2884 FAQ181-2886

What about this ? Dim F As Field Set F = Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "DATE ", PreserveFormatting:=True F.Locked = True Hope This Helps, PH. FAQ219-2884 FAQ181-2886

What about this ? qryinssub = "INSERT INTO section_load(sec_id,subj_id) SELECT 'sec01',subj_id FROM subjects WHERE level_id='lvl01'" Hope This Helps, PH. FAQ219-2884 FAQ181-2886

I'd replace this: & rsLOC & "SERVERNAME with this: & rsLOC & ";SERVERNAME Hope This Helps, PH. FAQ219-2884 FAQ181-2886

Provided that A1 and B1 are strings, you may create this 2 functions: Public Function MY2Y(MY As String) As Long Dim a a = Split(MY, ".") MY2Y = 1760 * a(0) + a(1) End Function Public Function Y2MY(Y As Long) As String Y2MY = Y \ 1760 & "." & Format(Y Mod 1760, "0000") End Function and then in...