1  |   Order by index

May 19, 2002, 5:24am

I'm currently using this INI module in my VB project, does anyone have a
function they could add to that to allow me to delete entire INI sections
and individual entries? :)

-Robbie


begin 666 INI2.bas
M071T<FEB=71E(%9"7TYA;64 at /2 B;6]D24Y)( at T*1&5C;&%R92!&=6YC=&EO
M;B!'9710<FEV871E4')O9FEL95-T<FEN9R!,:6( at (FME<FYE;#,R(B!!;&EA
M<R B1V5T4')I=F%T95!R;V9I;&53=')I;F=!(B H0GE686P at ;'!!<'!L:6-A
M=&EO;DYA;64 at 07, at 4W1R:6YG+"!">59A;"!L<$ME>4YA;64 at 07, at 06YY+"!"
M>59A;"!L<$1E9F%U;'0 at 07, at 4W1R:6YG+"!">59A;"!L<%)E='5R;F5D4W1R
M:6YG($%S(%-T<FEN9RP at 0GE686P at ;E-I>F4 at 07, at 3&]N9RP at 0GE686P at ;'!&
M:6QE3F%M92!!<R!3=')I;F<I($%S($QO;F<-"D1E8VQA<F4 at 1G5N8W1I;VX at
M5W)I=&50<FEV871E4')O9FEL95-T<FEN9R!,:6( at (FME<FYE;#,R(B!!;&EA
M<R B5W)I=&50<FEV871E4')O9FEL95-T<FEN9T$B("A">59A;"!L<$%P<&QI
M8V%T:6]N3F%M92!!<R!3=')I;F<L($)Y5F%L(&QP2V5Y3F%M92!!<R!!;GDL
M($)Y5F%L(&QP4W1R:6YG($%S($%N>2P at 0GE686P at ;'!&:6QE3F%M92!!<R!3
M=')I;F<I($%S($QO;F<-"D=L;V)A;"!#;VYS="!-1$=?,4M?0E5&1D52(#T at
M,3 R- T*4'5B;&EC($9U;F-T:6]N($=E=$E.22A">59A;"!S=')396-T:6]N
M($%S(%-T<FEN9RP at 0GE686P at <W1R16YT<GD at 07, at 4W1R:6YG+"!">59A;"!S
M='))3DE&:6QE3F%M92!!<R!3=')I;F<I($%S(%-T<FEN9PT*(" at ($1I;2!S
M=')2971U<FY3=')I;F< at 07, at 4W1R:6YG#0H at (" at 1&EM(&QN9U!O:6YT97( at
M07, at 3&]N9PT*(" at ($]N($5R<F]R($=O5&\ at 17)R;W)?2&%N9&QE< at T*(" at
M('-T<E)E='5R;E-T<FEN9R ](%-T<FEN9RA-1$=?,4M?0E5&1D52+" B("(I
M#0H at (" at ;&YG4&]I;G1E<B ]($=E=%!R:79A=&50<F]F:6QE4W1R:6YG*'-T
M<E-E8W1I;VXL('-T<D5N=')Y+" B(BP at <W1R4F5T=7)N4W1R:6YG+"!-1$=?
M,4M?0E5&1D52+"!S='))3DE&:6QE3F%M92D-"B at ("!)9B!L;F=0;VEN=&5R
M(#X at ,"!4:&5N#0H at (" at (" at ($=E=$E.22 ]($QE9G0D*'-T<E)E='5R;E-T
M<FEN9RP at ;&YG4&]I;G1E<BD-"B at ("!%;F0 at 268-"B at ("!%>&ET($9U;F-T
M:6]N#0I%<G)O<E](86YD;&5R. at T*(" at ($5R<BY286ES92!%<G(N3G5M8F5R
M+" B1V5T24Y)(BP at (D-A;FYO="!R96%D(&9R;VT at 24Y)($9I;&4N(BP at 17)R
M+D1E<V-R:7!T:6]N#0H at (" at 3VX at 17)R;W( at 1V]4;R P#0H at (" at 4F5S=6UE
M($5X:71?1V5T24Y)#0I%>&ET7T=E=$E.23H-"B at ("!'971)3DD at /2!S=')%
M;G1R>0T*16YD($9U;F-T:6]N#0I0=6)L:6, at 1G5N8W1I;VX at 4V5T24Y)*$)Y
M5F%L('-T<E-E8W1I;VX at 07, at 4W1R:6YG+"!">59A;"!S=')%;G1R>2!!<R!3
M=')I;F<L($)Y5F%L('-T<E-E='1I;F< at 07, at 4W1R:6YG+"!">59A;"!S='))
M3DE&:6QE3F%M92!!<R!3=')I;F<I($%S($EN=&5G97(-"B at ("!$:6T at ;&YG
M4F5T=7)N($%S($QO;F<-"B at ("!/;B!%<G)O<B!';U1O($5R<F]R7TAA;F1L
M97(-"B at ("!L;F=2971U<FX at /2!7<FET95!R:79A=&50<F]F:6QE4W1R:6YG
M*'-T<E-E8W1I;VXL('-T<D5N=')Y+"!S=')3971T:6YG+"!S='))3DE&:6QE
M3F%M92D-"B at ("!3971)3DD at /2!)268H;&YG4F5T=7)N(#T at ,"P at 1F%L<V4L
M(%1R=64I#0H at (" at 17AI="!&=6YC=&EO; at T*17)R;W)?2&%N9&QE<CH-"B at
M("!%<G(N4F%I<V4 at 17)R+DYU;6)E<BP at (E-E=$E.22(L(")#86YN;W0 at =W)I
M=&4 at =&\ at 24Y)(&9I;&4N(BP at 17)R+D1E<V-R:7!T:6]N#0H at (" at 3VX at 17)R
M;W( at 1V]4;R P#0H at (" at 4F5S=6UE($5X:71?4V5T24Y)#0I%>&ET7U-E=$E.
H23H-"B at ("!3971)3DD at /2!&86QS90T*16YD($9U;F-T:6]N#0H-" at ``
`
end

May 19, 2002, 6:01am

These should do the trick:

Public Sub DeleteKey (ByVal SectionName As String, ByVal KeyName As String)
WritePrivateProfileString SectionName, KeyName, vbNullString, strINIFileName
End Sub

Public Sub DeleteSection (ByVal SectionName As String)
WritePrivateProfileString SectionName, vbNullString , "dummy", strINIFileName
End Sub


[View Quote]

May 19, 2002, 7:13am

Thanks Baron :o)

[View Quote]

1  |   Order by index